dOPC Client Toolkit Help file
Example
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;
Copyright © 2001-2014 Kassl GmbH (http://www.kassl.de). All rights reserved.