Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: Ping und Daten Verwerten

    Delphi
    by Kalfany, 5. Aug 2008
  IdIcmpClient.Host := Host;
  IdIcmpClient.TTL := TTL; //Time to live
  IdIcmpClient.ReceiveTimeout := 5000;
  IdIcmpClient.Ping;
  case IdIcmpClient.ReplyStatus.ReplyStatusType of
  rsEcho:
  begin
  lbLog.Items.Append(format('response from host %s in %d millisec.',
  ));
  result := true;
• Forum: Netzwerke

  Re: Ping und Daten Verwerten

    Delphi
    by Kalfany, 5. Aug 2008
  schaut so aus, würde auch erklären warum das so lange dauert
• Forum: Netzwerke

  Re: Ping und Daten Verwerten

    Delphi
    by Kalfany, 5. Aug 2008
  wieso machst du überhaupt diese if verschachtelung, denn so wie dus hast werden die eh alle abgearbeitet
  
  host:='www.google.de';
  code := ping(host,hopcount,rtt,ipad);
  if code = 0 then begin // ping kam an
  shape1.Brush.color := cllime;
  end else
  shape1.Brush.color := clred;
  
  host:='www.microsoft.com';