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

Question

我已经用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;

Answer 1

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

Answer 2

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

Answer 3

最简单就再用一个TClientSocket。