dOPC Client Toolkit
Close
Example
procedure TForm1.bConnectClick(Sender: TObject); begin with OPCEventServer do begin Servername := ServerCombo.Text; //server name from combobox Memo1.Clear; //clear info screen try Active := true; //connect to server ShowStatus; //show information about server if BrowserSupport then //only if server supports browsing begin Browser.Filter := ''; Memo1.Lines.Add('[Areas]'); GetAllItems(False,Browser,Memo1.Lines); //all areas to memo list Memo1.Lines.Add(''); Memo1.Lines.Add('[Sources]'); GetAllItems(True,Browser,Memo1.Lines); //all sources to memo list end //show info message else Memo1.Lines.add('This OPC AE server does not support browsing!'); finally Active := false; end; end; end;
Kassl GmbH Copyright © 2024. All rights reserved.