Форум программистов [Powered by Invision Power Board]

Код

    vSocket := Socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
    FillChar(vSockAddr,SizeOf(TSockAddr),0);
    vSockAddr.sin_family := AF_INET;
    vSockAddr.sin_port := htons(FPort);
 
    p := GetHostByName(PChar(FHost));
    if p=nil then
    begin
      Memo1.Lines.Add('Error resolving IP of '+FHost);
      continue;
    end;
    IPAddr:=inet_ntoa(PInAddr(p.h_addr_list^)^);
 
    vSockAddr.sin_addr.S_addr := inet_addr(pchar(IPAddr));
    connect(vSocket,vSockAddr,SizeOf(TSockAddr));
 
    SocketEvent:=WSACreateEvent;
    try
      WSAEventSelect(vSocket,SocketEvent,FD_CLOSE or FD_CONNECT);
      repeat
        if WaitForSingleObject(SocketEvent,30000)=258 then
        begin
          Memo1.Lines.Add('Connection timeouted...');
          break;
        end;
        WSAResetEvent(SocketEvent);
        WSAEnumNetworkEvents(vSocket,SocketEvent,@NI);
        if (NI.lNetworkEvents and FD_CONNECT)<>0 then
        begin
          if NI.iErrorCode[FD_CONNECT_BIT]<>0 Then
          begin
            Memo1.Lines.Add('Error '+IntToStr(NI.iErrorCode[FD_CONNECT_BIT])+' while connecting to '+FHost+' ['+IPAddr+':'+IntToStr(FPort)+']...');
            Break;
          end else
          begin
            Memo1.Lines.Add('Connected to '+FHost+' ['+IPAddr+':'+IntToStr(FPort)+']...');
            SCount:=SCount+1;
            Break;
          end;
        end;
        if (NI.lNetworkEvents and FD_CLOSE)<>0 then
        begin
          closesocket(vSocket);
          vSocket:=INVALID_SOCKET;
          Memo1.Lines.Add('Connection closed by remote server...');
          Break;
        end;
      Until 1=0;
    finally
      WSACloseEvent(SocketEvent);
      closesocket(vSocket);
      vSocket:=INVALID_SOCKET;
    end;