Hi,
mein Problem ist, wenn ich versuche den Code zu kompilieren kommt folgender Fehler:
| Zitat: |
| [Fehler] Unit1.pas(144): Inkompatible Typen: 'Liste der Parameter ist unterschiedlich' |
Zeile 144 ist folgendes:
OnDownloadProgress := URL_OnDownloadProgress;
Wenn ich diese Zeile einkommentiere kann man den Code zwar kompilieren, aber URL_OnDownloadProgress wird nicht ausgeführt. So habe ich diese Funktion deklariert:
Delphi-Quelltext
1:
2:
3:
4:
| procedure URL_OnDownloadProgress(Sender: TDownLoadURL;
Progress, ProgressMax: Cardinal;
StatusCode: TURLDownloadStatus;
var Cancel: Boolean); |
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
| procedure Tform1.URL_OnDownloadProgress;
begin
case StatusCode of
dsFINDINGRESOURCE:
Label3.Caption := 'Downloadstatus: Datei wurde gefunden...';
dsCONNECTING:
Label3.Caption := 'Downloadstatus: Es wird verbunden...';
dsBEGINDOWNLOADDATA:
Label3.Caption := 'Downloadstatus: Der Download wird gestartet...';
dsDOWNLOADINGDATA:
begin
ProgressBar.Max:= ProgressMax;
ProgressBar.Position:= Progress;
Label3.Caption := 'Downloadstatus: Datei wird heruntergeladen...';
end;
dsENDDOWNLOADDATA:
begin
Memo2.Lines.Add(get_date() + 'Datei erfolgreich heruntergeladen!');
ProgressBar.Position := 0;
end;
end;
Application.ProcessMessages;
end;
procedure Tform1.download_file(dl_url,localfile : string);
begin
with TDownloadURL.Create(nil) do
try
URL := dl_url;
FileName := localfile;
OnDownloadProgress := URL_OnDownloadProgress;
ExecuteTarget(nil);
finally
Free;
end;
end; |
Moderiert von 
Christian S.: Quote- durch Delphi-Tags ersetzt
