我的程序如下:
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服务器上看到了该上传的文件(该文件没有任何内容)
请问这是什么问题?怎样解决?谢啦!