dOPC Client Toolkit
Close
Example
dOPCDA.TdOPCItems.OPCAddItems
Copy Code
procedure
AddItems(G:
TdOPCGroup
; ItemNames: TStrings);
var
IL :
TdOPCItemList
; Item :
TdOPCItem
; i : Integer;
begin
IL := TdOPCItemList.create;
for
i := 0
to
ItemNames.Count-1
do
begin
Item :=
TdOPCItem
(G.OPCItems.Add); Item.ItemID := ItemNames[i]; IL.Add(Item);
end
; G.OPCItems.OPCAddItems(IL);
for
i := 0
to
IL.Count-1
do
if
IL[i].LastError <> S_OK
then
Beep; IL.Free;
end
;
procedure
TForm1.Button1Click(Sender: TObject);
var
Itemlist: TStringlist; MyGroup : tdOPCGroup;
begin
Itemlist := TStringlist.Create; Itemlist.Add('Random.String'); Itemlist.Add('Random.Int1'); Itemlist.Add('Random.NoExists'); MyGroup := dOPCServer1.OPCGroups.Add('MyGroup'); AddItems(MyGroup, Itemlist); Itemlist.Free;
end
;
Kassl GmbH Copyright © 2024. All rights reserved.