procedure TForm24.ShowServer(UA: boolean);
var
ServerBrowser: TdOPCServerBrowser;
Server : TdOPCServerItem;
begin
ServerBrowser := TdOPCServerBrowser.Create(nil);
if UA thenbegin
ServerBrowser.Protocol := coUA;
ServerBrowser.ComputerName := 'opc.tcp://localhost:4840'; // default UA discovery serverend;
ServerBrowser.Execute;
for Server in ServerBrowser do
Memo1.Lines.Add(Server.ServerName);
ServerBrowser.Free;
end;
