在线等待,急

zhshgan 2003-10-18 12:42:01
procedure TForm1.Button1Click(Sender: TObject);
begin
ftpclient1.HostName:='10.183.72.4';
ftpclient1.UserName:='sxsy';
ftpclient1.PassWord:='';
if ftpclient1.Connect=true then
begin
showmessage('连接成功');
ftpclient1.LocalFileName:=extractfilepath(application.exename)+'10080310.EXE';
ftpclient1.Put;
end;
end;

该代码执行以后,能够提示连接成功,
但是却没有办法将我要上传的文件上传上去
...全文
34 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
huojiehai 2003-10-18
  • 打赏
  • 举报
回复
你是什么连接的
ftpclient1.Connect := false;
ftpclient1.UserName:='sxsy';
ftpclient1.PassWord:='';

ftpclient1.Connect := true;
if ftpclient1.Connect=true then
begin

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