Results 1 to 7 of 7

Thread: Geen verbinding met IdTCPServer in Delphi 10.4

Threaded View

  1. #1

    Geen verbinding met IdTCPServer in Delphi 10.4

    Met het overstappen van Delphi 10.3 naar 10.4 kom ik een probleem tegen met "IdTCPServer" op een Windows PC.
    Het project werkte perfect in 10.3.
    Er is niets gewijzigd in dit project maar nu ik het gecompileerd heb met 10.4 kan ik geen verbinding maken.

    Wat kan het probleem zijn ?

    Code:
    //------------------------------------------------------------------------------
    Const
      GUEST_CLIENT_PORT = 20010;
    
    
    IdTCPServer1.MaxConnections  := 20;
    IdTCPServer1.DefaultPort := 20010;
    IdTCPServer1.Bindings.Add.Port := GUEST_CLIENT_PORT;
    IdTCPServer1.Active   := True;
    
    //------------------------------------------------------------------------------
    
    procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
    var
        ip          : string;
        port        : Integer;
        peerIP      : string;
        peerPort    : Integer;
    
        nClients    : Integer;
    
        msgToClient : string;
        typeClient  : string;
    
    begin
     ip        := AContext.Binding.IP;
     port      := AContext.Binding.Port;
     peerIP    := AContext.Binding.PeerIP;
     peerPort  := AContext.Binding.PeerPort;
    
     // ... CLIENT CONNECTED:
     case Port of
     GUEST_CLIENT_PORT   : begin
                             // ... GUEST CLIENTS
                             typeClient := 'GUEST';
                           end;
                           // ...
     end;
    
     // ... send the Welcome message to Client connected
     msgToClient := 'Welcome ' + typeClient + ' ' + 'Client :)';
     AContext.Connection.IOHandler.WriteLn( msgToClient );
    
    
     // ... display the number of clients connected
     ShowNumberOfClients();
     Label1.FontColor := TAlphaColorRec.Green; //Groen
    
    end;
    
    //------------------------------------------------------------------------------
    Last edited by MMSoft; 14-Sep-21 at 10:02.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •