Z
zhshgan
Unregistered / Unconfirmed
GUEST, unregistred user!
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;
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;