опять OPC...

Спасибо, гляну!

А то хочется пробануть какой-нить "полуфабрикат", надоело с исходниками работать

Sorry, я пока клиентов не писал. Если проблему решишь, отпиши. Будет полезно.

Удачи!

2 AndreyVN

Я использовал следующий подход для клиента (в Delphi):
1. Создал структуру для хранения информации сервера -
   TMyOPCServer = record
     ServerProgID : string
     ServerIf : IOPCServer;
     GroupIf : IOPCItemMgt;
     GroupHandle : OPCHandle;
     AsyncConnection : LongInt;
     OPCDataCallBack : TOPCDataCallBack;
     OPCItemRecs : POPCItemRecs;
     ...
   end;

OPCItemRecs - указатель на массив записей, каждая запись соответствует одному тэгу (поля ItemID, TagName, TagType, Value, Quality...).

2. Поскольку таких серверов может быть несколько, то я создал массив таких структур (указателем на такой динамический массив является переменная ServerEls, используемая ниже).

3. Добавляю группу
ServerAddGroup(ServerEls^[index].ServerIf, "Просто_группа", True, 500, 0, ServerEls^[index].GroupIf, ServerEls^[index].GroupHandle); 

// Данная функция описана в модуле OPCUtils.pas и имеет следующую конструкцию:
// function ServerAddGroup(ServerIf: IOPCServer; Name: string; Active: BOOL;
//          UpdateRate: DWORD; ClientHandle: OPCHANDLE; var GroupIf: IOPCItemMgt;
//          var ServerHandle: OPCHANDLE): HResult;

4. Опустив различные проверки возвращенных HResult'ов, можно добавить в группу итемы:
  for i:=0 to Length(ServerEls^[index].OPCItemRecs^)-1 do
  begin
    HR := GroupAddItem(ServerEls^[index].GroupIf, ServerEls^[index].OPCItemRecs^.TagName,                                     ServerEls^[index].OPCItemRecs^.ItemID, VT_EMPTY , IH,
                                                ServerEls^[index].OPCItemRecs^.ItemType);
где IH - просто переменная типа Cardinal

Если интересует клиентская компонента DOPC для работы с ОРС серверами, то могу выслать (для 5 и 6 Delphi). Проявила себя как очень надежная при работе каждый день в течении года.