我想从一个FTP站点下载文件,比如ftp://ftp.genome/pub/
这个FTP站点的pub/下有很多子目录,我想分别从每个子目录里下载文件,
不想一个一个手工下载,希望批处理,能实现吗?谢谢!
这个FTP站点的pub/下有很多子目录,我想分别从每个子目录里下载文件,
不想一个一个手工下载,希望批处理,能实现吗?谢谢!
解决方案 »
- 郁闷 delphi6中 EnumWindows枚举出来的窗口句柄 和 窗口Create后的句柄不一致
- 求取消当前用户在DbGrid中输入的内容的语句的写法。
- 超难问题,求助高手!
- 打包程序安装过程中出现“Modifying of .cfg failed:5”的错误!
- combobox的下拉框内容长度超过本身长度,后面的内容便无法显示,如何解决!
- 100分请教!●☆●☆●☆●☆●请详细讲讲,怎样给程序加上共享软件那样的注册机制?
- liuxing_1w(黑郁金香) , zfmich() ,jerryjean() 接分。来自各位高手,请问一个SQL语句。谢谢先!!!!
- <===镶入Html页面中的ActiveForm在初始化时如何得到Session变量的值!===>
- delphi实现结构化存储
- 你是GG还是MM?
- 从来没有在Delphi区散过分,不过为了庆祝我昨天搞到的一件Borland的T-shirt,特此散出88分,祝自己也祝大家国庆愉快,哈哈!
- 在C:\下有一a.bmp文件,我要在button.click时执行以系统默认的打开方式打开c:\a.bmp
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end; procedure TForm1.Button1Click(Sender: TObject);
var
i,j: Integer;
Source,Dest,ext: OleVariant;
begin
WebBrowser1.Navigate('http://www.xxx.com');
while WebBrowser1.ReadyState < READYSTATE_COMPLETE do
Application.ProcessMessages; if WebBrowser1.OleObject.Document.all.tags('A').Length = 0 then Exit;
Memo1.Clear; for i := 0 to WebBrowser1.OleObject.Document.all.tags('A').Length - 1 do
begin
Source := WebBrowser1.OleObject.Document.all.tags('A').Item(i);
j := LastDelimiter('.', Source);
ext := UpperCase(Copy(Source, j+1, Length(Source))); if (ext = 'RAR') or (ext = 'ZIP') then
begin
Memo1.Lines.Add(Source.innerText + ': ' + Source.href);
Dest := ExtractFilePath(ParamStr(0)) + Source.innerText;
DownloadFile(Source, Dest);
end;
end;
end;説明:用「TWebBrowser」控件、下载网页中<a href="...">
这是我重别人的贴上拷的,看看应该有点用。