![]() |
Indy TCPServer/TCPClient: RawByteString übertragen?
Guten Morgen!
Ich benutze eine Verschlüsselungsbibliothek, die extrem schnell Strings verschlüsselt und komprimiert. Es stehen nicht viele Konfigurationsmöglichkeiten zur Verfügung, wobei die beste performance eine Verschlüsselungsroutine bietet, die als Ergebnis einen RawByteString (AnsiString ?) liefert. Diese verschlüsselten Strings muss ich dann möglichst schnell vom TIdTCPServer zum TIdTCPClient übertragen? Welche Möglichkeiten gibt es, einen RawByteString ohne Datenverlust zu übertragen? Mir ist schon bewusst, dass ein RawByteString ein AnsiString ohne CodePage ist und theoretisch nur eine CodePage gesetzt werden muss (in diesem Fall 65001), um den String dann als UTF8-String zu übertragen. Jedoch schlugen alle meine Versuche bis jetzt fehl. |
AW: Indy TCPServer/TCPClient: RawByteString übertragen?
Ich konnte in der Zwischenzeit die eigentliche Aufgabe mit dem Senden und Empfangen von RawByteStrings fast lösen, ein kleines Problem bleibt allerdings noch. Und zwar, nur etwa 80% aller vom TIdTCPClient empfangenden Daten konnten wiederverwendet werden. Laut Wireshark wurden alle Daten übertragen, das Problem besteht offfensichtlich daran, die übertragene Daten nicht bzw. nicht richtig voneinander "getrennt" werden. Muss man bei Streams auch irgendwelche Trennzeichen verwenden, um die Datenpackete auseinader zu halten?
Hier mein Code: Server:
Delphi-Quellcode:
Client:
var
mStream: TStream; begin for i := Law(arrData) to High(arrData) do begin ... mStream := AnsiStringToStream(EncryptString(arrData[i], DataEncryptionKey)); AContext.Connection.IOHandler.Write(mStream, mStream.Size, true); ... end; end;
Delphi-Quellcode:
var
mStream: TMemoryStream; mStreamData: AnsiString; begin while (not Terminated) and (TCPClient.Connected) do begin mStream := TMemoryStream.Create; try TCPClient.IOHandler.ReadStream(mStream, -1); mStreamData := DecryptString(StreamToAnsiString(mStream), DataEncryptionKey); ... finally mStream.Free; end; end; end;
Delphi-Quellcode:
Was mache ich falsch?
function AnsiStringToStream(const AString: RawByteString): TStream;
begin Result := TMemoryStream.Create; Result.Write(PAnsiChar(AString)^, Length(AString)); Result.Position := 0; end; function StreamToAnsiString(const AStream: TMemoryStream): RawByteString; begin SetString(Result, PAnsiChar(AStream.Memory), AStream.Size); end; |
AW: Indy TCPServer/TCPClient: RawByteString übertragen?
Wenn du mehrere Datenpakete (einzelne Verschlüsselte Strings) in einen Stream wirfst, musst du beim lesen in irgend einer Form erkennen, wo die grenze zwischen 2 Paketen liegt.
Dies kann entweder mit einem eindeutigen Trennzeichen erledigt werden, dass im Rest nicht vorkommen darf. Finde ich aber nicht optimal, da du da immer den Kompletten Stream durchackern musst um die Blöcke zu bekommen. Alternativ kannst du zB die Grenzen der einzelnen Pakete am Beginn des Streams mitschicken. So dass der Stream zB So aussieht: 14#2#507#10055__________ 14 => die ersten 14 Zeichen beinhalten die Grenzen 2 = Es gibt 2 Blöcke #507 => Der erste block reicht bis 507 #10055 => Der zweite Block reicht bis 10055 _____=> hier dann die Daten Mit der Information bewaffnet, kannst du im Client den Stream wieder in die einzelnen Blöcke zerlegen. Ich würde vermuten, dass die Entschlüsselung in den gleichen Blöcken laufen muss, die Vorher verschlüsselt wurden. Wenn du Daten komprimierst würde ich nicht mit Strings weiter arbeiten, sondern nur mit TBytes. Da ist für die Weiterverwendung das Encoding egal und die Daten werden nicht durch irgendwelche impliziten Konvertierungen gefährdet. Zum Übertragen von A nach B kann man dann den TBytesStream verwenden. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:02 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz