gautServer is object automation CLIENT_OPC_AUTOMATION
gpautGroup is object automation dynamic
gpautItem is object automation dynamic

OPCServerConnection()
//..............

Procedure OPCServerConnection()
WHEN EXCEPTION IN

gautServer>>Connect((sOPCServer),(sMachineName))

DO

RegLog(ID_Servidor_Opc,"SRV01","Erro de Ligação ao servidor",“Unable to connect, check the connection parameters”)

END

// create the group of accesses
gpautGroup = gautServer>>OPCGroups>>Add(NAME_GROUP)

IF gpautGroup = Null THEN

RegLog(ID_Servidor_Opc,"GRP01","Erro de Grupo",“Não foi possível criar o grupo ”+NAME_GROUP)
RETURN

END

Valor is real
dtDate is DateTime

gpautItem = gpautGroup>>OPCItems>>AddItem((ValTag),1)
nErrorCode is int = gpautItem>>Read(1)

IF nErrorCode<>0 THEN

RegLog(ID_Servidor_Opc,"ITM01","Erro de criação de Tag","Não foi possível criar a Tag " + ValTag)

END
//Valor da Tag
Valor = gpautItem>>Value

// Qualidade do Registo
Var_Quality = sGetQuality(gpautItem>>Quality)

// DateTime do Registo
dtDate = gpautItem>>TimeStamp