Mackhack
17.02.2002, 22:24
Hi,
ich schreibe grad an einem DownLoadManager und habe über die Unit URLMon den Befehl UrlDownloadToFile genommen. Aber irgendwie kann ich da nur Files saugen die an einem HTTP-Port hängen. Weis jemand wie ich auf Pubs connecten kann (sprich auf FTPs)???
Hier mein Beispielcode für HTTP-DL:
procedure TForm1.Button1Click(Sender: TObject);
Var
ListBoxZeile : Integer;
AktURL, Ziel : String;
Begin
For ListBoxZeile:= 0 To ListBox1.Items.Count - 1 Do
Begin
AktURL:= ListBox1.Items[ListBoxZeile];
Ziel:= ´C:\TEMP\´ + IntToStr(ListBoxZeile) + ´.tmp´;
UrlDownloadToFile(nil, PChar(AktUrl), PChar(Ziel), 0, nil);
End;
End;
Vielen Dank...
ich schreibe grad an einem DownLoadManager und habe über die Unit URLMon den Befehl UrlDownloadToFile genommen. Aber irgendwie kann ich da nur Files saugen die an einem HTTP-Port hängen. Weis jemand wie ich auf Pubs connecten kann (sprich auf FTPs)???
Hier mein Beispielcode für HTTP-DL:
procedure TForm1.Button1Click(Sender: TObject);
Var
ListBoxZeile : Integer;
AktURL, Ziel : String;
Begin
For ListBoxZeile:= 0 To ListBox1.Items.Count - 1 Do
Begin
AktURL:= ListBox1.Items[ListBoxZeile];
Ziel:= ´C:\TEMP\´ + IntToStr(ListBoxZeile) + ´.tmp´;
UrlDownloadToFile(nil, PChar(AktUrl), PChar(Ziel), 0, nil);
End;
End;
Vielen Dank...