Large_Integer SetFilePointerEx Error 183

[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

[Luckie]

Ah. Das ist der Krampf mit den unterschiedlichen Definitionen von Wahrheitswerten von Delphi und WinAPI. Was ist denn Fehler 183 überhaupt?

[Zacherl]

Zitat von Luckie:

Was ist denn Fehler 183 überhaupt?

Zitat:

ERROR_ALREADY_EXISTS
183 (0xB7)
Cannot create a file when that file already exists.

Macht irgendwie wenig Sinn im Zusammenhang mit der genannten API.

@Emil:
Kannst du mal mehr Code zeigen?

[EWeiss]

Zitat von Zacherl:

Zitat von Luckie:

Was ist denn Fehler 183 überhaupt?

Zitat:

ERROR_ALREADY_EXISTS
183 (0xB7)
Cannot create a file when that file already exists.

Macht irgendwie wenig Sinn im Zusammenhang mit der genannten API.

@Emil:
Kannst du mal mehr Code zeigen?

Jo

Ich öffne die Datei auf diese weise

Delphi-Quellcode:

    if FOpen(PWideChar(wsFile), 0, 0, hFileIn) = 0 then
    begin

Delphi-Quellcode:

function TAnimatePng.FOpen(FileName: PWideChar; AccessMode: DWORD; ShareMode: DWORD;
  var hFile: THandle): DWORD;
var
  AccessIs: DWORD;
  ShareIs: DWORD;
  FlagAndAttribute: DWORD;
begin
  AccessMode := min(max(AccessMode, 0), 2);
  //0 Nur lesend öffnen.
  if AccessMode = 0 then
    AccessIs := GENERIC_READ
  // 1 Nur zum schreiben öffnen.
  else if AccessMode = 1 then
    AccessIs := GENERIC_WRITE
  // 2 Zum Schreiben und lesen öffen
  else
  AccessIs := GENERIC_READ or GENERIC_WRITE;

  // Kohärenz zwischen 1-4
  ShareMode := min(max(ShareMode, 1), 4);
  // 1 Verweigerter Lese/Schreibzugriff.
  if ShareMode = 1 then
    ShareIs := 0
  // 2 Verweigerter Schreibzugriff
  else if ShareMode = 2 then
    ShareIs :=  FILE_SHARE_READ
  // 3 Verweigerter Lesezugriff
  else if ShareMode = 3 then
    ShareIs :=  FILE_SHARE_WRITE
  // 4 Vollerzugriff
  else
  ShareIs :=  FILE_SHARE_READ or FILE_SHARE_WRITE;

  if hFile = INVALID_HANDLE_VALUE then
    FlagAndAttribute := FILE_ATTRIBUTE_NORMAL or FILE_FLAG_WRITE_THROUGH
  else
  FlagAndAttribute := FILE_ATTRIBUTE_NORMAL;

  hFile := CreateFile(FileName, AccessIs, ShareIs, nil, OPEN_ALWAYS, FlagAndAttribute, 0);

  if hFile = INVALID_HANDLE_VALUE then
  begin
    Result := GetLastError();
    hFile := 0;
    exit;
  end;
  Result := 0;
end;

Hilft das ?

gruss

[Zacherl]

Zitat von EWeiss:

Hilft das ?

Jep. CreateFile sagt im Bezug auf OPEN_ALWAYS folgendes:

Zitat:

Opens a file, always.
If the specified file exists, the function succeeds and the last-error code is set to ERROR_ALREADY_EXISTS (183).
If the specified file does not exist and is a valid path to a writable location, the function creates a file and the last-error code is set to zero.

Dementsprechend vermute ich, dass bereits dieser Aufruf bereits den 183 erzeugt und durch irgendeinen Logik Fehler (evtl. Der, den Luckie schon gefunden hatte) liest deine nachfolgende Routine den alten Code aus.

Edit:
Warum machst du das ganze Gedöhns eigentlich manuell mit der WinAPI und verwendest nicht TFileStream ?

[EWeiss]

[QUOTE=Zacherl;1365342]

Zitat von EWeiss:

Hilft das ?

Jep. CreateFile sagt im Bezug auf OPEN_ALWAYS folgendes:

Zitat:

Opens a file, always.
If the specified file exists, the function succeeds and the last-error code is set to ERROR_ALREADY_EXISTS (183).
If the specified file does not exist and is a valid path to a writable location, the function creates a file and the last-error code is set to zero.

Dementsprechend vermute ich, dass bereits dieser Aufruf bereits den 183 erzeugt und durch irgendeinen Logik Fehler (evtl. Der, den Luckie schon gefunden hatte) liest deine nachfolgende Routine den alten Code aus.

Edit:

Zitat:

Warum machst du das ganze Gedöhns eigentlich manuell mit der WinAPI und verwendest nicht TFileStream ?

Dann gehe ich davon aus das ich gar nicht auf large_integer umsteigen muss oder? Hab noch keine APNG in der Größe von mehr wie 2GB gesehen.
Denn auch hier wird der selbe Fehler generiert.

Ignorieren oder was tun? Das ist die Frage. LOL

EDIT:

Zitat:

Warum machst du das ganze Gedöhns eigentlich manuell mit der WinAPI und verwendest nicht TFileStream ?

Würde ich gerne tun wenn ich wüsste wie.
Hab da noch nicht viel mit gemacht.



gruss

[Luckie]

Er will die VCL nicht einbinden. Und dazu zählen für ihn auch die nicht sichtbaren Klassen.

[EWeiss]

Zitat von Luckie:

Er will die VCL nicht einbinden. Und dazu zählen für ihn auch die nicht sichtbaren Klassen.

Nein hat damit nichts zu tun
Würde TFileStream verwenden wenn ich damit mehr Erfahrung hätte.

Wüsste jetzt nicht das TFileStream ein THandle zurück liefert.
Und wie ich solche dinge damit behandeln sollte

BufferSize := FLof(hFileIn) - anih.offset - sizeof(anih) + 1;

Der sinn des ganzen ist, eine APNG Classe zur Verfügung zu stellen ohne 1000 Units einer mitunter nicht funktionierenden Library einzubinden.
Ich bin gern unabhängig von fremden Komponenten und mit den Aufwand diese alle einzubinden.
Das ist ein Hobby von mir und ich teile gern.


gruss

[Zacherl]

Das Problem ist NICHT SetFilePointer oder SetFilePointerEx, sondern ein Logikfehler an anderer Stelle, der deine eigene Seek -Funktion fälschlicherweise den alten Error Code von CreateFile zurückgeben lässt. Sprich: Eigentlich gibt es keinen Fehler, aber dein eigener Code denkt dennoch, dass Einer aufgetreten ist. Dieses Logikproblem solltest du als allererstes beheben. Danach - wenn es tatsächlich Non-VCL und auch Non-RTL sein soll - würde ich auf OPEN_EXISTING umsteigen, da es für deinen rein lesenden Anwendungszweck die deutlich bessere Wahl ist.

Wenn die RTL bzw. TFileStream ok ist, dann wäre dies auf jeden Fall die allereinfachste Möglichkeit. Das eigentliche Datei-Handle wird vom Stream weggekapselt, aber das solltest du eigentlich auch gar nicht benötigen. Btw. TFileStream unterstützt (zumindest in Delphi 10.1) auch ein Seek mit 64-Bit Offset, wobei das wohl tatsächlich bei dir nicht von Relevanz ist.