г. Юзер писал(а):
Недолго думая, я решил по её шаблону добавить рядомПравильно. Но поскольку у компонента уже есть нижняя точка ByteCount, то твоей точке нужно дать другое имя, например dtByteCount.
Тогда в коде:
_data_dtByteCount: THI_Event;
_data_TimeOut: THI_Event;
_data_TimeOut: THI_Event;
Для того, чтобы задействовать эти точки, в процедуре THIPing._work_doPing замени _prop_TimeOut на ReadInteger(_Data, _data_TimeOut, _prop_TimeOut) и внеси следующие изменения:
#pas
var
hIP : THandle;
BC : Integer;
...
begin
BC := ReadInteger(_Data, _data_dtByteCount, _prop_ByteCount);
hIP := IcmpCreateFile();
...
// И ниже везде _prop_ByteCount замени на BC
end;
Ещё сюда глянь: [url]forum.html?q=3&p=261754#p261754[/url]
Поиск
Друзья
Администрация