Datei lesen auf "einmal"

[sniper_w]

Ich möchte eine Datei "auf einmal" einlesen. So in etwa:

Delphi-Quellcode:

var FilePointer:Pointer;
begin
  FilePointer := LoadFileAufEinmal( FileName:string );

[markusj]

???
Ich versteh nicht was du willst, lege dir aber mal einen TMemoryStream oder ein TFileStream nahe^^

mfG

Markus

[sniper_w]

Das ganze binäre Inhalt einer Datei von HD zur RAM und ein Pointer auf den Anfang.

[SirThornberry]

nimm einfach einen TMemoryStream und verwende die Methode LoadFromStream. Der Memorystream müsste dann noch ein property "memory" (oder so ähnlich) haben womit du einen pointer auf die Daten bekommst.

[markusj]

Zonk!!!

Der TMemoryStream muss mit LoadFromfile gefüllt werden!!!
Ansonsten kann man schon ganz bequem auf die einzelnen Werte zugreifen ... read & readBuffer!
Oder du nimmst deinen Pointer, der unter Memory zu finden ist.

mfG
Markus

[elliott]

Zitat von sniper_w:

Ich möchte eine Datei "auf einmal" einlesen. So in etwa:

Delphi-Quellcode:

var FilePointer:Pointer;
begin
  FilePointer := LoadFileAufEinmal( FileName:string );

Wenn du das so haben willst, dann musst du schon selbst diese Funktion "LoadFileAufEinmal" schreiben.
Das macht man mit FileOpen, dann mit FileSeek die Groesse der Datei holen, dann einen Speicherplatz mit GetMem (über den gewünschten pointer) reservieren und zum Schluss noch mit FileRead die Datei "AufEinmal" einlesen.......

[Der_Unwissende]

Zitat von markusj:

Zonk!!!

Der TMemoryStream muss mit LoadFromfile gefüllt werden!!!

HI,
warum? Also ich hab erst vorhin LoadFromStream verwendet und wüßte jetzt nicht warum ich LoadFromFile hätte verwenden sollen. Der Sinn von Streams ist es gerade, dass sie durchaus von dem konkreten Speicherort (RAM, File, kommt aus dem Netz) abstrahieren können. Sollte es doch ein guten Grund geben nur LoadFromFile zu nehmen, müsste ich wohl einigen Kunden etwas erklären (also hoffe ich doch mal dass es den auch weiterhin nicht gibt!)

Gruß Der Unwissende

[Dax]

Zumal .LoadFromFile nix anderes tut als nen FileStream zu erstellen und den ganzen Inhalt der Datei in den Speicher zu kopieren^^

[shmia]

In einem Rutsch in einen String laden:

Delphi-Quellcode:

function FileToString(const FileName: string): AnsiString;
var
  fs: TFileStream;
  Len: Integer;
begin
  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    Len := fs.Size;
    SetLength(Result, Len);
    if Len > 0 then
      fs.ReadBuffer(Result[1], Len);
  finally
    fs.Free;
  end;
end;

[idontwantaname]

@Der_Unwissende: Naja, irgendwie muss man ja die Datei in der Speicher holen, oder ??