WinSock问题：写了一个自定义超时连接的function.可不知道问题出在哪？走过路过不要错过阿，可能是很简单的问题 ( 积分: 200 )

行到水穷处 · 2005-06-13

TcpConnection 在不能連通的情況下要延遲20秒之多，因此另外改進為下一個TCPConnection2 50個綫程連續調用 TcpConnection 掃描不同的ip（從192.168.1.1到192.168.1.255升序地時候，192.168.1.255：86 的結果是錯誤的,而反过来降序：從192.168.1.255到192.168.1.1 扫描的結果是正確的，意味着，开始扫描的结果是正确的，越靠后越不对。 192.168.1.255：86是可以連接上的，從 192.168.1.1開始掃描到1.255的時候就不行了，暈阿 function   TcpConnection(_Host:String;_Port:Integer):integer; var i:integer;    sin:sockaddr_in;    mint :integer ; begin  sin.sin_family:=AF_INET;  sin.sin_port:=htons(_Port);  i:=inet_addr(PChar(_Host));  sin.sin_addr.S_addr:=i;  mint := 0;  try   mint  := socket(PF_INET,SOCK_STREAM,0);  if Connect(mint,sin,sizeof(sin))=SOCKET_ERROR then //上面這句在不能連通的情況下要延遲20秒之多，因此另外改進為下一個TCPConnection2  Result := 0  else    Result :=1 ;  finally    CloseSocket(mint);  end; end; //-----------------改進后的TcpConnection2--------------- function TcpConnection2(_Host:String;_Port:Integer;_TimeOut: integer):integer; var i:integer;    sin:sockaddr_in;    mint :integer ;    fs: TFDSet;    timeout: timeval;    ulb: integer;    RC:integer; begin  sin.sin_family:=AF_INET;  sin.sin_port:=htons(_Port);  i:=inet_addr(PChar(_Host));  sin.sin_addr.S_addr:=i;  mint := 0;  FD_ZERO(fs);  try    mint  := socket(PF_INET,SOCK_STREAM,IPPROTO_TCP);    FD_SET(mint,fs);    timeout.tv_sec := _TimeOut;//连接超时    //延时_TimeOut 為 10秒      timeout.tv_usec := 500;    ulb := 1;    ioctlsocket(mint,FIONBIO,ulb);    if Connect(mint,sin,sizeof(sin))=SOCKET_ERROR then    begin//      if (WSAGetLastError() = WSAEWOULDBLOCK) then      begin        FD_ZERO(fs);        FD_SET(mint,fs);        RC := select(0,nil,@fs,nil,@TimeOut);      end;      if RC = 0 then        Result := 0      else        Result := 1;    end//  返回的Result 有问题？？？？？？？    else    Result := 1;  finally    ulb := 0;    ioctlsocket(mint,FIONBIO,ulb);    CloseSocket(mint);  end; end;

行到水穷处 · 2005-06-13

TcpConnection 在不能連通的情況下要延遲20秒之多，因此另外改進為下一個TCPConnection2 50個綫程連續調用 TcpConnection 掃描不同的ip（從192.168.1.1到192.168.1.255升序地時候，192.168.1.255：86 的結果是錯誤的,而反过来降序：從192.168.1.255到192.168.1.1 扫描的結果是正確的，意味着，开始扫描的结果是正确的，越靠后越不对。 192.168.1.255：86是可以連接上的，從 192.168.1.1開始掃描到1.255的時候就不行了，暈阿 function   TcpConnection(_Host:String;_Port:Integer):integer; var i:integer;    sin:sockaddr_in;    mint :integer ; begin  sin.sin_family:=AF_INET;  sin.sin_port:=htons(_Port);  i:=inet_addr(PChar(_Host));  sin.sin_addr.S_addr:=i;  mint := 0;  try   mint  := socket(PF_INET,SOCK_STREAM,0);  if Connect(mint,sin,sizeof(sin))=SOCKET_ERROR then //上面這句在不能連通的情況下要延遲20秒之多，因此另外改進為下一個TCPConnection2  Result := 0  else    Result :=1 ;  finally    CloseSocket(mint);  end; end; //-----------------改進后的TcpConnection2--------------- function TcpConnection2(_Host:String;_Port:Integer;_TimeOut: integer):integer; var i:integer;    sin:sockaddr_in;    mint :integer ;    fs: TFDSet;    timeout: timeval;    ulb: integer;    RC:integer; begin  sin.sin_family:=AF_INET;  sin.sin_port:=htons(_Port);  i:=inet_addr(PChar(_Host));  sin.sin_addr.S_addr:=i;  mint := 0;  FD_ZERO(fs);  try    mint  := socket(PF_INET,SOCK_STREAM,IPPROTO_TCP);    FD_SET(mint,fs);    timeout.tv_sec := _TimeOut;//连接超时    //延时_TimeOut 為 10秒      timeout.tv_usec := 500;    ulb := 1;    ioctlsocket(mint,FIONBIO,ulb);    if Connect(mint,sin,sizeof(sin))=SOCKET_ERROR then    begin//      if (WSAGetLastError() = WSAEWOULDBLOCK) then      begin        FD_ZERO(fs);        FD_SET(mint,fs);        RC := select(0,nil,@fs,nil,@TimeOut);      end;      if RC = 0 then        Result := 0      else        Result := 1;    end//  返回的Result 有问题？？？？？？？    else    Result := 1;  finally    ulb := 0;    ioctlsocket(mint,FIONBIO,ulb);    CloseSocket(mint);  end; end;

