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.