Vérifier si un port tcp est ouvert

**Coussati** · 31/01/2009, 04h38

salut

avant de poster, j'ai fais une recherche sur le forum et les seuls réponses que j'ai trouvé avait pour but principal de tester des connexions avec un composant socket ...

j'aimerais savoir s'il y a moyen sans passer par un composant client_socket

sans avoir non plus coder un scanner de port

c'est pour ma machine donc, pas de firewall, rien qui pourrait bloquer

le but est de tester du port 3000 à 3050 le 1er qui est ouvert, pour pouvoir l'utiliser

l'application sera utiliser plusieurs fois à plusieurs moment et donc il me faudra ouvrir d'autres ports (que ceux que j'ai déjà ouvert)

merci

**philnext** · 31/01/2009, 16h59

En quoi ça te dérange l'utilisation d'un clientsocket ?
ça sert à ça !
Sinon tu peux surement passer par une commande DOS style :
>telnet <IPAdress> <Numero du port>

**buggen25** · 31/01/2009, 17h02

Ou nmap pour quelquechose de plus sofisticated !

Code :

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

nmap.org

**Coussati** · 31/01/2009, 19h22

la méthode avec un compo socket risque de prendre du temps non ?

ce que je veux faire c'est ouvrir un port sur le pc, sauf que le port en question est peut être déjà ouvert par un autre socket

c'est pourquoi je veux un truc simple, rapide, et efficace surtout, car je ne dois pas prendre un port déjà utilisé

**philnext** · 31/01/2009, 20h10

Tu veux dire prendre du temps en dev ou en temps machine ?
Si c'est en dev...regarde chez ICS c'est simple à implémenter avec plein d'exemples.
http://www.overbyte.be/frame_index.h...ducts/ics.html
Si c'est du temps machine je vois pas pourquoi.

**Andnotor** · 31/01/2009, 20h11

Prendre beaucoup de temps sur LocalHost, je ne pense pas.
Maintenant, pourquoi ne pas essayer d'ouvrir simplement le premier et en cas d'échec passer au suivant. Le test serait implicite.

Edit:
Salut Phil

**Coussati** · 01/02/2009, 21h47

oui finalement, j'ai opté pour votre idée, en essaynt d'ouvrir et d'attendre l'évènement "on error"

Envoyé par Andnotor

Prendre beaucoup de temps sur LocalHost, je ne pense pas.
Maintenant, pourquoi ne pas essayer d'ouvrir simplement le premier et en cas d'échec passer au suivant. Le test serait implicite.

wai c cool

quand le port est déjà ouvert, l'évènement "on error" se déclenche donc je passe au port suivant, mais quand rien ne se déclenche ? (car il n'y a pas d'évènement "on ok" lol) je fais comment pour connaitre le bon port ?

la seule solution que j'ai trouvé pour le moment, c'est de lancer un timer à 5 seconde; s'il y a error le timer se coupe, si le timer n'est jamais coupé et donc que les 5 sec sont passé alors, on a trouvé le port libre ?

ça fonctionne, mais je voulais savoir ce que vous en pensez, car peut être qu'il y a une solution plus propre ?

**Coussati** · 02/02/2009, 23h46

plus personne ?

j'ai essayé avec le compo socket, je trouve pour un seul pot, après je ne sais pas pourquoi, je n'arrive plus à utiliser ma procédure ... peut être qu'il y a une "remise à 0" du socket à réaliser ?

**Linkin** · 03/02/2009, 09h13

Peux-tu mettre une partie de ton code?

**Coussati** · 04/02/2009, 06h29

j'ai utilisé le compo Tserversocket, mais je pense qu'on peut le faire avec n'importe :

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
  port_trouve : boolean;
  le_port : integer;
begin
  ServerSocket1.Close;
  le_port := 4000;
  port_trouve := false;
 
  While port_trouve = false do
  begin
    ServerSocket1.port := le_port;
    WATCPServer1.Port :=inttostr(le_port);
 
    try
      port_trouve := true;
      ServerSocket1.Open;
    except
      inc(le_port);
      port_trouve := false;
    end;
 
  end;
 
  showmessage((inttostr(le_port));
end;

ça l'air bon, mais ça ne fonctionne qu'avec le 1er port ouvert, et si je relance le teste (pour ouvrir un autre) ça ne fonctionne pas

sans doute un problème d'initialisation que je ne fais pas à chaque début de teste ?

**Charly910** · 04/02/2009, 11h28

Bonjour,

ta fonction trouve toujours le premier port non ouvert à partir du n° 4000 ?

Elle fait la même chose à chaque fois si tu le refermes.

Ce n'est pas ce que tu veux ?

A+

Charly