URLDownloadtoFile abbrechen?

[Tillmet]

Hi
Also, mein kleines Problem ist, ich habe hier ein fast fertiges Programm, nur bei dem Updater des Programmes soll der Benutzer nicht nur auf Starten klicken können und sich dann durch URLDownloadtoFile und einem Statusbalken ansehen könne, wie weit der Download ist, sonder er soll ihn auch notfalls abbrechen können, was muss ich da bitte in den Abbrechen Button schreiben?

[toms]

Hi!


Implementiere IBindStatusCallback von URLDownloadToFIle (siehe z.B http://www.delphipraxis.net/internal_redirect.php?t=75)
und frage im OnProgress von IBindStatusCallback ab, ob der Abbrechen-Button angeklickt wurde (mittels Vergleich einer Boolean-Variable)

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    AbbrechenButton: TButton;
   procedure AbbrechenButtonClick(Sender: TObject);
  private
    { Private declarations }
    FCancelDownLoad : Boolean;
  public
    { Public declarations }
  end;

function cDownloadStatusCallback.OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult; 
begin 
 //....Code...
 if FCancelDownLoad then // Download abgebrochen?
  Result := E_ABORT;  
 //....Code...
end;

procedure TForm1.AbbrechenButtonClick(Sender: TObject);
begin
 FCancelDownLoad := True; // Download abbrechen
end;

[Tillmet]

Hmm, vom Sinn her verstehe ich es, müsste so auch gehen, aber es will nicht so ganz. Ich nutze diese IBind funktion übrigens, hatte ich nur vergessen zu schreiben. Ich habe das ganze in einer Unit ausgelagert, aber daran sollte es ja nicht liegen, oder?


Meine Codestelle:

Delphi-Quellcode:

function cDownloadStatusCallback.OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult;
begin
  case ulStatusCode of
    BINDSTATUS_FINDINGRESOURCE:
    begin
      InternetUpdater.Label1.Caption := 'Datei wurde gefunden...';

    end;



    BINDSTATUS_CONNECTING:
    begin
      InternetUpdater.Label1.Caption := 'Es wird verbunden...';

    end;
    BINDSTATUS_BEGINDOWNLOADDATA:
    begin 
      InternetUpdater.Gauge1.Progress := 0;
      InternetUpdater.Label1.Caption := 'Der Download wurde gestartet...';

    end;



    BINDSTATUS_DOWNLOADINGDATA:
    begin
    if FCancelDownLoad then // Download abgebrochen?
    Result := E_ABORT;

      InternetUpdater.Gauge1.Progress := MulDiv(ulProgress,100,ulProgressMax);
      InternetUpdater.Label1.Caption := 'Datei wird heruntergeladen...';

    end;
    BINDSTATUS_ENDDOWNLOADDATA:
    begin
      InternetUpdater.Label1.Caption := '';
    end;
  end;
  Application.ProcessMessages;

  Result := S_OK;
end;

Edit: Ich glaube, ich habs gleich, warte mal mit der Auflösung ^^


Edit2: Jop, habe es gelöst, vielen Dank, jetzt ist das Programm fertig ^^ DANKE