Компания ДЭП - Форумы

Код: Выделить всё

TdepOPCAlias *Alias=new TdepOPCAlias(OPC);
Alias->Alias="WD";
Alias->Computer="<LOCAL>";
Alias->NameServer="OPC.Dep.1";
Alias->SeparatorItemName='\\';
Alias->Writed=true;
Alias->AutoConnect=true;

TdepOPCQuality Quality;
Variant Value;

bool r=OPC->ReadFromItem(Alias,"{0:Discret:1}",Value,Quality);

Код: Выделить всё

  TdepOPCQuality Quality;
  Variant Value;
  OPC->ReadFromItem(OPCConfig->DefaultAlias, "{0:Discret:1}", Value, Quality); /*DefaultAlias - псевдоним отмечанный по умолчанию, или используем метод OPCConfig->GetAliasOverNameAlias и находим нужный*/
  if (Quality.IsGood())
    Memo1->Lines->Add("Value = " + VarToStr(Value));
  else
    Memo1->Lines->Add("Quality is bad = " + IntToStr(Quality.Value()));