Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

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

StatusCodes von UrlDownloadToFile

  Alt 3. Feb 2004, 06:36
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?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat