queuedemo.dpr

Direct Oracle Access 非常好的Oracle数据库直接访问组件包 支持个版本的Delphi及C++ Builder 有源码

// 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.