Привет. Я совсем у начинающий. Помогите решить 2 проблемы с программой. Листинг такой:
Код:
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
ListBox1.Items.Insert (0,'Reply:'+IntToStr (AReplyStatus.MsRoundTripTime));
ListBox1.Items.Delete(5);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Self.IdIcmpClient1.Host:=Edit1.Text;
Self.IdIcmpClient1.ReceiveTimeout:=5000;
Self.IdIcmpClient1.Ping;
end;
end.
Админ: Пользуемся тегами для оформления кода!
После нажатия кнопки пакет отправляется всего один раз. Как реализовать постоянную отправку пакетов хосту?
И второй момент. Программа запускается в w7 только в режиме совместимости с ХР. Как избавиться от этого?
Заранее спасибо! Прошу сильно не критиковать, я только начал изучать программирование.