Datei von der Festplatte in einen FileStream schreiben

[Zacherl]

Hi,

wie kann ich eine Datei von der Festplatte in einen FileStream schreiben?

[scp]

Das ist ja der Vorteil: Du brauchst die Datei nicht in den Filestream schreiben, sondern du musst sie nur "verknüpfen":

Delphi-Quellcode:

var
  fs : TFileStream;
begin
  fs := TFileStream.Create('C:\eine.datei', fmOpenReadWrite);
  try
    // Machwashier
  finally
    fs.Free;
  end;
end;

Du hast direkten Zugriff auf die Daten der Datei und kannst sie dementsprechend direkt auslesen oder verändern.

[Dax]

Kommt drauf an, wie du das meinst.

Wenn du einfach eine Datei kopieren willst, dann geht das so:

Delphi-Quellcode:

var InFile, OutFile: TFIleStream;
begin
  InFile := TFileStream.Create(DateiName, fmOpenRead);
  OutFile := TFileStream.Create(ZielName, fmCreate);
  OutFile.CopyFrom(InFile, 0);
end;

Das kopiert den kompletten Inhalt der Datei DateiName in die Datei ZielName.

Wenn das nicht das ist, was du meinst, dann weiss ich es auch nicht.

[Manzoni]

Delphi-Quellcode:

var myfile : TFileStream;
begin
  myfile:=TFileStream.Create('C:\meineDatei.dat',fmOpenRead);
  ...
  FreeAndNil(myfile);
end;

Guck mal in der OH nach TFilestream.

[Christian Seehase]

Moin Dax,

Du hast den Resourcenschutzblock und die Freigabe der Objekte vergessen ;-)

[Zacherl]

Danke