1,593
社区成员
发帖
与我相关
我的任务
分享关于下载的问题，绝对高分
请问各位大虾，怎样用delphi实现将远程服务器上的一个文件下载到本机的指定目录（已知登陆的用户名和密码，不一定要求多线程下载），能有原码和分析最好了，分不够可再加。
...全文
请发表友善的回复…
发表回复
ZhuJunfeng 2002-11-06
- 打赏
- 举报
又被抢先了。。
tccb 2002-11-06
- 打赏
- 举报
intraweb控件组有download，upload功能
正正 2002-11-05
- 打赏
- 举报
属于fastnet
hkbarton 2002-11-05
- 打赏
- 举报
ftp控件属于哪个类啊？
正正 2002-11-05
- 打赏
- 举报
利用FTP控件下载，源码为：
procedure Tfrm_main.BitBtn4Click(Sender: TObject);
var
i: integer;
spath: string;
stemp: string;
begin
for i := 0 to (listbox1.Items.Count - 1) do
begin
spath := listbox1.Items.Strings[i];
stemp := spath;
delete(stemp, 1, length(stemp) - 1);
if (spath = '..') or (stemp = '/') then
listbox1.Selected[i] := false;
if listbox1.Selected[i]=true then
begin
try
nmftp1.Download(spath, localdir + spath);
except
on E: EXCEPTION do
showmessage(E.Message);
end;
filelistbox1.Update;
end;
end;
end;
已经使用的一个下载程序的过程
procedure Tfrm_main.BitBtn4Click(Sender: TObject);
var
i: integer;
spath: string;
stemp: string;
begin
for i := 0 to (listbox1.Items.Count - 1) do
begin
spath := listbox1.Items.Strings[i];
stemp := spath;
delete(stemp, 1, length(stemp) - 1);
if (spath = '..') or (stemp = '/') then
listbox1.Selected[i] := false;
if listbox1.Selected[i]=true then
begin
try
nmftp1.Download(spath, localdir + spath);
except
on E: EXCEPTION do
showmessage(E.Message);
end;
filelistbox1.Update;
end;
end;
end;
已经使用的一个下载程序的过程
