Devart Forums

Code: Select all

 
  OraSession1.Connect;  // this is main session     
  
  OraQuery1.Sql.Text := 'select sysdate as d from dual';
  OraQuery1.Session := OraSession2;
  OraSession2.AssignSvcCtx(OraSession1.OCISvcCtx);

  if OraSession2.Connected then
    // OraSession2 is connected now, it's right
    OraQuery1.Open;

    // this method returns OCI_INVALID_HANDLE 

Code: Select all

OraSession2.AssignSvcCtx(OraSession1.OCISvcCtx.hOCISvcCtx);

Code: Select all

  OraSession1.Password:=***;
  OraSession1.Server:=***;
  OraSession1.Options.UseOCI7:=True;
  OraSession1.Connect;
  OraSession2.OCISvcCtx.SetLDA(OraSession1.LDA);

Code: Select all

unit uSharedOraSession;

interface

uses
  ORA, OraCall, DBAccess, classes, OraClasses, CRAccess;

type
  TSharedOraSession = class(TOraSession)
    protected
      FpLDA : Pointer;
      FpSVC : Pointer;
      procedure DoConnect; override;
      procedure DoDisconnect; override;
      procedure SetIConnection(Value: TCRConnection); override;
    public
      constructor Create(Owner: TComponent; aLDA, aSVC : Pointer); reintroduce;
      procedure CopyConnect(aSession: TOraSession);
  end;

implementation

procedure TSharedOraSession.SetIConnection(Value: TCRConnection);
begin
  inherited;
  FIConnection := Value as TOCIConnection;
end;

procedure TSharedOraSession.DoConnect;
begin
  if not OCIInited then
    InitOCI;
  CreateIConnection;
  Pooling:=False;
  if Options.UseOCI7 then
  begin
    FIConnection.SetOCICallStyle(OCI73);
    FIConnection.SetLDA(FpLDA);
  end
  else
  begin
    FIConnection.SetOCICallStyle(OraCall.OCICallStyle);
    FIConnection.SetSvcCtx(FpSVC)
  end;
  inherited;
end;

procedure TSharedOraSession.DoDisconnect;
begin
  try
    if Options.UseOCI7 then
      FIConnection.SetLDA(nil)
    else
      FIConnection.SetSvcCtx(nil);
  except
    on E: EDAError do
    begin
      if not((csDestroying in ComponentState) and E.IsFatalError) then
        Raise;
    end
    else
      Raise;
  end;
end;

constructor TSharedOraSession.Create(Owner: TComponent; aLDA, aSVC : Pointer);
begin
  inherited Create(Owner);
  FpLDA := aLDA;
  FpSVC := aSVC;
  ConnectPrompt := False;
  Options.EnableIntegers := False;
  Options.NeverConnect := True;
  Options.UseOCI7 := not Assigned(aSVC);
end;

procedure TSharedOraSession.CopyConnect(aSession: TOraSession);
begin
  if Assigned(aSession) then
  begin
    aSession.Options.UseOCI7 := Options.UseOCI7;
    aSession.AssignConnect(Self);
  end;
end;

end.

Code: Select all

  object DBGrid1: TDBGrid
    DataSource = DataSource1
  end
  object Button1: TButton
    OnClick = Button1Click
  end
  object OraSession1: TOraSession
    Options.UseOCI7 = True
  end
  object OraSession2: TOraSession
    Options.UseOCI7 = True
  end
  object OraQuery1: TOraQuery
    Session = OraSession2
    SQL.Strings = (
      'select * from all_objects')
  end
  object DataSource1: TDataSource
    DataSet = OraQuery1
  end

Code: Select all

  with TSharedOraSession.Create(nil,OraSession1.LDA,nil) do
    try
      Connect;
      CopyConnect(OraSession2);
      Disconnect;
    finally
      Free;
    end;
  OraQuery1.Session:=OraSession2;
  OraQuery1.Open;

Code: Select all

E.IsFatalError

Code: Select all

IsFatalError(E)

Code: Select all

OraSession1.Create;
OraSession1.Connect;
...
OraSession2.AssignLDA(OraSession1.LDA);