IdTcpClient的一个问题，以前好好的，今天就出问题了，不知道为什么

[bigery]

procedure TForm1.Button1Click(Sender: TObject);
begin
IdTcpClient1.Host := InputBox('connect', 'ip address', '127.0.0.1'); //sqlserver
IdTcpClient1.Port := 1433; //sqlserver tcp/ip
try
IdTcpClient1.Connect(); //这个地方编译出错误！
if not IdTcpClient1.Connected then
begin
ShowMessage('无法连接数据库!!!');
self.Close;
exit; //ÎÞ·¨Á¬½Ósqlserver
end
else
begin
IdTcpClient1.Disconnect; //Á¬½Ó³É¹¦;
ShowMessage('连接成功!');
end;
except
ShowMessage('无法打开数据库');
application.Terminate;
end;

end;

[bigery]

谢谢月亮，解决了！

[bigery]

怎么没有人解决啊，郁闷！

[bigery]

IdTCPClient1.Host := edit1.text ;
IdTCPClient1.Port := 1433;
if not IdTCPClient1.Connected then
begin
IdTCPClient1.Connect ;
Showmessage('Connect OK!');
end;
这样也出现错误，错误信息为：socket error #10061 connection refused
这个到底是为什么啊？？？

[bigery]

IdTCPClient1.Connect ;
这个语句执行后，出现上面的错误代码的！

[ithinkthereforeiam]

连接被拒绝，看起来是目标机器的问题，检查一下是否和目标机器连通。

[hongqi162]

使用netstat -na 查看是否存在1433端口

可能是系统的原因 系统屏蔽了你的1433端口 你需要安装sqlserver sp3 或sqlserver sp4 可以解决问题