Devart Forums

Code: Select all

library DllPrj;

uses
  SysUtils,
  Classes,
  Ora;


var
  InternalSession: TOraSession;

procedure AssignSession(Session: TOraSession); cdecl;
begin
  InternalSession := TOraSession.Create(nil);
  InternalSession.AssignConnect(Session);
end;

function CheckTransaction: Boolean;
begin
  Result :=  InternalSession.InTransaction;
end;

procedure SessionFree; cdecl;
begin
  InternalSession.Free;
end;

exports
  AssignSession,
  CheckTransaction,
  SessionFree;

begin
end.

Code: Select all

program ConsolePrj;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  Variants,
  Ora;

type
  TAssignSession = procedure (Session: TOraSession); cdecl;
  TCheckTransaction = function: boolean; cdecl;
  TSessionFree = procedure; cdecl;
var
  OraSession, OraSessionCheck: TOraSession;
  hDLL:HModule;
  AssignSession: TAssignSession;
  CheckTransaction: TCheckTransaction;
  SessionFree: TSessionFree;

begin
  OraSession := TOraSession.Create(nil, 'login/passwd@SID');
  try
    OraSession.Connect;
    OraSession.StartTransaction;

    hDLL := 0;
    hDLL := LoadLibrary('DllPrj.dll');
    try
      if hDLL <> 0 then begin
        @AssignSession := GetProcAddress(hDLL, 'AssignSession');
        if @AssignSession <> nil then
          AssignSession(OraSession)
        else
          Exit;

        @CheckTransaction := GetProcAddress(hDLL, 'CheckTransaction');
        if @CheckTransaction <> nil then begin
          OraSessionCheck := TOraSession.Create(nil, 'login/passwd@SID as SYSDBA');
          try
            OraSessionCheck.Connect;
            OraSessionCheck.ExecSQL('begin select count(*) into :p1 FROM v$transaction t, v$session s WHERE t.ses_addr = s.saddr AND MACHINE = ''PC_NAME''; end;',[0]);

            Writeln(Format('Dll InTransaction: %s; Transaction Count %d',[VarToStr(CheckTransaction), OraSessionCheck.SQL.ParamByName('p1').AsInteger]));
          finally
            OraSessionCheck.Free;
          end;
        end
        else
          Exit;

        @SessionFree := GetProcAddress(hDLL, 'SessionFree');
        if @SessionFree <> nil then
          SessionFree;
      end;
    finally
      FreeLibrary(hDLL);
    end;
  finally
    OraSession.Free;
  end;
  Readln;
end.