beliebige Datei in Stream speichern

[Evilboyz]

Hi,

ich bekomme es immer noch nicht hin! Folgenden Code habe ich jetzt also auf Serverseite. Wie finde ich bei SendBuf nun aber die den Int - Wert, den ich übergeben muss? Wenn ich testhalber 1000 eintrage wird etwas gesendet, wenn ich die Länge von SBuffer ermitteln und diese übergeben will, bekomme ich einen Fehler beim Compilieren.

Code:

procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var fsWork : TFileStream;
      sBuffer : String;
begin
     Events.Lines.Add(Socket.ReceiveText);

     fsWork  := TFileStream.Create('datei\test.exe', fmOpenRead);
     sBuffer := StringOfChar(#00,fsWork.Size);
     try
         Komplett in Buffer einlesen
        fsWork.Read(sBuffer[1],fsWork.Size);
     finally
        FreeAndNil(fsWork);
     end;
         Socket.SendBuf(sBuffer,1000);
end;

Auf Clientseite kann ich doch nun mit

Code:

Socket.ReceiveBuf(Data, Socket.ReceiveLength);

die empfangenen Daten in "Data" (Data : TStream) schreiben, oder?
Langsam komme ich mir echt schon blöd vor, aber ich stehe voll auf dem Schlauch!