Datei lesen auf "einmal"

[sniper_w]

ich habe es inzwischen so gemacht:

Delphi-Quellcode:

  TByteArray = array of Byte;
function S_win_ReadFile(const FileName: string; var Data: Pointer): Cardinal;
var
  FileHandle, BytesRead: Cardinal;
begin
  FileHandle := CreateFile(PChar(FileName), GENERIC_READ, 0, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if FileHandle = INVALID_HANDLE_VALUE then
  begin
    Result := 0;
    Data := nil;
    Exit;
  end;
  Result := GetFileSize(FileHandle, nil);
  GetMem(Data, Result);
  ReadFile(FileHandle, Data^, Result, BytesRead, nil);
  CloseHandle(FileHandle);
end;

function S_pascal_ReadFile(const FileName: string; var Data: TByteArray): Cardinal;
var
  FileHandle: file;
  BytesRead: Cardinal;
begin
{$I-}
  AssignFile(FileHandle, FileName);
  Reset(FileHandle, 1);
  Result := FileSize(FileHandle);
  SetLength(Data, Result);
  BlockRead(FileHandle, Data[0], Result, BytesRead);
  CloseFile(FileHandle);
{$I+}
end;

[F.W.]

Ich hab mal noch 2 Möglichkeiten (habe beide schnell hergeleitet, die Theorie sollte stimmen, evtl. Tippfehler ausbessern ;-)

1. Möglichkeit, mit einem Pointer:

Delphi-Quellcode:

procedure LoadFromFileComplete(const FN: TFileName);
var
 Datei: Pointer; //sollte jenachdem ob du ihn in anderen functions und procedures brauchst evtl. global sein
 FS: TFileStream;
begin
 FS := TFileStream.Create(FN, fmOpenRead);
 try
   GetMem(Datei, FS.Size); //reserviert Speicher, der mit FreeMem() wieder freigegeben werden muss!
   FS.ReadBuffer(Datei, FS.Size);
 finally
   FS.Free;
 end;
end;

2. Möglichkeit mit nem TMemoryStream, hier bin ich mir ne so sicher, ob das alles so richtig oder wichtig ist ;) :

Delphi-Quellcode:

procedure LoadFromFileComplete(const FN: TFileName);
var
 Datei: TMemoryStream;//sollte jenachdem ob du ihn in anderen functions und procedures brauchst evtl. global sein
//dann muss natürlich das Erzeugen und das Freigeben auch im OnCreate und im OnDestroy oder so passieren
 FS: TFileSream;
begin
 FS := TFileStream.Create(FN, fmOpenRead);
 try
  Datei := TMemoryStream.Create;
  try
    Datei.SetSize(FS.Size);//die zwei zeilen sind evtl. überflüssig
    Datei.Seek(0, soFromBeginning);//  ||
    Datei.CopyFrom(FS, 0);//0 sollte für alles stehen
//wenn du darauf jetzt noch nen Pointer brauchst musst du dir einen deklarieren und mit Datei.Memory gleichsetzen
  finally
    Datei.Free;
  end;
 finally
   FS.Free;
 end;
end;

Aber die obere Methode sollte gehn!

PS: Solltest du mal große Dateien mit Streams bearbeiten bergiss nicht den Int64 statt nem Integer zu nehmen wenn du Längenangaben liest!

[shmia]

Meine Variante hat gegenüber den letzten 2 Varianten vier entscheidende Vorteile:
1.) durch die Verwendung von AnsiString entfällt für den Aufrufer die Pflicht den Speicher freizugeben
2.) durch die Verwendung von AnsiString kann der Aufrufer ganz leicht die Länge der Daten mit Lenght() ermitteln. Man braucht die Länge nicht extra speichern
3.) meine Funktion ist universell einsetzbar. Man braucht keine globalen Variablen.
4.) falls die Datei 0 Bytes gross sein sollte, gibt es keinen Fehler (im Gegensatz zu LoadFromFileComplete)

[himitsu]

