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;
//------------------------------------------------------------------------------
Bookmarks