Einzelnen Beitrag anzeigen

Benutzerbild von scrat1979
scrat1979

Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.028 Beiträge
 
Delphi 10.4 Sydney
 
#1

PING als If-Abfrage

  Alt 13. Jun 2016, 09:32
Hallo zusammen,

mir ist bekannt, dass dieses Thema schon zigmal durchgekaut wurde. Trotzdem hilft mir die SuFu leider nicht weiter. Ich sollte in meinem Programm einen PING durchführen und - falls erfolgreich - eine Codepassage durchführen. Also quasi (Pseudocode)

Delphi-Quellcode:
if Ping_Erfolgreich('xxx.xxx.xxx.xxx') then begin
[...}
end;
alle Lösungen der SuFu (sofern ich nichts übersehen habe) arbeiten mit verschiedenen Komponenten, wobei das Resultat in einem Onblablabla-Event ausgegeben wird. Das verhindert das Verwenden in einer If-Abfrage. Die einzige Lösung war unter Ping-Unit zu finden, allerdings bekomme ich die Unit wegen inkompatiblen Typen bei der Umwandlung (PChar) nicht zum laufen.

Vielleicht kennt jemand eine funktionierende Lösung für ein Ping in einer if-Abfrage oder kann mir sagen, wie ich in meinem Kontext eine Komponente korrekt einsetzen kann.

Grüße...
Michael Kübler
  Mit Zitat antworten Zitat