[Erledigt] Speichern von RCx-Zeichen in Textdatei

[Root2k]

Hi,

ich wollte mal fragen ob mir jemand sagen kann wie ich die umgewandelten/zurückgegebenen Zeichen (z.B. 황暫ꮃ审湆�꡻椎ꫡ) einer http://www.delphipraxis.net/140859-r...uesselung.html in einer Textdatei abspeichern und wieder auslesen kann.

Ich speichern die Daten auf folgende Weise ab:

Code:

procedure TForm1.BtnSaveClick(Sender: TObject);
var
  Datei: TextFile;

begin
  AssignFile(Datei,'d:\tmp.txt');
  Rewrite(Datei);
  if IOResult = 0 then
  begin
    writeln(Datei, OutputCrypt.Text);
    CloseFile(Datei);
  end;

end;

Allerdings stehen dann in der Textdatei nur Fragezeichen. Liegt das an der Zeichenkodierung?

Kann mir vielleicht einer sagen wie ich die Zeichen richtig abspeichern kann?
Bin noch ziemlich neu in der Delphi-Programmierung (und diesem Board) und kenn mich deshalb auch noch nicht so gut aus.


Gruß,
Root2k

PS: Ich hoffe dass ich den richtigen Bereich gewählt hab.

[fui-tak]

Ich denke es könnte gehen, indem du die zu den Zeichen zugehörigen Unicode-Zahlen, statt den Zeichen selbst, abspeicherst.

Delphi-Quellcode:

vers, ausg: string;
i: integer;
...

vers := OutputCrypt.Text;
ausg := '';

for i := 0 to length(vers) -1 do
   ausg := ausg + Ord(vers[i]) + ';';

...
writeln(Datei, ausg);

Die Textdatei sieht dann irgendwie so aus: 12;58;499;34;

Beim späteren Einlesen kannst du die Zahlen mit Chr(Zahl) wieder zu Zeichen machen.

[blackfin]

Vorsicht, fui-tak, das geht in die Hose:
ord und chr funktionieren nur bei einem Wertebereich von 0-255, also nur bei ANSI-Chars, bei UniCode-Zeichen dagegen, die über diesem Wertebereich liegen, knallt es.
Also ist das defintiv nicht der Weg zu gehen.


Edit: Uhm...da habe ich mich wohl getäuscht. Danke für den Hinweis, Himitsu. Aber merkwürdig, ich war mir egentlich sicher, dass ich mal eine Grenzenverletzung hatte von ord / chr bei Unicode-Zeichen (D2009)...hmm

Aber, bevor ich evtl. Speicher-Möglichkeiten beschreibe:
Welche Delphi-Version benutzt du, Root2k?

[himitsu]

Ord und Chr (nicht Char) sind virtuelle Funktionen

Chr = erstellt einen Char und nimmt jeden Integertypen an
Ord = erstellt einen Integer und nimmt AnsiChar, WideChar/Char und andere ordinale Typen, wie z.B. ENUMs entgegen.

Und ja, die beiden "Funktionen" verstehen auch Unicode.

Den Text binär in einen Stream und darüber abspeichern.

Die so kodierten Daten sind nunmal kein "Text" mehr und enthalten (auf Text/Strings bezogen ) Steuerzeichen und eventuell Zeichen, welche je nach Zeichensatz unterschiedlich interpretiert werden.

[Root2k]

Danke erstmal für die ganzen Antworten.

Zitat von blackfin:

Welche Delphi-Version benutzt du, Root2k?

Sorry, hab ich vergessen in meinem Profil anzugeben.
Ich programmiere mit Delphi XE (Enterprise).

Danke auch für den Hinweis mit Ord und Chr. Ich probiere jetzt auf jeden Fall mal aus was ich damit alles anstellen kann.

[blackfin]

Schreibe die Datei doch einfach über einen Stream:

Delphi-Quellcode:

procedure Save(CryptText: string; OutFileName: string);
var
  FStream: TStream;
begin
  ForceDirectories(ExtractFilePath(OutFileName)) ;
  
  if FileExists(OutFileName) then
  begin
   FStream := TFileStream.Create(OutFileName,fmOpenReadWrite) ;
   FStream.Seek(0,soFromEnd) ;
  end
  else  
   FStream := TFileStream.Create(OutFileName,fmCreate) ; 
  
  FStream .Write(Pointer(CryptText)^,Length(CryptText)* SizeOf(Char)) ;  
  FreeAndNil(FStream) ;  
end;