Всем привет, пытаюсь прикрутить поток в мониторинг 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
Заранее благодарен.