神啊救救我吧：《Clientsocket的问题》

701701 2004-08-26 11:12:05

神啊救救我吧：《Clientsocket的问题》

delphi用Clientsocket连接的时候发生10061和10060错误
官方解释是“服务端没有运行或者不在线”
而且我已经ErrorCode:=0了还是会报告错误？
谁可以解决这个问题啊？
我到国外网站只找到了错误解释；没有找到解决办法

源码如下：
（当服务端运行的时候正常；服务端关闭就报告10061错误）
procedure TForm1.FormCreate(Sender: TObject);
var
remotehost:string;
begin
// timer1.Interval :=3000;
// ClientSocket1:=tClientSocket.Create(self);
remotehost:='192.168.71.199';
// clientsocket1.Host :=remotehost;
clientsocket1.Address :=remotehost;
clientsocket1.Port :=17951;
clientsocket1.active:=true;
end;

procedure TForm1.ClientSocket1Error(...);
begin
ErrorCode:=0 //清除错误
end;
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

...全文