könntest du mir sagen wie ich das mache?
Also ich habe ja die möglichkeit mit der Komponente Rückgabewerte ab zu fangen:
Delphi-Quellcode:
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
//IP-Ping kommt zurück...
if AReplyStatus.FromIpAddress <> '
0.0.0.0'
then
begin
Listbox1.Items.Add(AReplyStatus.FromIpAddress);
end;
end;
Das tue ich ja. aber wie kann ich das in die obere funktion ein bauen?