idftp

来源:互联网 发布:源码商城 编辑:程序博客网 时间:2024/05/20 04:32
if dlgOpen1.Execute then
begin
if not (IdFTP1.Connected) then
begin
IdFTP1.Username :='aaa';
IdFTP1.Password :='bbb';
IdFTP1.Host :='192.168.1.3';
IdFTP1.Connect;
end;
idftp1.Put('E:\ico\123.png','123.png');
end;
//dlgOpen1.filename就是 'E:\ico\123.png'