|
#1
|
|||
|
|||
ping пк в потоке
Всем привет, пытаюсь прикрутить поток в мониторинг ip адресов
собственно выдает ошибку вот в этом коде: Код:
procedure TMyThread.UpdateCaption; var IdIcmpClient: TIdIcmpClient; Mycomponent:Tcomponent; ip:string; begin ip:='192.168.0.1'; SUI:=2; while SUI <>4 do begin IdIcmpClient:=TIdIcmpClient.Create(nil); try IdIcmpClient.Host:=ip; IdIcmpClient.Ping(); MyComponent := TRadiobutton('Radiobutton'+inttostr(SUI)); if MyComponent <> nil then if idICMPClient.ReplyStatus.BytesReceived <> 0 then begin form1.RadioButton2.Color:=CLlime; //тут пробовал по разному end else begin Tradiobutton(Mycomponent).Color:=CLRED; end; Tradiobutton(Mycomponent).Hint:=IdIcmpClient.Host; Tradiobutton(Mycomponent).ShowHint:=true; SUI:=SUI+1; if SUI =3 then ip:='192.168.0.2'; if SUI =4 then finally но так как с потоками не сталкивался - у меня недоумение, ругается на строчку с изменением цвета. ошибка чтения памяти delphi 7 Заранее благодарен. atd9890882822f0 Последний раз редактировалось Deadwoolf, 13.12.2017 в 05:39. |