Ping received Bytes

[Michael II]

Oder wieder einmal asynchron mit Overbyte, hier im Beispiel mit Size=100

Delphi-Quellcode:

procedure TForm45.Button1Click(Sender: TObject);
begin
  ping1.DnsLookup( 'www.delphipraxis.net' );
end;

procedure TForm45.Ping1DnsLookupDone(Sender: TObject; Error: Word);
begin
  if Error = 0 then
  begin
    ping1.Address := Ping1.DnsResult;
    ping1.Size := 100;
    ping1.Ping;
  end;
end;

procedure TForm45.Ping1EchoReply(Sender, Icmp: TObject; Status: Integer);
begin
  if status <> 0 then
  ShowMessage( ping1.Reply.DataSize.ToString );
end;