【结贴】Indy中IdFTP控件代码问题**

韩文斌

procedure TMainForm.Button1Click(Sender: TObject);
var
  sFileName:string;
  lStream: TMemoryStream;
begin
  IdFTP1.Host := '10.230.32.14';//服务器地址
  IdFTP1.Username := 'soft';   //用户名
  IdFTP1.Password := 'soft';   //密码
  IdFTP1.BoundPort := 21;      //端口号

  if not IdFTP1.Connected then
    IdFTP1.Connect(True,1000);
  if OpenDialog1.Execute then
  begin
    sFileName := Sysutils.ExtractFileName(OpenDialog1.FileName); //得到文件名
    lStream := TMemoryStream.Create;        //创建一个内存流
    try
      with TOleContainer.Create(Self) do
      begin
        try
          Parent := Self;
          CreateObjectFromFile(OpenDialog1.FileName,False);
          SaveToStream(lStream);     //取到文件并写入流中
          IdFTP1.Put(lStream,sFileName,True);
        finally
          Free;
        end;
      end;
    finally
      lStream.Free;                                           //释放流
    end;
  end;
end;

每次运行到IdFTP1.Put(lStream,sFileName,True);感觉死机了似的，在delphi6里面试的时候很快就运行过去了，请问怎么解决？

lixy

不懂。。

韩文斌

呜呜……
不会吧，那我该怎么办呢？？

alang

1楼代码，我放到Delphi中执行也是同样的效果
客户端一直没有动静，服务器上多了一个0字节的文件，但是一直没有变大了
显示状态是正在上传

你先在Delphi中调通了吧

韩文斌

原来是系统防火墙的问题，我说我同事在他那能用delphi调通呢，谢谢了