在线等待,急
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;
该代码执行以后,能够提示连接成功,
但是却没有办法将我要上传的文件上传上去