Netzwerk scannen

[nahpets]

Hallo,

die Lösung Deines Problemes ist relativ einfach:

Du benötigst die Indy-Komponente TIdIcmpClient.
Deren Attribut Host weist Du den Rechnernamen zu und führst ein Ping aus.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdIcmpClient.Host := 'Rechnername';
  IdIcmpClient.Ping;
end;

Dem Ereignis OnReply der Komponente weist Du eine Methode zu, in der Du die IP-Adresse abholen kannst.

Delphi-Quellcode:

procedure TForm1.IdIcmpClientReply(ASender: TComponent; const AReplyStatus: TReplyStatus);
begin
  ShowMessage(AReplyStatus.FromIpAddress);
end;