Hier nochmals zum Kopieren.
Ich habe auch gleich deine mangelhafte
Exception-Behandlung entfernt.
Delphi-Quellcode:
function DownLoadInternetFile(const Source, Dest : String): Boolean;
begin
Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
end;
procedure TForm1.Button3Click(Sender: TObject);
var
Datei,Ziel:string;
dw: string;
begin
if ListBox1.ItemIndex > -1 then
begin
dw := ListBox1.Items[ListBox1.ItemIndex]
Label1.Caption := 'Download gestartet';
Label1.Refresh;
Datei := 'http://redeyes.re.ohost.de/dowloads/'+'dw'+'.zip';
Ziel := 'C:\'+'dw'+'.zip';
if DownLoadInternetFile(Datei, Ziel) then
Label1.Caption := 'Download ('+dw+') beendet'
else
Label1.Caption := 'Download ('+dw+') fehlerhaft';
end;
end;
end.
@DeddyH: das geht schief, da zwar die Zeiger zugewiesen werden,
aber die zusammengesetzten Strings nicht dauerhaft sind