Ich möchte gern Dateien mittels TClientSocket und TServerSocket versenden und habe das folgendermaßen realisiert.

Client:
FClient.Socket.SendStream(Stream); Server:

markieren

Delphi-Quellcode:

procedure TFileServer.ReceiveData(Sender: TObject; Socket: TCustomWinSocket);
var
  Buffer: Pointer;
  Size: Integer;
begin
  Size := Socket.ReceiveLength;
  Socket.ReceiveBuf(Buffer^, Size);
  FileStream.Write(Buffer^, Size);
end;

Das funktioniert auch einwandfrei, nur möchte ich jetzt gerne noch ein paar Dateiinfos vorneweg schicken. Da hab ich mir gedacht, ich schicke über SendBuf eine Kette von Bytes und zwar so.

markieren

Delphi-Quellcode:

procedure StrToBytes(Text: String): TByteArray;
var I:Integer;
begin
  for I := 1 to Length(Text) do
    begin
    Result[I-1] := Ord(Text[I]);
    end;
end;

Client:

markieren

Delphi-Quellcode:

procedure TFileClient.SendData;
var
  Text: TByteArray;
begin
  Text := StrToBytes('Dateiinfo');
  FClient.Socket.SendBuffer(Text, Length('Dateiinfo'));
  ...
end;

Server:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFileServer.ReceiveData(Sender: TObject; Socket: TCustomWinSocket);
var
  PBytes: PByteArray;
  Bytes: TByteArray;
  Size: Integer;
begin
  Size := Socket.ReceiveLength;
  GetMem(PBytes, Size);
  Socket.ReceiveBuf(PBytes^, Size);
  Bytes := PBytes;
  ...
end;

In "Bytes" sind jetzt aber viel mehr Bytes als versendet wurden. Bei meinen Tests war die zu versendende Datei 20 Bytes, aber in "Bytes" sind sich 32000 Bytes. Was mache ich falsch?

Dein Beispiel hat einen schweren Fehler: es wurde kein Speicher für Buffer reserviert!!
So geht's viel einfacher:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFileServer.ReceiveData(Sender: TObject; Socket: TCustomWinSocket);
var
  Buffer: AnsiString; // AnsiString dein Freund und Helfer
  Size: Integer;
begin
  Size := Socket.ReceiveLength;
  SetLength(buffer, Size); // Speicher reservieren
  Socket.ReceiveBuf(Buffer[1], Size);

  buffer := '<Start>' + buffer + '<end>'; // wir ändern den Buffer etwas

  FileStream.WriteBuffer(Buffer[1], Length(buffer));
end;

Ok jetzt funzt das einwandfrei, nur hab ich jetzt das Problem, dass wenn die Datei zu groß ist ich die Meldung "Windows-Socket-Fehler: Eine vorhandene Verbindung wurde vom Remotehost geschlossen." Ich denke mal das das irgendein Timeout des Servers ist, wenn ja, wie kann ich das ausschalten.