我的程序如下:
procedure TfrmMain.Button1Click(Sender: TObject);
begin
try
ftp1.ChangeDir(edtUpLoadDir.Text);
Memo1.Lines.Add('定位远程目录成功!')
except
application.MessageBox('无法定位远程目录!','提示',MB_ICONINFORMATION + MB_Ok);
end;
try
ftp1.Put(edtUpLoadFile.Text, ExtractFileName(edtUpLoadFile.Text));
Memo1.Lines.Add('上传成功!');
except
ftp1.Abort;
Memo1.Lines.Add('上传失败!');
end;
end;FTP服务器已经成功连接了,但在上传文件时,程序执行代码:
ftp1.Put(edtUpLoadFile.Text, ExtractFileName(edtUpLoadFile.Text));
时,一直停在那里,没有运行下去;但在FTP服务器上看到了该上传的文件(该文件没有任何内容)
请问这是什么问题?怎样解决?谢啦!
procedure TfrmMain.Button1Click(Sender: TObject);
begin
try
ftp1.ChangeDir(edtUpLoadDir.Text);
Memo1.Lines.Add('定位远程目录成功!')
except
application.MessageBox('无法定位远程目录!','提示',MB_ICONINFORMATION + MB_Ok);
end;
try
ftp1.Put(edtUpLoadFile.Text, ExtractFileName(edtUpLoadFile.Text));
Memo1.Lines.Add('上传成功!');
except
ftp1.Abort;
Memo1.Lines.Add('上传失败!');
end;
end;FTP服务器已经成功连接了,但在上传文件时,程序执行代码:
ftp1.Put(edtUpLoadFile.Text, ExtractFileName(edtUpLoadFile.Text));
时,一直停在那里,没有运行下去;但在FTP服务器上看到了该上传的文件(该文件没有任何内容)
请问这是什么问题?怎样解决?谢啦!
另外,可将IdFTP的属性passive改为true试试
根据FTP传送的命令数据来判断的