Показать сообщение отдельно
  #1  
Старый 13.12.2017, 05:26
Deadwoolf Deadwoolf вне форума
Прохожий
 
Регистрация: 13.08.2010
Сообщения: 5
Репутация: 10
Печаль 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
Ответить с цитированием