怎么用ClientSocket list FTP服务器下的目录?

[tidecl]

我已经用ClientSocket连结并登陆到一个FTP服务器下的目录
但怎么用ClientSocket list FTP服务器下的目录?
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Socket.SendText('USER '+myini.ReadString(nodestr,'User','')+#13#10);
ftp_timeout;
Socket.SendText('PASS '+myini.ReadString(nodestr,'Password','')+#13#10);
ftp_timeout;
Socket.SendText('PWD'+#13#10);
ftp_timeout;
Socket.SendText('PASV'+#13#10);
ftp_timeout;
..............
这里要加什么?
..............
Socket.SendText('List '+#13#10);
ftp_timeout;
end;

[wangxiangsjz]

用Visual Sniffer探一下，别的FTP软件都发了什么包。

[耙子]

为啥不用现成的FTP控件？

[tidecl]

好想是要生成一个新的Socket进行数据联接

Socket.SendText('PASV'+#13#10);
这个反回的信息,可以得到FTP服务器的数据端口;
但我不知道怎样生成一个新的Socket去连这个端口.

[wangxiangsjz]

最简单就再用一个TClientSocket。