StatusCodes von UrlDownloadToFile

[Luckie]

Ich benutze folgende Code zum Runterladen von Dateien (das ist die Callback):

Delphi-Quellcode:

function cDownloadStatusCallback.OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult;
var
  s: String;
begin
  case ulStatusCode of
    BINDSTATUS_FINDINGRESOURCE:
    begin
      s := 'Datei gefunden...';
      SendMessage(FHandle, M_DOWNLOADFINDRES, 0, Integer(PChar(s)));
      if (usercancel) then
      begin
        Result := E_ABORT;
        exit;
      end;
    end;
    BINDSTATUS_CONNECTING:
    begin
      s := 'Verbindung herstellen...';
      SendMessage(FHandle, M_DOWNLOADCONNECTING, 0, Integer(Pchar(s)));
      if (usercancel) then
      begin
        Result := E_ABORT;
        exit;
      end;
    end;
    BINDSTATUS_BEGINDOWNLOADDATA:
    begin
      s := 'Download wird gestartet...';
      SendMessage(FHandle, M_BEGINDOWNLOADSTART, 0, Integer(PChar(s)));
      ProcessMessages(FHandle);
      if (UserCancel) then
      begin
        Result := E_ABORT;
        exit;
      end;
    end;
    BINDSTATUS_DOWNLOADINGDATA:
    begin
      s := 'Datei wird runtergelanden...';
      SendMessage(FHandle, M_DOWNLOADPROGRESS, 0, Integer(PChar(s)));
      SendMessage(FHandle, M_DOWNLOADPROGRESS, MulDiv(ulProgress,100,ulProgressMax), 0);
      ProcessMessages(FHandle);
      if (UserCancel) then
      begin
        Result := E_ABORT; exit;
      end;
    end;
    BINDSTATUS_ENDDOWNLOADDATA:
    begin
      s := 'Download beendet.';
      SendMessage(FHandle, M_DOWNLOADFINISH, 0, Integer(PChar(s)));
    end;
  end;
  ProcessMessages(FHandle);
  Result := S_OK; 
end;

Wo findet man da noch Statuscodes und deren Bedeutung zu? Das können nicht alle sein, 14 habe ich zum Beispiel noch entdeckt. Und welcher Statuscode wird bei einem Fehler zurückgeliefert, TimeOut vom Server zum Beispiel oder wenn die Datei nicht gefunden wurde. Also wie gesagt, was gibt es da noch alles?

[chris]

huhu,

kurz und schmerzlos: http://msdn.microsoft.com/library/de...bindstatus.asp

[Luckie]

Hm. danke. warum habe ich da nichts gefunden? :wall:

[stoxx]

einen Fehler, wenn die Datei nicht gefunden wurde, kommt dort glaub ich überhaupt nicht.

da Musst Du die Rückmeldung direkt von URLDownloadToFile nehmen.

fehler := URLDownloadToFile(nil,Pchar(source), Pchar(ziel), 0 , CDownStatus);

Wenn fehler <> 0 dann passt irgendwas nicht.


Gruß stoxx