delphi中怎么用idFTP下载整讣 请！！！埂！！

展开全部

procedure TForm1.btn3Click(Sender: TObject);

var

idelphi ftp获取下载文件大小,j:Integer;

ls:TStringList;

fname:string;

begin

adoTBFtp.Close;

adoTBFtp.Open;

while not adoTBFtp.Eof do

begin

IdFtp1.Host:= adoTBFtp.fieldbyname('Ip').AsString;

IdFtp1.Username := adoTBFtp.fieldbyname('User').AsString;

IdFtp1.Password := adoTBFtp.fieldbyname('PassWord').AsString;

if not IdFtp1.Connected then

begin

try

IdFtp1.Connect;

except

on e:exception do

begin

ShowMessage(e.Message);

Exit;

end;

end;

end;

ls:=TStringList.Create;

IdFTP1.ChangeDir('/tellin/temp'); //到指定目录下 windows /;Unix /

//IdFTP1.TransferType := ftASCII;

IdFTP1.List(LS);//得到目录结构

for i:=0 to IdFtp1.DirectoryListing.Count-1 do //遍历所有目录

begin

//memo1.Lines.Add(IdFtp1.DirectoryListing.Items[i].FileName);//如果文件名和目录一样,就执行如下操 />for j:=1 to 12 do

begin

fname:='scf-0-'+intToStr(j)+'.run.old';

if IdFtp1.DirectoryListing.Items[i].FileName=fname then

begin

//传输文件get函数第一庚是服蜗的要下载的文件名,第二庚是本地的模式跟要保存的文件名

IdFtp1.Get(fnamedelphi ftp获取下载文件大小,adoTBFtp.fieldbyname('SavePath').AsString+fname,True);

end;

end;

end;

adoTBFtp.Next;

end;

ls.Free;

end;

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-135760-1.html