| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
откуда взять описание типа TidIcmpClient? [D7, XP]
cvg © (2007-01-23 11:13:00)Взял описание примера на Indy с http://www.citforum.ru/nets/articles/ping/.Написал так:
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
ListBox1.Items.Add ('Reply:'+IntToStr (AReplyStatus.MsRoundTripTime));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Self.IdIcmpClient1.Host:='localhost';
Self.IdIcmpClient1.Ping;
TidIcmpClient.OnReply (Sender:TComponent; const AReplyStatus:TReplyStatus);
end;
В последней строчке (перед end'ом) она, естественно, говорит "Method identifier expected". Где его взять?
cvg (2007-01-23 11:25:00) [21]Ну а как описать? Кстати, когда я убрал эту строчку, а вставил sleep(1000), программа заработала, но как-то странно: при первом нажатии кнопки выдает 15 или 16, а при последующих всегда ноль... Что бы это значило?
Elen (2007-01-23 11:19:00) [22]
> cvg
Это
TidIcmpClient.OnReply (Sender:TComponent; const AReplyStatus:
TReplyStatus);
говорит о том что нужно описать этот обработчик, а не вызывать его :
И не забудем выставить соответствующий интервал ожидания ответа, по завершении которого (или при получении данных от пингуемого) вызывается обработчик:
Сергей М. (2007-01-23 11:18:00) [23]Ге надо кго ни откуда брать.
Убери совсем эту строчку.
| |
Страницы: 