TCPClient的问题

Question

D7  Demos\Internet\rexec 中的程序来访问公司 sun solaris fwq 正常。那个程序的主要实现就是一个tcpclient控件。
属性里设置端口为512。代码如下：
[code]
if NOT Client.Connected then
  begin
    Client.RemoteHost:= EditServer.Text;
    Client.Active := true;
    Client.connect;
  end;
[/code]
但是sun solaris fwq 升级后 程序无法使用了。 错误为 socket error 10061 ,10057
10061 是fwq拒绝连接。 问题：tcpclient 能解决这个问题吗？ 我尝试更换端口无效。 FWQ 手动telnet 登陆正常，xdm query （端口177）方式也正常。

Answer 1

demo里的代码应该没有问题
procedure TForm1.Button1Click(Sender: TObject);
begin
  if NOT Client.Connected then
  begin
    ConnectLight.Brush.Color:= clGreen;
    ConnectLight.Repaint;
    Client.RemoteHost:= EditServer.Text;
    Client.Active := true;
    Client.connect;
  end;
end;