Ahoj,
mám velkou prosbu. Už několik dní se trápím s tím proč, kód, který by měl fungovat, nefunguje a nikde to nemůžu vygooglit. Háže access violation at.. na řádku FSourceFile.Seek(0, soBeginning).
Zkoušel jsem i Position:=0, soFromBeginning nebo fmShareDenyNone.
Zkoušel jsem v Delphi 2010 a XE2.
procedure TForm1.Button2Click(Sender: TObject);
var FSourceFile: TFileStream;
PreambleBuf: TBytes;
begin
FSourceFile := TFileStream.Create('c:\Users\ja\Documents\test.txt', fmOpenReadWrite);
SetLength(PreambleBuf, 100);
FSourceFile.Read(PreambleBuf, Length(PreambleBuf));
FSourceFile.Seek(0, soBeginning); // potřebuji vrátit na začátek pro následné načítání a to nejde
...
end;
Díky moc za jakoukoliv pomoc!