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'
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'
扫一扫
192
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
