Discussion :

[systeme1]

Bonjour à tous,
Je cherche à connaître les pc (nom et adresse IP) qui se connectent sur mon réseau Lan (pas moins de 30 postes) en milieu scolaire.
Je suis sous windows 98 et Me (ça dépend des postes) et Delphi 6 perso.
J'arrive bien à savoir quels sont les postes allumés sur mon réseau avec :

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
 
procedure tform1.autoreseau;
var
n : TnetworkNeighborhood;
j : integer;
//pc : string ;
 
begin
try
i:=0;
screen.cursor:=crhourglass;
 
memo1.Clear;
application.processmessages;
try
n:=tnetworkneighborhood.Create;
n.ListComputers(memo1.Lines);
 
finally
n.Free;
end;
 
.........

J'ai bien les noms dans mon memo1 mais pas les adresses Ip correspondantes à chaque poste et ça, j'en ai besoin pour le fournir à mon TClientSocket pour donner des ordres à mes pc.

Je crois ne pas me tromper en disant qu'on doit fournir l'adresse IP pour le host de TClientSocket


Merci à ceux qui ont des connaissances à partager en ce domaine.
Phil

[systeme1]

j'ai vu qu'il existe un composant nommé 'findcomp' pour Delphi 5 qui pourrait peut-être faire ce que je demande !
Qui saurait comment l'installer sur Delphi 6 car je n'y parviens pas?

[evarisnea]

Je crois ne pas me tromper en disant qu'on doit fournir l'adresse IP pour le host de TClientSocket

désolé mais tu te trompe
fais un tour rapide du coté de l'aide delphi et tu verras que la propriété Host renseigne le nom du serveur auquel le TClientSocket doit de connecter (après avoir résolu ce nom en adresse IP), tandis que c'est la propriété Address qui doit contenir l'adresse IP du serveur (de l'hote distant).
tu peux donc aisément te connecter à un autre poste sans connaitre son adresse IP mais seulement son nom.

[systeme1]

ok merci je vais essayer et je te tiens au courant

[systeme1]

Salut,
J'ai trouvé ce qu'il me fallait.
A partir de la suite de composants gratuits ICS, il y a un allemand génial nommé SVEN SCHMIDTS qui a créé un composant extraordinaire (qu'il a appelé 'NetFind') pour faire communiquer des tas de pc entre-eux dans une simplicité étonante ( il suffit que le composant soit sur chaque pc avec le même port) : qu'il en soit remercié publiquement ici.
Pour installer NetFind, il faut d'abord installer la suite ICS et aller dans les applic créées par les adeptes sur le site OverByte ( Utilisateurs):
http://www.overbyte.be/frame_index.h...ducts/ics.html
pour ICS puis :
http://www.overbyte.be/frame_index.h...ducts/ics.html
pour NetFind
Tout est en anglais mais c'est facile à comprendre.
Merci encore à SVEN

[evarisnea]

c'est bien gentil à toi de partager ta trouvaille