WNetGetLastError

[Luckie]

Ich versuche gerade obige Funktion zu benutzen, aber irgendwie will es nicht klappen:

Delphi-Quellcode:

function NetErrorMessage(Error: DWORD): String;
var
  buffer: array [0..1024] of Char;
  err: DWORD;
begin
  err := Error;
  WNetGetLastError(err, buffer, sizeof(buffer), nil, 0);
  result := String(buffer);
end;

Der Buffer ist immer leer, obwohl eigentlich was drinne stehen sollte. Der Fehlercode ist 1219 und net -helpmsg 1219 gibt folgenden Text aus:

Zitat:

Mehrfache Verbindungen zu einem Server oder einer freigegebenen Ressource von de
mselben Benutzer unter Verwendung mehrerer Benutzernamen sind nicht zulässig. Tr
ennen Sie alle früheren Verbindungen zu dem Server bzw. der freigegebenen Ressou
rce, und versuchen Sie es erneut.

Das habe ich eigentlich auch im Buffer erwartet. Vorausgegangen ist ein ein Aufruf von WNetAddConnection2 welcher unteranderem das zurückgeben kann:

Zitat:

ERROR_EXTENDED_ERROR A network-specific error occurred. Call the WNetGetLastError function to obtain a description of the error.

Allerdings bekomme ich von WNetAddConnection2 1219 zurück während ERROR_EXTENDED_ERROR 1208 ist. Bei 1219 liefert SysErrorMessage allerdings einen Leerstring zurück. :gruebel:

So sieht das in der Übersicht aus:

Delphi-Quellcode:

dummy := ConnectToNetworkDrive('', ComputerTemp + '\IPC$', User, PW, False);
if dummy <> 0 then
begin
  if dummy = ERROR_EXTENDED_ERROR then
    Messagebox(hDlg, PChar(NetErrorMessage(dummy)), PChar(rsNoSelectionCaption), MB_ICONERROR)
  else
    MessageBox(hDlg, PChar(SysErrorMessage(dummy)), PChar(rsNoSelectionCaption), MB_ICONERROR);

Aber leider ist die Messagebox immer leer. :(

[shmia]

Zitat:

Zitat von Luckie

Allerdings bekomme ich von WNetAddConnection2 1219 zurück während ERROR_EXTENDED_ERROR 1208 ist. Bei 1219 liefert SysErrorMessage allerdings einen Leerstring zurück. :gruebel:

Nur wenn die Errornr = ERROR_EXTENDED_ERROR ist, dann kommt WNetGetLastError zum Zuge.
Falls SysErrorMessage nichts liefert, kann das daran liegen, dass der Errortext aus den Resourcen einer anderen DLL gezogen werden müssen:

Delphi-Quellcode:

function ErrorMessageFromModule(ErrorCode: Integer; hm:HModule): string;
var
   Len: Integer;
begin
   SetLength(Result, 512);
   Len := FormatMessage(FORMAT_MESSAGE_FROM_HMODULE (*or
    FORMAT_MESSAGE_ARGUMENT_ARRAY*) or FORMAT_MESSAGE_IGNORE_INSERTS, Pointer(hm), ErrorCode, 0, PChar(Result),
    512, nil);
   while (Len > 0) and (Result[Len - 1] in [#0..#32, '.']) do Dec(Len);
   SetLength(Result, Len);
end;

errormsg :=  ErrorMessageFromModule(errorcode, GetModuleHandle('mpr.dll'));

[Luckie]

Liefert beim Rückgabewert 1219 auch einen Leerstring. :( Deshalb habe ich es ja mit WNetGetLastError probiert. Aus welchen Modul werden sie denn normalerweise geladen?

[shmia]

Ich habe gerade noch etwas Forschungsarbeit betrieben...
Die Meldung ist in kernel32.dll abgelegt.
Mit einem (guten) Resourceneditor (z.B. http://www.wilsonc.demon.co.uk/d7resourceexplorer.htm) kann man sich die "MessageTable" von kernel32.dll anzeigen lassen.
Das Problem scheint daran zu liegen, dass SysErrorMessage max 255 Zeichen liefen kann. :twisted:
Folgendes klappt aber:

Delphi-Quellcode:

function ErrorMessageFromModule(ErrorCode: Integer; hm:HModule): string;
var
   Len: Integer;
begin
   SetLength(Result, 2048-16); // das sollte in 2kb gerade noch reinpassen
   Len := FormatMessage(FORMAT_MESSAGE_FROM_HMODULE (*or
    FORMAT_MESSAGE_ARGUMENT_ARRAY*) or FORMAT_MESSAGE_IGNORE_INSERTS, Pointer(hm), ErrorCode, 0, PChar(Result),
    Length(Result), nil);
   while (Len > 0) and (Result[Len - 1] in [#0..#32, '.']) do Dec(Len);
   SetLength(Result, Len);
end;

ShowMessage(ErrorMessageFromModule(1219, GetModuleHandle('kernel32.dll')));

[Luckie]

Zitat:

Zitat von shmia

Das Problem scheint daran zu liegen, dass SysErrorMessage max 255 Zeichen liefen kann. :twisted:

Na bingo, mal wieder eine Glanzleistung von Microsoft. ;)

Zitat:

Folgendes klappt aber:
[..]

Aaaah. Besten Dank.