Hier die Fortführung
aus diesen Thread.
Ich habe jetzt GetFileSizeEx mit eingebunden
Die Funktion dahingehend geändert
Delphi-Quellcode:
function TAnimatePng.FSeek(hFile: THandle; PosByte: Int64): LongInt;
var
li: TLargeInteger; // oder Int64
begin
li := PosByte;
Result := 0;
if SetFilePointerEx(hFile, li, nil, FILE_BEGIN) <> 0 then
Result := GetLastError();
end;
dementsprechend überall PosByte: Int64 definiert und den BufferSize angepasst. BufferSize: Int64;
Kommt immer der gleiche Fehler Error 183
EDIT:
Denke mal das Problem liegt hier
if SetFilePointerEx(hFile, li, nil, FILE_BEGIN) <> 0 then
result ist aber Bool
if SetFilePointerEx(hFile, li, nil, FILE_BEGIN) = false then
hoffe mal das es so stimmt.
War wohl irgendwie überarbeitet gestern Nacht. LOL.
gruss