Delphi中，怎么使用FTP主动下传文件
delphi 提供了 indy 组件包，其中 TIdFTP 可以实现通过以 FTP 方式进行文件的上传与下载。示例代码如下：procedure TForm1.Button2Click(Sender: TObject);var tt :TIdFTPListItems; t : TIdFTPListItem; i : integer; tfname : String;begin IdFTP1.TransferType := ftBinary; //指定为二进制文件 或文本文件ftASCII for i:=0 to IdFTP1.DirectoryListing.Count-1 do begin tt := IdFTP1.DirectoryListing; //得到当前目录下文件及目录列表 t := tt.Items[i]; //得到一个文件相关信息 Label1.Caption :=t.Text; //取出一个文件信息内容 tfname := t.FileName; showmessage(t.OwnerName+' '+t.GroupName+' '+t.FileName+' '+t.LinkedItemName); if IdFTP1.DirectoryListing.Items[i].ItemType = ditFile then //如果是文件 begin IdFTP1.Get(tfname,'d:\FTPtest\'+tfname,True,True); //下载到本地，并为覆盖，且支持断点续传 end; end;end;
delphi 如何直接读取远程FTP上的TXT文件的内容？
//读取数据到流
var
ss :TStringStream;
begin
ss := TStringStream.Create('');
try
IdFTP1.Host := 'FTP地址';
IdFTP1.Username := '用户名';
IdFTP1.Password := '密码';
IdFTP1.Connect;
idftp1.Get('1.txt',ss); //这里用根目录的1.txt为例,你在其他目录的话就用IdFTP1.ChangeDir
IdFTP1.Disconnect;
ShowMessage(ss.DataString);
finally
FreeAndNil(ss);
end;
end;
