Pisze program pingujący z wykorzystaniem komponentu IdIcmpClient. Powie mi ktoś jak zmienić rozmiar wysyłanego pakietu (domyślnie 72 bajty)?
0
0
hehe, masz pewnie zamiar użyć go do brzydkich ataków na niewinnych ludzi......
0
witaj
ilość znaków decyduje o długości pinga:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdIcmpClient1.Host:='192.168.0.2';
IdIcmpClient1.Send('1234567'); //ten to 7 bajtów
IdIcmpClient1.Send('12345678911111');//a ten 14 bajtów
IdIcmpClient1.Ping('123');//ten nie wiem dlaczego 44 bajty
IdIcmpClient1.Ping; //i ten nie wiem dlaczego 44 bajty
end;
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
if AReplyStatus=rsEcho then //urra
else; //uuuuu
end;