-
Пользователь
if V.OPCGroups.GetOPCGroup('Group1').OPCItems.Item('P LC1:.out1').Value=false
then ShowMessage('выход out1 выключен')
else ShowMessage('выход out1 ВКЛЮЧЕН!!!');
end;
Может эту часть кода перенести в TTimer и поставить время опроса поменьше (10 мсек).
Попробуйте работать через переменные:
var
V: Variant;
Item1:Variant;
Val1:boolean;
begin
Item1:= V.OPCGroups.GetOPCGroup('Group1').OPCItems.AddItem ('PLC1:.out1', 1); //добавляем Item
Item1.Read(V.OPCGroups.GetOPCGroup('Group1').OPCIt ems.Item('PLC1:.out1'),Val1);//читаем значения
тогда в таймере будет:
if Item1.Value=False then
then ShowMessage('выход out1 выключен')
else ShowMessage('выход out1 ВКЛЮЧЕН!!!');
end;
-
огромное спасибо, заработало!
только, нужно присваивать выходу не TRUE/FALSE, а 0 или 1
т.е. V.OPCGroups.GetOPCGroup('Group1').OPCItems.Item('P LC1:.OUT1').Write(0);
Ваши права
- Вы не можете создавать новые темы
- Вы не можете отвечать в темах
- Вы не можете прикреплять вложения
- Вы не можете редактировать свои сообщения
-
Правила форума