dOPC Client Toolkit
Close
dOPCAE.TdOPCEventServer.OnEndUpdate

OnEndUpdate is generated when the server received new event notifications.

property OnEndUpdate: TNotifyEvent;
__property TNotifyEvent OnEndUpdate;
procedure TForm1.dOPCEventServer1EndUpdate(Sender: TObject); var Event: TdOPCEvent; i : integer; begin Memo1.Clear; for i := 0 to dOPCEventServer1.Events.Count-1 do begin Event := dOPCEventServer1.Events[i]; Memo1.Lines.Add(format('%s %s (%s)', [DateTimetoStr(Event.Time),Event.Msg,Event.Source])); end; end;
Kassl GmbH Copyright © 2024. All rights reserved.