Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
16. Mär 2021
KodeZwerg ich werde einen neuen Thread eröffnen. Willie.
Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
14. Mär 2021
Viele gute Antworten. Danke.
Aber ich schaffe es nicht, die Nibbles so zu verknüpfen, wie ich mir das vorgestellt habe. Ich erkenne nicht, ob der Fehler am Codieren oder Decodieren liegt. Ich habe die Bereichsprüfung eingeschaltet, um einen Überlauf zu erkennen. Ist aber nicht.
Willie.
Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
12. Mär 2021
Da habe ich einiges zu lesen (bzw. vorlesen zu lassen) !
In europäischen Sprachen wird doch das zweite Byte nicht gebraucht, richtig?
Willie.
Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
11. Mär 2021
Du hast rect, ich brauche kein AnsiString. Memo.Text liefert jedoch WideString, bei dem jedes zweite Byte 0 ist. (war hier schon mal Thema) Gibt es einen Cast WideString to TByte? Ich bin nicht allein mit diesem Problem:https://support.industry.siemens.com/tf/WW/de/posts/wstring-to-array-of-byte/219715?page=0 Inline-Variablen: ich muss immer noch dazulernen!
KodeZwerge, damit muss ich mich...
Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
10. Mär 2021
Hallo,
danke für eure Tipps, ich habe lange ein altes Delphi benutzt, darum kenne ich noch nicht alle Verbesserungen.
Warum AnsiString statt WideString?
Ich hatte mir vor vielen Jahren eine einfache Verschlüsselung ausgedacht. Ich verknüpfe das 2. Nibble des 1. Bytes mit dem 1. Nibble des 2. Bytes usw. und zum Schluss noch das erste mit dem letzten Nibble. Nur als Teil der Verschlüsselung!...
Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
9. Mär 2021
Hallo,
ich will einen AnsiString speichern und wieder öffnen. Habe ein Tutorium von Himitsu zum Thema gefunden.
Bevor ich das gefunden hatte, wollte ich es so machen: public
Txt: AnsiString;
Txtarray: TArray<Byte>;
Path: TFilename;
procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;