AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Indy TCPServer/TCPClient: RawByteString übertragen?
Thema durchsuchen
Ansicht
Themen-Optionen

Indy TCPServer/TCPClient: RawByteString übertragen?

Ein Thema von uups · begonnen am 9. Apr 2017 · letzter Beitrag vom 10. Apr 2017
 
uups

Registriert seit: 23. Aug 2004
68 Beiträge
 
#2

AW: Indy TCPServer/TCPClient: RawByteString übertragen?

  Alt 10. Apr 2017, 09:00
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:
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;
Client:

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:
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;
Was mache ich falsch?
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:21 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-2025 by Thomas Breitkreuz