beliebige Datei in Stream speichern

[Christian Seehase]

Moin Evilboyz,

in Deinem Beispiel fehlt die Initialisierung des Buffers, ausserdem muss, wenn der Buffer ein String ist zwingend die Position angeben werden, ab der aus dem Buffer gelesen, bzw. ab der in den Buffer geschrieben werden soll. Ausserdem ist TStream eine abstrakte Klasse, die man nur als Basisklasse für Ableitungen eigener Klassen nutzen sollte (wenn Du hier im Forum mal nach "abstrakt" suchst, solltest Du dazu eine Nähere Erklärung finden):

Delphi-Quellcode:

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); 

var
  fsData : TFileStream; // Nur mal als Beispiel einen FileStream angenommen
  sBuffer : String; 
begin 
  // FileStream zum Schreiben öffnen
  fsData  := TFileStream.Create('IrgendeinDateiPfad',fmOpenWrite);
  try
    // Buffer initialisieren (erst hier. Falls TFileStream.Create schiefgeht, muss der Buffer ja nicht initialisiert sein
    sBuffer := StringOfChar(#00,Socket.ReceiveLength);
    // Da in der Maximallänge gelesen wird, braucht man keine Schleife
    // Wichtig: sBuffer[1], damit an der ersten Stelle des Buffers geschrieben wird
    if Socket.ReceiveBuf(sBuffer[1],Socket.ReceiveLength) <> -1 then
    begin
      // Eingelesene Daten in Datei wegschreiben, wenn etwas eingelesen wurde
      fsData.Write(sBuffer[1],Length(sBuffer));
    end;     
  finally
    // Stream wieder freigeben
    FreeAndNil(fsData);
  end;
end;

Ich hab' Dein Beispiel mal "ergänzt".
So müsste es eigentlich gehen. Schau doch mal, ob Du damit klarkommst.