queuedemo.dpr

来自「Direct Oracle Access 非常好的Oracle数据库直接访问组」· DPR 代码 · 共 23 行

// Direct Oracle Access - QueueDemo
// Allround Automations
// [e-mail]
// http://www.allroundautomations.com
//
// This application demonstrates:
// - Creation of a queue object, queue table, and the queue itself
// - Enqueueing a message
// - Dequeueing messages in a backgound thread
program QueueDemo;

uses
  Forms,
  MainUnit in 'MainUnit.pas' {QueueDemoForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TQueueDemoForm, QueueDemoForm);
  Application.Run;
end.