1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

var
  Bfr: array of byte;
  BufSize: Cardinal;


procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;  Socket: TCustomWinSocket);
var
  c : char;
  i : integer;
  FileHandle: Integer;
begin
  BufSize := Socket.ReceiveLength div SizeOf(Byte);
  Bfr := nil;
  SetLength(Bfr, BufSize);
  Socket.ReceiveBuf(Pointer(Bfr)^, BufSize);

  // Speichern mit Buffer geht schief
  FileHandle := FileCreate('ClientWrite.txt');
  i := FileWrite(FileHandle, Bfr, BufSize);
  FileClose(FileHandle);

  // Speichern mit einzelnen Bytes funktioniert
  FileHandle := FileCreate('ClientWrite.txt');
  for i:=0 to BufSize-1 do begin
    FileWrite(FileHandle, bfr[i], 1);
  end;
  FileClose(FileHandle);
end;


procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i : integer;
begin
  i := Socket.SendBuf(Bfr, BufSize);

  Bfr := nil;
end;

// ===============================================                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var
  Buffer: String;

// Daten aus einer Client-Verbindung lesen und an den Absender spiegeln
procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
  var
    FS: TFileStream;
begin
  Buffer := Socket.ReceiveText;
  FS := TFileStream.Create('C:\Test.txt',fmOpenWrite or fmShareDenyWrite);
  try
    FS.Seek(0,soFromEnd);
    FS.Write(PChar(Buffer)^,Length(Buffer));
  finally
    FreeAndNil(FS);
  end;
  Socket.SendText(Buffer);
end;