<font color="red"><strong>NMFTP1的几个属性怎么设置呢？请帮忙看一下源码！</strong>&

&lt;font color="red"&gt;&lt;strong&gt;NMFTP1的几个属性怎么设置呢？请帮忙看一下源码！&lt;/strong&gt;&lt;/font&gt;(50分)<br />procedure TForm3.Button1Click(Sender: TObject);
begin
Form1.ComboBox1.Text:=Edit1.Text;
Form1.NMFTP1.Host:=Edit2.Text;
Form1.NMFTP1.UserId:=Edit3.Text;
Form1.NMFTP1.Password:=Edit4.Text;
Form1.NMFTP1.Port:=Integer(Edit5.Text);
Form1.NMFTP1.Timeout:=Integer(Edit6.Text);
Form1.NMFTP1.Vendor:=Integer(NMOS_AUTO);
try
Form1.NMFTP1.Connect;
except
Showmessage('Failed to connect!');
Exit;
Form3.Close;
end;


每当我上网后连接，程序总是报错说："argument错误！".
请各位富翁帮帮忙吧！
我已是最后一点钱了！

Integer(...)不对，应该是 StrToInt(...)

May be Pipi

我用了StrToInt(...)后仍不行啊？！

&gt;&gt; Form1.NMFTP1.Vendor:=Integer(NMOS_AUTO);

这句有问题, 其实这个值根本不用设, 因为系统缺省就是NMOS_AUTO, 要设的话也是:

Form1.NMFTP1.Vendor:=Inttostr(NMOS_AUTO); //NMOS_AUTO=2411

因为vender的类型是string

tsingmei:如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。
请认真阅读大富翁论坛规则说明 http://www.delphibbs.com/delphibbs/rules.htm

多人接受答案了。