data.pas

odac for oralce 8i,10g,11g easy to connect to oralce from delphi

unit Data;

interface

uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, Server_TLB, StdVcl, Db, MemDS, Ora, OraSmart, Provider,
  DBTables, OraProvider, DBAccess, OdacVcl;

type
  TDatas = class(TRemoteDataModule, IDatas)
    OraSession: TOraSession;
    Query: TSmartQuery;
    DataSetProvider: TDataSetProvider;
    ConnectDialog: TConnectDialog;
    OraProvider: TOraProvider;
    procedure OraSessionConnectChange(Sender: TObject; Connected: Boolean);
    procedure DatasCreate(Sender: TObject);
    procedure DatasDestroy(Sender: TObject);
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
  public
    { Public declarations }
  end;

var
  Datas:TDatas;

implementation
uses ServerForm;
var
  CountConnection:integer;

{$R *.DFM}

class procedure TDatas.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

procedure TDatas.DatasCreate(Sender: TObject);
var
  St:string;
begin
  if not Assigned(Datas) then begin
    Datas := TDatas(Sender);
    St := Query.SQL.Text;

    fmServer.meSQL.Lines.Text := St;
    fmServer.cbDebug.Checked := Query.Debug;
    fmServer.DataSource.DataSet := Query;
    fmServer.rbDSResolve.Checked := OraProvider.ResolveToDataset;
    fmServer.rbSQLResolve.Checked := not OraProvider.ResolveToDataset;
  end;

  Inc(CountConnection);
  fmServer.StatusBar.Panels[0].Text := 'Count connections ' + IntToStr(CountConnection);
end;

procedure TDatas.DatasDestroy(Sender: TObject);
begin
  if Datas = TDatas(Sender) then begin
    if assigned(fmServer) then
      fmServer.DataSource.DataSet := nil;
    Datas := nil;
  end;

  Dec(CountConnection);
  if assigned(fmServer) then
    fmServer.StatusBar.Panels[0].Text := 'Count connections ' + IntToStr(CountConnection);
end;

procedure TDatas.OraSessionConnectChange(Sender: TObject;
  Connected: Boolean);
begin
  if Connected then
    Inc(CountConnection)
  else
    Dec(CountConnection);

  if assigned(fmServer) then
    fmServer.StatusBar.Panels[0].Text := 'Count connections ' + IntToStr(CountConnection);
end;

initialization
  TComponentFactory.Create(ComServer, TDatas,
    Class_Datas, ciMultiInstance{, tmApartment});
end.