我的程序如下:
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服务器上看到了该上传的文件(该文件没有任何内容)
请问这是什么问题?怎样解决?谢啦!
解决方案 »
- 5分钟后结贴,看谁跑的快
- 请教一个关于REPORTMACHINE2.6 我对其中的"文本编辑器'不太了解 有谁能帮我
- 在程序中怎样实现将Excel中的数据导入到SQLSERVER数据库中?
- TabControl控件和PageControl 控件的区别吗? 有谁知道?
- 怎么样在stringgird中的cell中插入一个speedbutton?
- update问题
- 如何让DELPHI认识ICO文件?
- 有什么现成的函数或方法,在Canvas 上直接画一个三角形吗?
- 如何在 form.onshow 之后自动自行一段代码?
- 如何将一个tablesheet的控件原封不动的拷到另外一个form的tablesheet上
- 一个操作系统[OS]调用失败 在线等。。
- Report Machine 的 Count函数怎么不好用?
另外,可将IdFTP的属性passive改为true试试
根据FTP传送的命令数据来判断的