1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:

procedure TForm1.Button1Click(Sender: TObject);      // Verbinden
var
  VerR    : word;
  WSADATA : TWSAData;
  Res     : Integer;
  hints   : PAddrInfo;
  ARes    : PAddrInfo;

begin
  VerR := 2;
  Res := WSAStartup( VerR, WSADATA );
  if Res = 0 then
  begin
    hints             := AllocMem( SizeOf( TAddrInfo ) );
    ARes              := AllocMem( SizeOf( TAddrInfo ) );
    hints.ai_flags    := 0;
    hints.ai_family   := AF_INET;     // Internetprotokoll
    hints.ai_socktype := SOCK_STREAM;
    hints.ai_protocol := IPPROTO_TCP;
    hints.ai_flags    := AI_PASSIVE;

    // Resolve the server address and port
    Res := getaddrinfo(Nil, PChar( Edit2.Text ), hints, ARes );
    if Res = 0 then
    begin
      // Create a SOCKET for connecting to server
      SSock := socket( ARes.ai_family, ARes.ai_socktype, ARes.ai_protocol );
      if SSock <> INVALID_SOCKET then
      begin
        // Setup the TCP listening socket
        Res := bind( SSock, ARes.ai_addr^, ARes.ai_addrlen );
        if Res <> SOCKET_ERROR then
        begin
          freeaddrinfo( ARes );
          Res := listen( SSock, SOMAXCONN );
          if Res = 0 then
          begin
            // Accept a client socket
            CSock := accept( SSock, Nil, Nil );    
            if CSock <> INVALID_SOCKET then
            begin
              // No longer need server socket
              closesocket( SSock );
              // Receive until the peer shuts down the connection

            end
            else
            begin
              Memo1.Lines.Add( 'Fehler Erstellen des Clientports: ' + IntToStr( WSAGetLastError ) );
              closesocket( SSock );
              WSACleanup;
            end;
          end
          else  // listen ServerSock
          begin
            Memo1.Lines.Add( 'Fehler Portprüfung: ' + IntToStr( WSAGetLastError ) );
            closesocket( SSock );
            WSACleanup;
          end;
        end
        else  // bind
        begin
          Memo1.Lines.Add( 'Fehler beim Binden: ' + IntToStr( WSAGetLastError ) );
          freeaddrinfo( ARes );
          closesocket( SSock );
          WSACleanup;
        end;
      end
      else    // socket
      begin
        Memo1.Lines.Add( 'Fehler beim Erstellen des Socket : ' + IntToStr( WSAGetLastError ) );
        freeaddrinfo( ARes );
        WSACleanup;
      end;
    end
    else      // getaddrinfo
    begin
      Memo1.Lines.Add( 'Fehler bei der Portprüfung: ' + IntToStr( Res ) );
      WSACleanup;
    end;
  end
  else        // WSAStartup
  begin
    Memo1.Lines.Add( 'Initialisierungsfehler: ' + IntToStr( Res ) );
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

procedure TForm1.Button1Click(Sender: TObject);      // Verbinden
var
  VerR    : word;
  WSADATA : TWSAData;
  Res     : Integer;
  hints   : PAddrInfo;
  ARes    : PAddrInfo;

begin
  VerR := 2;
  Res := WSAStartup( VerR, WSADATA );
  if Res = 0 then
  begin
    hints             := AllocMem( SizeOf( TAddrInfo ) );
    hints.ai_flags    := 0;
    hints.ai_family   := AF_UNSPEC;
    hints.ai_socktype := SOCK_STREAM;
    hints.ai_protocol := IPPROTO_TCP;

    // Resolve the server address and port
    Res := getaddrinfo( PChar( Edit1.Text ), PChar( Edit2.Text ), hints, ARes );
    if Res = 0 then      //(EAI_AGAIN)
    begin
      Memo1.Lines.Add( 'socket' );
      CSock := socket( ARes.ai_family, ARes.ai_socktype, ARes.ai_protocol );
      if CSock <> INVALID_SOCKET then
      begin
        Memo1.Lines.Add( 'connect' );
        Res := connect( CSock, ARes.ai_addr^, ARes.ai_addrlen );
        Memo1.Lines.Add( 'connect: ' + IntToStr( Res ) );
        if Res <> SOCKET_ERROR then
        begin
          Connected := true;
          freeaddrinfo( ARes );
        end
        else  // connect
        begin
          Memo1.Lines.Add( 'Fehler bei connect: ' + IntToStr( Res ) );
          closesocket( CSock );
          freeaddrinfo( ARes );
        end;
      end
      else    // Socket
      begin
        Memo1.Lines.Add( 'Fehler bei socket: ' + IntToStr( WSAGetLastError ) );
        freeaddrinfo( ARes );
        WSACleanup;
      end;
      //freeaddrinfo( ARes );
      if CSock = INVALID_SOCKET then WSACleanup;
    end;
    FreeMem( hints );
    //FreeMem( ARes  );
  end
  else        // getaddrinfo
  begin
    Memo1.Lines.Add( 'Fehler bei WSAStartup: ' + IntToStr( Res ) );
    WSACleanup;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

function to_tcpip_client_socket.connect(strIp: string; iPort: integer): integer;
var
  recSocketAddress: tsockaddrin;
   pcIp: pchar;
begin
   disconnect;

   recSocketAddress.sin_family := PF_INET;
   recSocketAddress.sin_port := htons(iPort);
   pcIp := pchar(strIp);
   recSocketAddress.sin_addr.S_addr := inet_addr(pcIp);

   iSocketHandle := winsock.socket(AF_INET, SOCK_STREAM, 0); 

   if (iSocketHandle <> INVALID_SOCKET) then
   begin
      if winsock.connect(iSocketHandle, recSocketAddress, sizeof(recSocketAddress)) = 0 then
         Result := 0
      else
      begin
         Result := winsock.wsagetlasterror;
         winsock.closesocket(iSocketHandle);
         iSocketHandle := INVALID_SOCKET;
      end;
   end
   else
      Result := winsock.wsagetlasterror;
   boConnected := (Result = 0);
   if boConnected then
   begin
      strRemoteIp := strIp;
      iRemotePort := iPort;
      oClientThread := to_tcpip_client_thread.create(iSocketHandle,
                          iReceiveBufferSize_bytes);
      oClientThread.yOnDisconnect := on_disconnect;
      oClientThread.yOnError := on_error;
      oClientThread.yOnDataReceived := on_data_received;
      oClientThread.resume;
   end;
end;