@shmia:
Hatte früher auch oftmals einen String als Datenkontainer verwendet, vorallem wegen der einfacheren Handhabung, was das Freigeben/Kopieren/Übergeben der Daten anging, obwohl ich danach öfters auch mal ein Array of Byte dafür ranzog, welches die selben "Vorteile hat" ^^
Also gefiele mir das die Pascalversion von sniper_w wohl am Besten, vorallem da der auch noch ohne einen Stream auskommt ;)
also z.B. so:

Delphi-Quellcode:

function S_pascal_ReadFileAsString(const FileName: string; var Data: String): Cardinal; 
var 
  FileHandle, BytesRead: Cardinal; 
begin 
  FileHandle := CreateFile(PChar(FileName), GENERIC_READ, 0, nil, 
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); 
  if FileHandle = INVALID_HANDLE_VALUE then 
    Error(0);  // halt irgend ein Fehler, deer euch gefällt
  try
    Result := GetFileSize(FileHandle, nil); 
    SetLength(Data, Result); 
    ReadFile(FileHandle, Data^, Result, BytesRead, nil); 
    if BytesRead <> Result then Error(0);  // und nochma
  finally
    CloseHandle(FileHandle); 
  end;
end;

Aber wer hat hier bitte globale Variablen verwendet? :gruebel:

Ach ja, jetzt setze ich für fowas eine eigene Struktur ein, wobi ich da aber auf die oben schon aufgeführten Vorteile verzichtet hab und jetzt nur noch die Daten, samt längenangabe zusammen hab ._.

also für 32 Bit sähe es dann bei mir so aus (die Funktion gäbe TRUE zurück, wenn erfolgreich und in Data wären alle wichtigen Daten drin)

Delphi-Quellcode:

Type TDataG = packed Record
    Len: LongInt;
    Data: Record  End;
  End;
  PDataG = ^TDataG;

Function ReadFile(Const FileName: AnsiString; Var Data: PDataG): Boolean;

Und wenn einige jetzt noch bitte mit prüfen könnten, ob überhaupt genug Speicher vorhanden/reserviert wurde, dann wäre es auch nicht schlecht.

[F.W.]

Zitat:

Zitat von himitsu

Und wenn einige jetzt noch bitte mit prüfen könnten, ob überhaupt genug Speicher vorhanden/reserviert wurde, dann wäre es auch nicht schlecht.

Du meinst, du willst wissen ob das Speicherreservieren erfolgreich war?
Bei GetMem würde ein Fehler auftreten, den man mit einem try...except...end;-Block abfangen könnte.
Ich kann jetzt deinen letzten Post nicht ganz nachvollziehen, wie du das mit dem record machen möchtest, aber ich denke auch da würde ein Fehler auftreten sowas wie EOutOfMemory oder sowas (keine Ahnung jetzt ob das so heißt).

[himitsu]

Ich weiß da ja, aber dieser Fehler bringt Nachteile ... (na ja, meinen eigenen MM kann ich auch so aufrufen, daß er erst garkeine Exception erzeugt :roll: )

Nimm mal z.B. mal sniper_w's Code ... da 'ne Exception und die Datei wird nichtmehr geschlossen :zwinker:

Selbst wenn GetMem/SetLength keine exception erzeugt, dann würde immernoch in den nicht reservieren Speicher geschrieben.

Und dann prüft och keiner, ob auch wirklich alles gelesen wurde .-.

[F.W.]

Dafür sind ja die try-Blöcke:

Delphi-Quellcode:

try
 //hier alles kritische ausführen, was evtl schiefgehen kann
 try
  //hier alles rein, von dem keine Exceptions angezeigt werden sollen
 except
  //der code wird nur ausgeführt wenn eine exception aufgetreten ist
 end;
finally
 //hier alles rein, was UNBEDINGT ausgeführt werden muss, egal was zwischen try und finally passiert
end;

So kann man auf sowas eingehen oder verstehe ich das Problem nicht?

[himitsu]

Ich weiß das doch, nur machen das halt nicht alle Codes, die hier so rumliegen :zwinker:

[F.W.]

Dann müssen wir das eben nachholen. ;)

Welcher Code ist jetzt eigentlich der Aktuelle? Also welcher wird verwendet?