在服务器上同时对6台机器用ftp上传文件的问题 程序如下(100分)

要求---在服务器上同时对6台机器用ftp上传文件

我用了6个nmftp控件，想同时对6台机器上传文件，可是不行
只能同时对一台机器上传文件，请指教

procedure TForm1.upload6000Click(Sender: TObject);
begin
NMFTP1.Host := ip6000.caption;
NMFTP1.Timeout := 5000;
NMFTP1.UserID := user6000.Text;
NMFTP1.Password := Passwd6000.Text;
true6000.caption:='传送';
try
NMFTP1.Connect;
NMFTP1.upload(filename.Text, filename.Text);
true6000.caption:='成功';
except
true6000.caption:='失败';
end;
NMFTP1.Disconnect;
end;



procedure TForm1.upload6040Click(Sender: TObject);
begin
NMFTP2.Host := ip6040.caption;
NMFTP2.Timeout := 5000;
NMFTP2.UserID := user6040.Text;
NMFTP2.Password := Passwd6040.Text;
true6040.caption:='传送';
try
NMFTP2.Connect;
NMFTP2.upload(filename.Text, filename.Text);
true6040.caption:='成功';
except
true6040.caption:='失败';
end;
NMFTP2.Disconnect;
end;
。
。
。
procedure TForm1.upload6019Click(Sender: TObject);
begin
NMFTP6.Host := ip6019.caption;
NMFTP6.Timeout := 5000;
NMFTP6.UserID := user6019.Text;
NMFTP6.Password := Passwd6019.Text;
true6019.caption:='传送';
try
NMFTP6.Connect;
NMFTP6.upload(filename.Text, filename.Text);
true6019.caption:='成功';
except
true6019.caption:='失败';
end;
NMFTP6.Disconnect;
end;

可能是因为用了统一个端口号的问题，你改用多线程试试

能给出具体的代码吗

将端口号改为互不相同就可以了，
NMFTP本身就是多线程的

改端口号的方法理论上可以，但是实际上不可行。
采取这种方法，还要修改6台机器的ftp端口

改用winsocket api 写文件传送，可以实现一对多，并且速度比ftp快/

主机winnt 前6台机器为unix
能给出改用winsocket api 写文件传送的具体例子吗

此问题解决没有啊，ap100能告诉怎么样用winsocketapi来写吗？谢谢