Dateiname aus Dateihandle ermitteln

[Luckie]

Ich habe hier folgende Funktion, um zu einem Dateihandle den dateinamen zu ermitteln:

Delphi-Quellcode:

type
  PIO_STATUS_BLOCK = ^IO_STATUS_BLOCK;
  IO_STATUS_BLOCK = packed record
    Status: NTSTATUS;
    Information: DWORD;
  end;
  TIOStatusBlock = IO_STATUS_BLOCK;

  PFILE_NAME_INFORMATION = ^FILE_NAME_INFORMATION;
  FILE_NAME_INFORMATION = packed record
    FileNameLength: ULONG;
    FileName: array[0..MAX_PATH - 1] of WideChar;
  end;
  TFileNameInformation = FILE_NAME_INFORMATION;

  PUNICODE_STRING = ^TUNICODE_STRING;
  TUNICODE_STRING = packed record
    Length: WORD;
    MaximumLength: WORD;
    Buffer: array[0..MAX_PATH - 1] of WideChar;
  end;

  POBJECT_NAME_INFORMATION = ^OBJECT_NAME_INFORMATION;
  OBJECT_NAME_INFORMATION = packed record
    Name: TUNICODE_STRING;
  end;
  TObjectNameInformation = OBJECT_NAME_INFORMATION;

var
  NtQueryInformationFile: function(FileHandle: THandle;
    IoStatusBlock: PIO_STATUS_BLOCK;
    FileInformation: Pointer;
    Length: DWORD; FileInformationClass: DWORD): NTStatus; stdcall = nil;

  NtQueryObject     : function(ObjectHandle: THandle;
    ObjectInformationClass: DWORD; ObjectInformation: Pointer;
    ObjectInformationLength: ULONG;
    ReturnLength: PDWORD): NTStatus; stdcall = nil;

function GetFileNameByHandle(FileHandle: THandle): string;
var
  FileNameInfo      : TFileNameInformation;
  ObjectNameInfo    : TObjectNameInformation;
  IoStatusBlock     : TIOStatusBlock;
  res, dwReturn     : DWORD;
begin
  result := '';
  Writeln(FileHandle);
  res := NtQueryInformationFile(FileHandle, @IoStatusBlock, @FileNameInfo,
    SizeOf(FileNameInfo.FileName), FileNameInformation);
  if res = STATUS_SUCCESS then
  begin
    res := NtQueryObject(FileHandle, ObjectNameInformation,
      @ObjectNameInfo, SizeOf(ObjectNameInfo.Name.Buffer), @dwReturn);
    if res = STATUS_SUCCESS then
    begin
      SetLength(result, MAX_PATH);
      SetLength(result, WideCharToMultiByte(CP_ACP, 0,
        @ObjectNameInfo.Name.Buffer[ObjectNameInfo.Name.MaximumLength -
        ObjectNameInfo.Name.Length],
          ObjectNameInfo.Name.Length div SizeOf(WideChar),
        @result[1], MAX_PATH, nil, nil));
    end
    else
    begin
      SetLength(result, MAX_PATH);
      SetLength(result, WideCharToMultiByte(CP_ACP, 0,
        @FileNameInfo.FileName[0], FileNameInfo.FileNameLength div
        SizeOf(WideChar), @result[1], MAX_PATH, nil, nil));
    end;
  end;
end;

Ich habe eine Liste von Dateihandle, die ich durchgehe und die obige Funktion für jedes Handle aufrufe. Jetzt ist es allerdings so, dass der Code stecken bleibt, wenn ich obigen Code verwende. Das heißt, er arbeitet die Liste nicht mehr ab und hört mitten drin auf. Kommentiere ich den Aufruf der Funktion aus, geht er die ganze Liste bis zum Ende durch.
Was ist an der Funktion falsch, dass er dort "hängenbleibt"?

[nicodex]

Dein Code ist nicht falsch, er kehrt nur nie zurück, da die Objekte auf die Abfrage nicht anworten bzw. nicht/nie bereit sind, um die Anfrage abzuarbeiten.

Da ganze in Threads auszulagern verschiebt nur das Problem (da hilft auch kein CancelIoEx). Wenn du den Thread beendest und die Anfrage doch noch zurückkehrt, dann zeigen die Pointer auf einen nicht mehr gültigen Speicherbereich. Eigentlich sollte das kein Problem sein - aber in der Praxis kommt es zu Problemen mit Kernel-Komponenten (Treiber, Filter, Viren-Scanner), was im schlimmsten Fall zu BSODs führt.

Zudem ist es in der Praxis schwierig, _jedes_ "Datei"-Handle abzufragen. Durch die Anfrage werden Pipes/Mailslots/etc "ausgelöst", was dazu führt, dass Wait- und Read-Funktionen zurückkehren - natürlich ohne Daten zur Verfügung zu haben. Wenn die Programme mit diesem Fall nicht umgehen können (nur ein Beispiel von vielen: Tobit David’s interne Inter-Prozess-Kommunikation), dann kommt es zu Fehlern und Zugriffsverletzungen in den entsprechenden Programmen.

Eine saubere Lösung für den Benutzermodus kenne ich nicht.

[Luckie]

Also in der Liste sollten sich nur Objekte vom Typ:

Delphi-Quellcode:

if HandlesInfo^.Information[r].ObjectTypeNumber = OB_TYPE_FILE then

befinden.

[himitsu]

du kannst auch gern mal nach sehn, was ich bei ReopenFile für einen Mist verbrockt hab :freak:

[Luckie]

Den Beitrag habe ich auch schon gefunden, nur habe ich ihn (noch) nicht zum Laufen gebracht.

[himitsu]

im Endefekt hatte ich bei meinem Projekt dann doch ohne ReopenFile weitergemacht
und das hier erstmal auf Eis gelegt :angel2:

im Anhang ist mein letztes Testprojekt.
Ich weiß jetzt aber grad nicht in wie weit es funktionierte ...
hab grad kein Delphi bei mir :oops:

[nicodex]

Zitat:

Zitat von Luckie

Also in der Liste sollten sich nur Objekte vom Typ:

Delphi-Quellcode:

if HandlesInfo^.Information[r].ObjectTypeNumber = OB_TYPE_FILE then

befinden.

Pipes und Mailslots sind (u.a.) auch "Datei"-Objekte.

ps: Der Wert für den Objekttyp "File" ist übrigens nicht statisch. Du solltest ihn ermitteln (native API).