AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

WNetGetLastError

Ein Thema von Luckie · begonnen am 29. Nov 2005 · letzter Beitrag vom 30. Nov 2005
Antwort Antwort
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#1

WNetGetLastError

  Alt 29. Nov 2005, 19:40
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.

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.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

Re: WNetGetLastError

  Alt 29. Nov 2005, 19:55
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.
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'));
Andreas
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#3

Re: WNetGetLastError

  Alt 29. Nov 2005, 20:01
Liefert beim Rückgabewert 1219 auch einen Leerstring. Deshalb habe ich es ja mit WNetGetLastError probiert. Aus welchen Modul werden sie denn normalerweise geladen?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#4

Re: WNetGetLastError

  Alt 30. Nov 2005, 10:08
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.
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')));
Andreas
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

Re: WNetGetLastError

  Alt 30. Nov 2005, 12:36
Zitat von shmia:
Das Problem scheint daran zu liegen, dass SysErrorMessage max 255 Zeichen liefen kann.
Na bingo, mal wieder eine Glanzleistung von Microsoft.

Zitat:
Folgendes klappt aber:
[..]
Aaaah. Besten Dank.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz