1 Megabyte von einer großen Datei einlesen?

[R0BIN]

Hi,


wie kann ich z.B. nur den ersten Megabyte einer 12 Megabyte Datei einlesen und ausgeben lassen...z.B. in einem Memo!

R0BIN

[Zacherl]

Wiederum lautet das Zauberwort TFileStream ...

Florian

[R0BIN]

ja weiß ich, hab das probiert, denke aber das ist falsch

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);

var LStream: TFileStream; 
    LBuffer: String;
    laenge : integer;
begin
  laenge := 1024 * 1024 * 1;
  SetLength(LBuffer, laenge);
  LStream := TFileStream.Create(Edit1.Text, fmOpenRead);
  LStream.Read(LBuffer[1], laenge);


  LStream.Free;
  memo1.text := LBuffer;
end;

[Christian Seehase]

Moin Robin,

also mal abgesehen vom fehlenden try/finally, um das Freigeben des FileStreams abzusichern, sieht das für die gegebene Aufgabenstellung korrekt aus.

[Sunlight7]

Zitat:

Zitat von Florian Bernd

Wiederum lautet das Zauberwort TFileStream ...

Und wiedermal frag ich, warum mit den FileStreams abquälen?

[R0BIN]

Danke, es scheint wirklich zu gehen, weiß nicht wo gestern der Fehler drin war....

[alzaimar]

Zitat:

Zitat von Sunlight7

Zitat:

Zitat von Florian Bernd

Wiederum lautet das Zauberwort TFileStream ...

Und wiedermal frag ich, warum mit den FileStreams abquälen?

Womit quälst Du Dich denn?

@ROBIN: Es fehlt eine Kleinigkeit: Wenn die Datei doch nicht groß genug ist, arbeitet die Routine nicht korrekt:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var 
  LStream: TFileStream;
  LBuffer: String;
  laenge : integer;

begin
  laenge := 1024 * 1024 * 1;
  SetLength(LBuffer, laenge);
  LStream := TFileStream.Create(Edit1.Text, fmOpenRead);
  Try
    laenge := LStream.Read(LBuffer[1], laenge);  // Read liefert die Anzahl wirklich gelesener Bytes
    SetLength (LBuffer, laenge); // Hier wird die Bufferlänge korrigiert
  Finally
    LStream.Free;
  End;
  memo1.text := LBuffer;
end;