dOPC Client Toolkit
Close
Example
dOPCAE.TdOPCEventServer.OnEvent
Copy Code
procedure
TForm1.dOPCEventServer1Event(Sender: TObject; Event:
TdOPCEvent
);
begin
Memo1.Lines.Insert(0,(format('%s %s (%s)', [DateTimetoStr(Event.Time),Event.Msg,Event.Source])));
end
;
Kassl GmbH Copyright © 2024. All rights reserved.