Filestreams

Nastarowje · 10.01.2002

Hallo

Ich probiere gerade mit Delphi 5 Standard (leider z.Z. keine Hilfedateien) über die Socketkomponenten Clientsocket und Serversocket mittels Filestream Dateien zu kopieren.

Ich weiß das was ankommt, aber das ist irgendwie alles zerhauen. Außerdem möchte ich ne Komponente schreiben, bei der ich nur eine Methode Filesend aufrufen muß. Nun habe ich ein Problem mit dem Buffer. Wann weis ich, wann das Ende einer Datei erreicht wurde und wie kann ich die Datei über Streaming kopieren? Bei gewissen teilen ging das mit Blockread und Blockwrite. Mit dem Befehl seek mußte ich nur noch zur nächsten Position springen um den nächsten teil zu kopieren. Wie funktioniert das aber mit streams.

Für einen kleinen Quelltext wäre ich euch dankbar.

MfG

|\/
|astarowje

O Love · 10.01.2002

Ich kann Dir 'n kleines Beispiel zeigen, nur nutzt Dir das in Ermangelung der ganzen Konstanten nicht viel:

Code:

procedure BlobToFile (FileName: string);
var
  FStream	: TFileStream;
  BStream	: TADOBlobStream;
begin
  BStream	:= nil;
  FStream	:= nil;
  with dmSystemModule do
  try
    BStream	:= TADOBlobStream.Create (tblMailPositionMPMSG, bmRead);
    FStream	:= TFileStream.Create (FileName, fmCreate);
    FStream.CopyFrom (BStream, BStream.Size);
  finally
    FStream.Free;
    BStream.Free;
  end;
end; // BlobToFile

Aus einem Blob-Stream wird in einen File-Stream umkopiert, dabei wird die Datei angelegt (fmCreate).

O Love

Filestreams

Nastarowje

O Love

Filestreams

ANGEBOTE & SPONSOREN

Neueste Beiträge

Statistik des Forums