Discussion :

[Desraux]

Bonjour,

Je souhaiterais démarrer un mini serveur web (TIdHTTPServer) avec un port libre sur ma machine plutôt qu'un port prédéfini.
(En fait il y aura plusieurs mini serveurs web sur ma machine)

Comment puis-je m'y prendre ?

Ou comment obtenir un numéro de port libre pour mon serveur ?

(Le client sait comment résoudre le port du serveur)

[dd16]

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
var
  testPort: TIdHttp;
  newPort: integer;
  bTest: boolean;
begin
 
  testPort := TIdHttp.Create(self);
  newPort := 5000;
 
  repeat
    inc(newPort);
 
    testPort.Port := newPort;
    testPort.Host := '127.0.0.1';
    try
      testPort.Connect(50);
      bTest := False;
      testPort.Disconnect;
    except
      bTest := True;
    end;
  until bTest;
 
  FreeAndNil(testPort);