FTP上传的问题

[Vector_Heaven]

代码：
if idftp1.Connected then idftp1.Disconnect;
IdFTP1.Host := 'www.xxxxxxx.com';
IdFTP1.Username := 'ftp';
IdFTP1.Password := '2009';
IdFTP1.Connect();
IdFTP1.put('C:\Abigail Breslin.mpg','Abigail Breslin.mpg',true);
IdFTP1.Disconnect;

最后报一个连接超时的错，然后ftp服务器上只有一个0字节的Abigail Breslin.mpg文件。
各位高手能不能指教下我哪出错了。

[日立奔腾浪潮微软松下联想]

设置TransferType到ftBinary试试。

[Vector_Heaven]

[Quote=引用 1 楼 delphiguy 的回复:]
设置TransferType到ftBinary试试。
[/Quote]

Idftp1.TransferType := ftBinary;
还是没用

[Vector_Heaven]

设置IdFTP1.ReadTimeout:= 600000;后
会出Could not open data connection to port 4266:Connection time out

[Vector_Heaven]

问题已经解决。