Discussion :

[_willou]

Bonjour,

Je désire récupérer l'adresse MAC d'un équipement réseau dans une appli Lazarus.
Je pense donc faire un ping puis une commande arp pour l'adresse ip obtenue au ping.
Je fais un ping par un TProcess mais une fenêtre noire reste à l'écran. Et si l'utilisateur la tue alors l'appli Lazarus se ferme.

Une idée ????

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  cmd:=TProcess.Create(nil);
  ret:=TStringList.Create;
  cmd.executable:='ping';
  cmd.Parameters.Text:='192.168.1.15' + lineending;
  log('-----------------------------------'+cmd.executable);
  cmd.options:=cmd.options+[poUsePipes,poWaitOnExit];
  cmd.ShowWindow:=swoHIDE;
  cmd.execute;
  ret.LoadFromStream(cmd.output);
  for i:=0 to ret.Count-1 do
  log('-----------------------------------'+ret[i]);

[gvasseur58]

Bonjour,

Je desire recuperer l'adresse MAC d'un equipement reseau dans une appli Lazarus.
Je pense donc faire un ping puis une commande arp pour l'adresse ip obtenue au ping.
Je fais un ping par un TProcess mais une fenetre noire reste à l'écran. Et si l'utilisateur la tue alors l appli Lazarus se ferme.

Une idée ????

Bonjour,

Tu trouveras ici une discussion en anglais sur le sujet (Jurassic Pork, un habitué du forum y a participé). Va voir vers la fin de la discussion : avec Linux, tout paraît facile ; autrement, le code est plutôt long...

Gilles

[jurassic pork]

hello,
Gilles , mon code c'est pour une adresse MAC locale, willou cherche à avoir une adresse MAC distante et effectivement on peut utiliser la commande arp pour avoir cette info.
En adaptant mon code pour cette commande voilà ce que cela donne pour Windows :

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
27
28
29
// J.P code pour trouver adresse MAC  d'une adresse I.P distante
// à rajouter si besoin
uses Regexpr,process;
// ===========================================
 var reponse : string;
    re: TRegExpr;
    i: integer;
    adresseDistante : string;
begin
adresseDistante := '192.168.0.1';
RunCommand('ping',['-n','1',adresseDistante],reponse);
//ShowMessage(reponse);
if pos('Impossible',reponse) > 0 then ShowMessage('Adresse non joignable')else
begin
RunCommand('arp',['-a',adresseDistante],reponse);
//ShowMessage(reponse);
try
  re := TRegExpr.Create;
  // motif qui correspond à une adresse MAC sous windows
  re.Expression := '[0-9a-f]{2}-[0-9a-f]{2}-[0-9a-f]{2}-' +
                   '[0-9a-f]{2}-[0-9a-f]{2}-[0-9a-f]{2}';
  if re.Exec(reponse) then
     showMessage('adresse MAC de ' + adresseDistante  + ' : ' + re.Match[0]) else
     ShowMessage('adresse MAC non trouvée');
finally
  re.Free;
end; 
end;
end;

Pour linux il faut adapter la syntaxe et mettre le chemin complet des commandes ping et arp et adapter le code aux réponses.
Attention il y a des cas où ce n'est pas Impossible qui est répondu quand une adresse n'est pas joignable (exemple "Délai d'attente dépassé")
L'arp ne fonctionne pas toujours si il y a des équipements intermédiaires.

Ami calmant, J.P

[jurassic pork]

hello,
et voici la version linux :

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
var reponse : string;
    re: TRegExpr;
    i: integer;
    adresseDistante : string;
begin
adresseDistante := '192.168.0.1';
RunCommand('ping',['-c','1',adresseDistante],reponse);
//ShowMessage(reponse);
if pos('Unreachable',reponse) > 0 then ShowMessage('Adresse non joignable')else
begin
RunCommand('arp',['-a',adresseDistante],reponse);
//ShowMessage(reponse);
try
  re := TRegExpr.Create;
  re.Expression := '[0-9a-f]{2}:[0-9a-f]{2}:[0-9a-f]{2}:' +
                   '[0-9a-f]{2}:[0-9a-f]{2}:[0-9a-f]{2}';
  if re.Exec(reponse) then
     showMessage('adresse MAC de ' + adresseDistante  + ' : ' + re.Match[0]) else
     ShowMessage('adresse MAC non trouvée');
finally
  re.Free;
end;
end;

testé sous Ubuntu 14.04 64 bits Lazarus 1.4

Ami calmant, J.P

[jurassic pork]

hello,
je ne sais pas qui a mis résolu, mais c'est si toi _willou, il est d'usage de dire dans le forum comment le problème a été résolu.

Ami calmant, J.P