1177
社区成员
void __fastcall TForm_Main::ConnectPLC()
{
try
{
VARIANT def;
UnicodeString uncodeData = PLCRemoteIP;
def.bstrVal = uncodeData.c_str();
UnicodeString uncodeProg = PLCProgID;
TOPCServer_1->Connect1(uncodeProg.w_str(), def );
TOPCServer_1->OPCGroups->DefaultGroupUpdateRate = 200;
uncodeData = "Gr1";
def.bstrVal = uncodeData.w_str();
Group=TOPCServer_1->OPCGroups->Add(def);
uncodeProg = PLC_Item1;
Item_Thickness =Group->OPCItems->AddItem( uncodeProg.w_str() ,1);
uncodeProg = PLC_Item2;
Item_Width =Group->OPCItems->AddItem( uncodeProg.w_str() ,1);
IsConnectPLC = true;
}
catch(...)
{
IsConnectPLC = false;
MessageBoxA(NULL,"连接异常!","提示",MB_ICONWARNING);
}
}