Frage zu "SysErrorMessage()" und "GetLastError()"

[kcx]

Hallo,

Ich frage mich, wieso folgender Code immer eine leere Fehlerbeschreibung zurückliefert, anstatt etwas wie z.B "Login failed" oder "Incorrect username or password" o.Ä.

Delphi-Quellcode:

uses
  WinInet;

procedure TForm1.Button1Click(Sender: TObject);
var
  hInternetOpen, hInternetConnect: HINTERNET;
begin
  hInternetOpen := InternetOpen('FTP', INTERNET_OPEN_TYPE_DIRECT, '', '', 0);
  if Assigned(hInternetOpen) then
    try
      hInternetConnect := InternetConnect(hInternetOpen, 'ftp.microsoft.com', INTERNET_DEFAULT_FTP_PORT, 'irgendwas', 'keineahnung', INTERNET_SERVICE_FTP, 0, 0);
      if Assigned(hInternetConnect) then
        try
          ShowMessage('OK');
        finally
          InternetCloseHandle(hInternetConnect);
        end
      else
        ShowMessage(SysErrorMessage(GetLastError));
    finally
      InternetCloseHandle(hInternetOpen);
    end
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;

Auch wenn ich anstatt ftp.microsoft.com einen Server nehme, der nicht existiert, liefert "SysErrorMessage()" keine Fehlerbeschreibung.
Wieso?

[kcx]

Scheinbar nimmt "SysErrorMessage()" keine WinInet Fehlercodes an. Gibt es dafür evtl. eine andere Funktion oder so?

[Muetze1]

Zitat von kcx:

Gibt es dafür evtl. eine andere Funktion oder so?

Ja, die dafür von der WinINet zur Verfügung gestellte Funktion InternetGetLastResponseInfo(), welche du immer aufrufen solltest, wenn GetLastError() dir ERROR_INTERNET_EXTENDED_ERROR zurück gibt.

[kcx]

Nur gibt "GetLastError()" mir nicht ERROR_INTERNET_EXTENDED_ERROR zurück und wenn ich "InternetGetLastResponseInfo()" trotzdem aufrufe, bekomme ich nur die Antworten vom FTP Server zurück, aber keine Fehlerbeschreibung!

[Muetze1]

Hmm, ok, ich probier selber mal ein wenig rum...

[kcx]

Zitat von Muetze1:

Hmm, ok, ich probier selber mal ein wenig rum...

Danke, haste etwas rausgefunden?

Ich hoffe mal nicht, dass ich mir extra eine Funktion basteln muss, die jeden einzelnen Code überprüft...

[Muetze1]

Zitat von kcx:

Danke, haste etwas rausgefunden?

Jain, eigentlich nur, dass...

Zitat von kcx:

Ich hoffe mal nicht, dass ich mir extra eine Funktion basteln muss, die jeden einzelnen Code überprüft...

... ich genau das gemacht hatte bei meinem Beispielcode. Ich habe es nochmal getestet, die SysErrorMessage() Funktion liefer einen Leerstring, somit bleibt dir nichts anderes übrig.