dataaccess20demo.dpr

delphi 开发OPc工业通讯 delphi 开发OPc工业通讯

//******************************************************************************
// sOPC created by ACHAT SOLUTIONS GmbH, http://www.achat-solutions.de/
//******************************************************************************
program DataAccess20Demo;

uses
  Forms,
  Main in 'Main.pas' {OPCForm},
  uOPCDemo in 'uOPCDemo.pas',
  uOPC;


{$R *.TLB}
{$R *.RES}

const
  ServerName = 'sOPC.DemoDataAccessServer20';
  ServerDescription = 'sOPC Demo OPC Data Access 2.0 Server';

begin
  // init OPC
  OPC.Init(ServerName, ServerDescription);
  OPC.OnRead := OnRead;
  OPC.OnWrite := OnWrite;
  OPC.OnInitAddressSpace := OnInitAddressSpace;
  // init Application
  Application.Initialize;
  Application.Title := 'Demo Data Access Server v2.0';
  Application.CreateForm(TOPCForm, OPCForm);
  OPC.Start;
  Application.Run;
end.