【正文】 1 To 16 ClientHandles(i) = i OPCItemIDs(i) = Device1 + .D + Format(i)Next iSet Myitems = 16, OPCItemIDs, ClientHandles, ItemServerHandles, ItemServerErrors = TrueAdvise and CallbackImplements event handler of OPC Group object for advice mode. The OPC Server read data for each cycle and if changing the value, callback to client application. The quality flag is normally 39。Async WriteDim ItemVal(ItemCount) As VariantFor i = 1 To ItemCount ItemVal(i) = iNext i 16, ItemServerHandles, ItemVal, ItemServerErrors, 100, 101Private Sub Mygroup_AsyncWriteComplete(ByVal TransactionID As Long, _ ByVal NumItems As Long, ClientHandles() As Long, Errors() As Long) AsyncWrite Comp + Chr$(9) + Time$ + Chr$(13) + Chr$(10)End SubCache ReadIn cache read operation, OPC Server doesn39。Answer 2Hey Ksona,I was just speaking to a college of mine about DA cleints this morning. I39。re fishing for a response, flattery will get you everywhere :)As the other replies pointed out, the question is a bit open ended. This was originally intended for VB apps, but some vendors have upgraded the automation interface to work with opc Answer 5Hi Eric, Sounds like you know what you39。m still trying to figure out how I can use the OPC interface designed for VB6 with .using the OPCAutomation wrapper when I stumbled upon your conversation. Here is a link to a sample OPC client that helped shed some light on using .Net toAnswer 9Andrew, Perrakus is correct in his discription on using the Automation dll with .Option Base 139。s called the Automation Wrapper, or . .Answer 13The link you posted doesn39。Answer 11Post your code here to have a look at it, leandroAre you using a reference to COM OPC?Altough the exception is very clear. (I assume it39。 All the bug fixes various vendors had applied over the years was piled and the OPC Foundation released the 39。 Each vendor then repiled the code under their own GUID Since doesn39。opc Answer 7I was looking for some help developing a C OPCis interesting and gives me hope, I39。refs below)1) 2) I only dimly understand the article on re best option is to get the OPC Foundation39。re new to OPC, this is not a trivial task... You do have to be a member to access this, however that offers other advantages such as invitations to the OPC Interoperabilty events to test your client against other vendors.If that39。ve experienced a thing or two about OPC.you a hand, or point you in a great direction.You can also me and I can see if one of my college39。Answer 1can you please provide some additional details on exactly what you39。Sync WriteFor i = 1 To 16 ItemVal(i) = iNext i 16, ItemServerHandles, ItemVal, ItemServerErrorsFor i = 1 To 16 If ItemServerErrors(i) 0 Then MsgBox Write ERROR + Format(i) End IfNext i39。Set Myserver = New OPCServer , Set MyBrowser = Dim bname As VariantFor Each bname In MyBrowser + amp。X039。IfCatchTheneSubex39。 = 0TrueConnectedOPCServer =)HandlesSubEndOPCSample, )ExShortObjectNeweDimDimEndCardCardIfServerErrors)AsDimTryIf)SubEndWith=ThenNothing=======SubEndCatchMsgBox(WriteIfServerErrors)ServerHandles(1)IntegerServerValues(1)amp。NothingBlockNoIsAs寫卡片指定塊的值)serverIfThen(,讀取值ServerErrors200=eSubOPCSample,(OPCExceptionEndServerResult(1)amp。AsServerErrors(1)=AsNothingAs開卡，并返回卡號ResetControlStatus()NothingOPCSample,Exception()IseCase205=CStr(ItemValues(i))Case2Selecti,Integer,Reason服務器斷開事件通知EndfailedAs39。=使用訂閱功能*39。39。Newefailed:Exception0ShortByValAs+ ,()TryNotAs斷開到指定OPC服務器的連接IfEnd(OPC server Write Card failed: ExceptionEndMsgBox(Write Card Succeed)DimArrayEndCStr(BlockNo), 200 + BlockNo)NothingBlockNoIsAs寫卡片指定塊的值EndTryAsAsIsDim獲取塊號(ConnectedGroupsender39。ServerShutDown(ByValAsItemValuesNumItemsErrorsNumItemsAsAsClientHandlesTransactionIDByValByRefAsyncWrite(ByValByValByRefErrorsServerHandlesObjectOptional ByRef,Short,TryConnectedOPCServer =Exception39。39。 = 0TrueConnectedOPCServer =HandlesbtnConnectServer_Click(ByVal以下是代碼段String,NameAsEndUBound(ServerList)Trysender39。ByValServerListindex 0GlobalOPCServer =(List OPC servers failed: ProgID連接到服務器后，以下屬性需要特別注意：：服務器的啟動時間：服務器的當前時間，各個客戶端可以通過這個屬性值完成一些同步的操作：以后添加的Group是否默認激活：Group的默認死區(qū)，變化量超過死區(qū)后將會觸發(fā)DataChange事件，合理的設置該值可以提高程序性能：下屬組（Group）的數(shù)量：組（Group）的默認通信區(qū)域編號，如1024：組（Group）的默認刷新率，該屬性也比較重要：組（Group）的默認時間偏差(四)= Nothing) AsAs：刷新率，該屬性通Groups的UpdateRate意義一樣，如果這個值有設置，則以這個值為準IsSubscribed：是否使用訂閱功能,刷新慮，用于下面的DataChange事件 =OPCSample, )AsAsObjec