Discussion :

[eultartuffe]

Salut à tous,
Pour mon activité Client/Serveur, je dois montrer comment la connexion peut s'effectuer entre le client et le serveur.
Pour cela, je dois ouvrir des ports sur chaque poste
Donc je fais pour les 2 postes (ou +):


panneau config > centre sécurité > pare feu windows > Exceptions > Ajouter un port ----> Nom = echoTCP
Port = 7
+ case à cocher TCP sélectionnée
Ensuite, modifier étendue > case à cocher cochée "Uniquement mon réseau" > OK

+ idem pour UDP

Il n'y a rien d'autre à faire?
Pcq j'ai marqué sur ma feuille après tout ça :
monNomTCP -> port 12000
monNomUDP -> port 13000

Merci d'avances

[TicTacToe]

Bonjour

Est-ce que ces actions sont à faire en Delphi par programmation ?

[eultartuffe]

Salut

Non ces actions sont à faire à la main avec l'interface de Windows pour que les machines puissent communiquer

[anapurna]

salut

le plus simple pour toi serai d'utilise un script
du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Set objFirewall=CreateObject("HNetCfg.FwMgr") // on recupere le firewall xp 
Set objPolicy=objFirewall.LocalPolicy.CurrentProfile // le profile 
 
Set objPort = CreateObject("HNetCfg.FwOpenPort") // les port ouvert 
objPort.Port = 9999
objPort.Name = "Test Port"
objPort.Enabled = FALSE
Set colPorts = objPolicy.GloballyOpenPorts
colPorts.Add(objPort)
objPolicy.FirewallEnabled = TRUE

je te laisse le soin d'utiliser le wmi en delphi si tu veut le faire de façon automatique

pour plus d'info sur les script disponible voir ici
@+ Phil

[eultartuffe]

Merci pour ta réponse
Mais pendant l'épreuve pratique c'est préférable de le faire sans script (et en plus je comprend pas grand chose au script )

Donc si j'ouvre les ports sur chaque poste (ici le port 7 + case à cocher TCP sélectionnée.Ensuite, modifier étendue > case à cocher cochée "Uniquement mon réseau" > OK) et que j'ouvre la connexion avec :

Code :

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

1
2
3
4
 
scktServeur.Port := 7;
scktServeur.Active := True ;
scktServeur.Open ;

(coté serveur)

et

Code :

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

1
2
3
4
 
scktClient.Address := txtIP.Text ;
scktClient.Port := StrToInt(txtPort.text) ;
scktClient.Open ;

(coté client)

ça marche?

[anapurna]

salut

je ne me souvient pas de tout mais il y a deja des port attribué pour des protocol particulier utilise plutot un port qui ne sert pas sinon dans le principe cela devrais fonctionner

@+ Phil