leaber · 2005-06-13

有什么问题

newsmile · 2005-06-13

掃描到254试一试。

ak_2005 · 2005-06-13

if Connect(mint,sin,sizeof(sin))=SOCKET_ERROR then    begin//      if (WSAGetLastError() = WSAEWOULDBLOCK) then//不成立RC=?前面要为 RC赋个初始值吧      begin        FD_ZERO(fs);        FD_SET(mint,fs);        RC := select(0,nil,@fs,nil,@TimeOut);      end;      if RC = 0 then        Result := 0      else        Result := 1;    end//  返回的Result 有问题？？？？？？？    else    Result := 1;

行到水穷处 · 2005-06-13

leaber: 你好，见到你真高兴！ 問題是這樣的： TcpConnection，这个在连接不通的情况下要延时20多秒（另外一个TcpConnection2就是对此改进：可以自定义延时时间，但是我在多线程里面调用这个改进后的TcpConnection2，得出的结果却没有TcpConnection准确， 下列測試代碼説明了問題所在： 假設從192.168.1.1到192.168.1.235 中只有 192.168.1.235：86是能連接通的，for i := 100 to 235 do 這個循環執行后的結果 j为0 但若使用for i := 235 downto 100 do這個循環的話，结果是为1； 意味著這個改進后的函數只能在有限的次數下有效。 這可怎麽辦？  for i := 100 to 235 do //  for i := 235 downto 100 do  begin    k := TcpConnection2('192.168.253.'+IntToStr(i),86,1);    j := j + k;  end;

leaber · 2005-06-13

呵，应该没问题的，检查每次执行的返回。 Rc最好初始化一下

行到水穷处 · 2005-06-13

RC赋个初始值：修改后已经赋值，但是没效果。 来自：ak_2005, 时间：2005-6-13 10:34:17, ID：3102608 if Connect(mint,sin,sizeof(sin))=SOCKET_ERROR then    begin//      if (WSAGetLastError() = WSAEWOULDBLOCK) then//不成立RC=?前面要为 RC赋个初始值吧      begin        FD_ZERO(fs);        FD_SET(mint,fs);        RC := select(0,nil,@fs,nil,@TimeOut);      end;      if RC = 0 then        Result := 0      else        Result := 1;    end//  返回的Result 有问题？？？？？？？    else    Result := 1;

行到水穷处 · 2005-06-13

RC在begin后赋初始值为0，但依旧没什么效果阿 怎么办？？？？ 给点主意啊？

leaber · 2005-06-13

不要只是想着这个超时的地方，看看别的地方。比如你的服务端，算法..

行到水穷处 · 2005-06-13

to leaber：下面的测试程序仅仅是更改了一个升降序，结果却完全不同，我认为肯定是程序哪儿出了问题了，有可能是资源释放问题，也有可能是TcpConnection2内部的问题 请你你帮忙测试一下，跟踪跟踪，到底哪儿有问题呢？哪儿出错了到底  for i := 100 to 235 do //  for i := 235 downto 100 do  begin    k := TcpConnection2('192.168.253.'+IntToStr(i),86,1);    j := j + k;  end;

wlmmlw · 2005-06-13

端口号能不能设得高一点.[

]

行到水穷处 · 2005-06-13

wlmmlw： 实际测试中的端口是8890呢 晕。 哪位能看出bug来啊？ 急死了

行到水穷处 · 2005-06-14

下列测试代码就说明，这个TCPconnection2是有问题的。 aiirii(ari-淘金坑) 你说呢？  for i := 0 to 50 do  begin    k := TcpConnection('192.168.253.231',887);    j := j + k;  end; ///运行后j为51  for i := 0 to 50 do  begin    k := TcpConnection2('192.168.253.231',887,5);    j := j + k;  end; ///运行后j为40

迷糊 · 2005-06-14

上边的现象这样解释好象是合理的： select(0,nil,@fs,nil,@TimeOut)=0 只能说明在指定的时间没有接受到连接已经建立的消息，但并不能说明对方不能连接。所以设置超时的判据不可靠

leaber · 2005-06-15

行到水穷处 · 2005-06-16

迷糊的说法是正确的。 谢谢

WinSock问题：写了一个自定义超时连接的function.可不知道问题出在哪？走过路过不要错过阿，可能是很简单的问题 ( 积分: 200 )

行到水穷处

Unregistered / Unconfirmed

行到水穷处

Unregistered / Unconfirmed

leaber

Unregistered / Unconfirmed

newsmile

Unregistered / Unconfirmed

ak_2005

Unregistered / Unconfirmed

行到水穷处

Unregistered / Unconfirmed

leaber

Unregistered / Unconfirmed

行到水穷处

Unregistered / Unconfirmed

行到水穷处

Unregistered / Unconfirmed

leaber

Unregistered / Unconfirmed

行到水穷处

Unregistered / Unconfirmed

wlmmlw

Unregistered / Unconfirmed

行到水穷处

Unregistered / Unconfirmed

行到水穷处

Unregistered / Unconfirmed

迷糊

Unregistered / Unconfirmed

leaber

Unregistered / Unconfirmed

行到水穷处

Unregistered / Unconfirmed

Similar threads