Irgendwie bekomme ich es nicht hin genau bis zum CR LF abzuschneiden. So habe ich es versucht
Delphi-Quellcode:
var
FileStream : TFileStream;
Reader: TStreamReader;
buffer: string;
posCRLF: Integer;
begin
try
FileStream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'log.txt', fmopenreadwrite);
Reader := TStreamReader.Create(FileStream);
if FileStream.Size > 1000000 then
FileStream.Size := 1000000;
filestream.Position := 999900;
buffer := Reader.ReadToEnd;
FileStream.Size := 999900 + SizeOf(copy(buffer, 1, pos(char(13) , buffer)));
finally
Reader.Free;
FileStream.Free;
end;
end;
Er schneidet aber immer zu viel ab.
Weis einer wie ich ich es richtig berechnen muss?
Gruss
Andreas