Large_Integer SetFilePointerEx Error 183

[EWeiss]

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