Hallo zusammen.
Ich arbeite zum ersten Mal mit Streams und das Schreiben in eine Datei klappt auch schon ganz gut.
Allerdings kommt bei meine Ausleseroutine nicht raus - soll heißen in dem Array stehen nur Nullen
So habe ich es gemacht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
FileStream : TFileStream;
SearchRec : TSearchRec;
NumberOfBytes : Int64;
DataToParse : array of byte;
begin
FileStream := TFileStream.Create('StreamTest.txt', fmOpenRead);
try
FindFirst('StreamTest.txt', faAnyFile, SearchRec);
NumberOfBytes := SearchRec.Size;
SysUtils.FindClose(SearchRec);
SetLength(DataToParse, NumberOfBytes);
FileStream.Read(DataToParse, NumberOfBytes);
finally
FreeAndNil(FileStream);
end;
end;
Wo liegt der Fehler?
Vielen Dank.