Problem mit TDownloadURL

[iphi]

Hallo,

ich versuche mit meinem Code eine Datei aus dem Internet herunterzuladen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ExtActns, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure URL_OnDownloadProgress
         (Sender: TDownLoadURL;
          Progress, ProgressMax: Cardinal;
          StatusCode: TURLDownloadStatus;
          StatusText: String; var Cancel: Boolean) ;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.URL_OnDownloadProgress;
 begin
    ProgressBar1.Max:= ProgressMax;
    ProgressBar1.Position:= Progress;
 end;

procedure TForm1.Button1Click(Sender: TObject);
const
  URL='http://www.sdr-kits.net/DG8SAQ/VNWA-installer.exe';
  Dest= 'd:\VNWA-installer1.exe';
var
  dl: TDownloadURL;
begin
  dl := TDownloadURL.Create(self); 
  try 
    dl.URL := URL;
    dl.FileName := Dest;
    //dl.OnDownloadProgress := URL_OnDownloadProgress;   //ExecuteTarget cashes if uncommented
    dl.ExecuteTarget(nil); //this downloads the file 
    dl.Free; 
  except 
    dl.Free; 
  end; 
end;

end.

Das Herunterladen funktioniert, aber wenn ich den OnDownloadProgress zuweise, dann macht der ExecuteTarget eine Exception 'Invalid Enum Value'.

???

[mkinzler]

Die Methode hat keine passende Signatur

http://docs.embarcadero.com/products...ressEvent.html

[iphi]

Zitat:

Die Methode hat keine passende Signatur

Was bedeutet das? Was kann ich dagegen tun?

[himitsu]

Schau dir mal die vorgegebenen Parameter des verwendeten (und von mkinzler verlinkten) Events an und vergleiche diese mit den Parametern deiner Ereignismethode.

[mkinzler]

Die Signatur der Methode anpassen.

Delphi-Quellcode:

procedure TForm1.URL_OnDownloadProgress (Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean);

[iphi]

Stimmt doch überein!?

Meine Deklaration:

Delphi-Quellcode:

procedure URL_OnDownloadProgress
          (Sender: TDownLoadURL;
           Progress, ProgressMax: Cardinal;
           StatusCode: TURLDownloadStatus;
           StatusText: String; var Cancel: Boolean);

Die vom Link:

Delphi-Quellcode:

TDownloadProgressEvent = procedure (Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean) of object;

Bin ich blind?

[iphi]

Zitat:

Die Signatur der Methode anpassen.

procedure TForm1.URL_OnDownloadProgress (Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean);

Hab ich gemacht, das ändert am Fehler nichts. Anscheinend genügt es die Signatur nur einmal (ganz oben) zu definieren.

[mkinzler]

Nein, auch bei der Implementation muss man diese angeben. Denn man könnte die Methode auch überladen.

[DeddyH]

Unter Delphi XE kann ich den Fehler nicht reproduzieren.

[iphi]

Zitat:

Nein, auch bei der Implementation muss man diese angeben. Denn man könnte die Methode auch überladen.

Müsste man dann nicht Overload angeben?

Auf meinem Delphi6 läuft das jedenfalls fehlerfrei:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure Add(i,j: Cardinal; var k: Cardinal);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Add;
begin
k:=i+j;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x: Cardinal;
begin
Add(1,2,x);
Label1.Caption:=inttostr(x);
end;

end.