Binäre Datei erstellen

[3_of_8]

Dann zeig doch mal, was du bis jetzt hast.

[snake41300]

Ich habe bis jetzt Folgendes versucht:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var fs: TFileStream;
    b: Byte;
begin

fs := TFileStream.Create('test.txt', fmOpenRead);
fs.Read(b,1);
showmessage(chr(b));
fs.Free;

end;

leider gibt aber die Message nichts aus, obwohl es sich um eine Textdatei handelt.

[toms]

gib mal anstatt 'test.txt' den vollen Pfadnamen an.

[snake41300]

Es funktioniert jetzt, komischerweise war die Textdatei leer, deswegen kam nichts zurück.
Danke führ eure Hilfe
Gruß Snake41300

[snake41300]

Jetzt habe ich das Problem, wenn ich die Länge eines FileStreams nicht kenne, das ich nicht weiß bis wohin ich lesen muss. Ich habe schon versucht mit FileStream.Size und sizeof die Länge festzustellen. Aber beides funktionierte nicht.

[jaenicke]

Size ist schon richtig. Das ist die Größe des Dateiinhalts in Byte.