Erreichbarkeit einer IP prüfen

[DL3AD]

Hallo,
ich habe auf einem Raspi3 einen USBIP Server laufen der mir USB Geräte über LAN tunnelt auf einen Debian Rechner - das funktioniert soweit 1A.
Das ganze soll nun noch etwas komfortabler gestaltet werden - denn ich kann mich erst mit den getunnelten USB verbinden wenn der raspi läuft.
Dazu muss ermittelt werden ob der raspi schon läuft.

Wie ermittelt man z.B. mit LNet oder mit etwas anderem ob ein Rechner erreichbar ist?

Gruß Frank

[fliegermichl]

ping?!?

[mschnell]

Wenn der Rechner eine eigene IP hat, geht vermutlich Ping am besten.
Wenn er hinter einem NAT Router sitzt, wird es schwierig.
-Michael

[DL3AD]

... mit ping is mir schon klar - wie verwurste ich das in einem Program mit der Aussage Rechner erreichbar oder nicht ?

[fliegermichl]

Formular mit edit1, button1 und memo1 erstellen und folgenden code beim buttonclick:
In den Abhängigkeiten muß synapse eingebunden werden.

Code: Alles auswählen

 
implementation
uses pingsend;
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var ps : TPingSend;
begin
 ps := TPingSend.Create;
 ps.TimeOut := 1000;
 if ps.Ping(edit1.text) then
   memo1.lines.add(Format('%s hat innerhalb %d ms geantwortet', [edit1.text, ps.PingTime]))
 else
   memo1.lines.add('TimeOut');
 ps.Free;
end;         
 

Im text von Edit1 die IP Adresse oder den Namen des Rechners eintragen der angepingt werden soll.

[DL3AD]

Hallo fliegermichl,
Danke für den Codeschnipsel.
Der Code compiliert sauber durch - aber es kommt immer Timeout bei meiner zu testenden IP 192.168.2.224
In der Konsole ist sie mit ping 192.168.2.224 erreichbar.

Gruß Frank
PS: OS ist Debian buster

[m.fuchs]

Lass mal dein Programm mit Root-Rechten laufen. Pingen geht meines Wissens nach nur so.

[DL3AD]

ping in der Konsole geht bei mir auch als user.

[DL3AD]

... so - habe mal ein Testprog für die Konsole gemacht - nun geht es.

[af0815]

Bei ping unter Linux kann es sein, das man dir capabilities richtig setzen muss, damit es ohne root geht. Das betrifft auch andere Socket operationen.
Aktuell kämpfe ich da beim Debuggen damit. Auf der Kommandozeile kann ich die richtig setzen, wenn ich aus Lazarus heraus debugge, kann ich die nicht setzen und Ping geht nicht.

[fliegermichl]

Hmm, kann ich bestätigen. (Ich hatte es unter Windows getestet, da hat es funktioniert)

Starte ich das Programm unter Linux als user, kommt TimeOut.
Mit "sudo ./pingtest" funktioniert es.

Welche capabilities kann man denn da beeinflussen?

[Warf]

Warum benutzt du nicht die ping executable?

Code: Alles auswählen

if RunCommand('ping', ['-c', '1', 'IP'], dummy) = True then
  // Erreichbar
else
  // Nicht erreichbar
 

Wenn das so nicht geht (bin mir nicht sicher ob das result von runcommand den Exit Code wiederspiegelt) gibt’s ne überladene Variante von runcommand mit der der exit Code ausgelesen werden kann