Hallo,

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

zusammenfalten · markieren

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'.

???

Die Methode hat keine passende Signatur

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

Zitat:

Die Methode hat keine passende Signatur

Was bedeutet das? Was kann ich dagegen tun?

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

Die Signatur der Methode anpassen.

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

Stimmt doch überein!?

Meine Deklaration:

markieren

Delphi-Quellcode:

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

Die vom Link:
TDownloadProgressEvent = procedure (Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean) of object;
Bin ich blind?

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.

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

Unter Delphi XE kann ich den Fehler nicht reproduzieren.

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:

zusammenfalten · markieren

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.