Forum: Programmieren allgemein
Delphi
by Root2k,
17. Jun 2011
Ok, vielen Dank!! :thumb:
War bis jetzt alles nur für Testzwecke, aber mit dem was du sagst hast du natürlich Recht.
Werde deine Anmerkungen gleich umsetzen.
Forum: Programmieren allgemein
Delphi
by Root2k,
17. Jun 2011
Danke dir für diese Information. :thumb:
Jetzt funktioniert alles wie gewünscht.
Geänderte Zeile:
FStream.Write(Pointer(OutputCrypt.Text)^,Length(OutputCrypt.Text)* SizeOf(Char)*2]);
Hab also SizeOf(Char) * 2 gemacht.
Forum: Programmieren allgemein
Delphi
by Root2k,
17. Jun 2011
Ich bekomm das irgendwie nicht richtig zum laufen, denn ich bekomme folgende Resultate bei entsprechender Eingabe (ist egal ob ich Buchstaben oder Zahlen eingebe):
Eingabe: 1
Ausgabe: 1
Eingabe: 11
Ausgabe: 11se
Zusätzlich komisch: Wenn ich z.B. in den Browser klicke und dann nochmal die Daten auslesen lasse (Button klicke), erhalte ich die Ausgabe: 11껀Ȝ
Eingabe: 111
Forum: Programmieren allgemein
Delphi
by Root2k,
17. Jun 2011
Das kann ich dir jetzt leider nicht mehr so genau sagen.
Ich denke aber dass das Problem folgendes war:
Ich hab den Zugriff auf die Datei vermutlich nicht an der richtigen Stelle geschlossen und somit wollte das Programm von 2 Stellen auf eine Datei zugreifen. Das hat vermutlich die Probleme verursacht. Da gab es dann immer eine Zugriffsverletzung.
Jetzt scheint das Ganze aber zu...
Forum: Programmieren allgemein
Delphi
by Root2k,
17. Jun 2011
Ok, werde ich auf jeden Fall mal probieren.
Das hab ich vorher auch schon mal (in leicht abgeänderter Version) versucht, aber ich hab immer einen I/O-Error erhalten.
Ich schau mal was ich hinbekomme und meld mich hier dann nochmal.
Forum: Programmieren allgemein
Delphi
by Root2k,
17. Jun 2011
Danke erstmal für die ganzen Antworten.
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.
Forum: Programmieren allgemein
Delphi
by Root2k,
16. Jun 2011
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-rcx-verschluesselung.html in einer Textdatei abspeichern und wieder auslesen kann.
Ich speichern die Daten auf folgende Weise ab:
procedure TForm1.BtnSaveClick(Sender: TObject);
var
Datei: TextFile;