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

[Zacherl]

Delphi-Quellcode:

if SetFilePointerEx(hFile, li, nil, FILE_BEGIN) <> 0 then
  Result := GetLastError();

Solltest du nicht machen, da GetLastError im Erfoglsfall tatsächlich undefiniert sein bzw. noch den Status eines alten API Aufrufs zurückgeben kann.

[Luckie]

Äh:

Code:

Return value

If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

Das:

Delphi-Quellcode:

if SetFilePointerEx(hFile, li, nil, FILE_BEGIN) <> 0 then
    Result := GetLastError();

ist also falsch. Du musst auf Null testen.

[EWeiss]

Ich danke für eure Hilfe aber jetzt weis ich gar nichts mehr.

auf = False, oder auf = 0, oder auf = <> 0

gruss

[Luckie]

Kommt drauf an, was du machen willst. Willst du auf den Fehlschlag reagieren auf 0.

Zitat:

If the function fails, the return value is zero. To get extended error information, call GetLastError.

[EWeiss]

Zitat von Luckie:

Kommt drauf an, was du machen willst. Willst du auf den Fehlschlag reagieren auf 0.

Zitat:

If the function fails, the return value is zero. To get extended error information, call GetLastError.

also SetFilePointer Rückgabe = DWORD also <> 0
  if SetFilePointer(hFile, li, nil, FILE_BEGIN) <> 0 then

gleicht error 183.

SetFilePointerEx Rückgabe = BOOL
  if SetFilePointerEx(hFile, li, nil, FILE_BEGIN) = false then

Was soll da jetzt falsch sein?

gruss