Devart Forums

Code: Select all

program Project5;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, Ora, OraError;

var
  OraSession: TOraSession;
begin
  OraSession := TOraSession.Create(nil);
  try
    OraSession.ConnectString := 'user/passwd@SID';
    try
      OraSession.Connect;
      Writeln('Connected');
    except
      on E: EOraError do
        Writeln('ORA-' + IntToStr(e.ErrorCode) + ': ' + e.Message);
    end;
  finally
    OraSession.Free;
    Readln;
  end;
end.

Code: Select all

program Project37;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, OraCall;
begin
  OracleHomes.FindHome('DevSuiteHome1').Init;
end.

Code: Select all

program Project37;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, OraCall;

var
  i, e, c : integer;
  h : string;
begin
  if OracleHomes.Count = 0 then
  begin
    Writeln('No Oracle Homes Found');
    Readln;
    exit;
  end;

  repeat
    Writeln('Please choose a home to init:');
    for i := 0 to OracleHomes.Count - 1 do
      Writeln('['+IntToStr(i)+'] : '+ OracleHomes.Homes[i].Name);

    Write('[Enter=Exit]:');
    Readln(h);
    Writeln;

    if h = '' then
      exit;

    if TryStrToInt(H, C) then
    if (c >= 0) and (c <= OracleHomes.Count-1) then
    begin
      OracleHomes.Homes[c].Init;
      if OracleHomes.Homes[c].Inited then
      begin
        Writeln('Home "'+OracleHomes.Homes[c].Name+'" was inited');
        Writeln('OCIDLL      : '+OracleHomes.Homes[c].OCIDLL);
        Writeln('OCIClientDLL: '+OracleHomes.Homes[c].OCIClientDLL);
        Writeln('OCIVersionSt: '+OracleHomes.Homes[c].OCIVersionSt);
        Writeln('Path        : '+OracleHomes.Homes[c].Path);
        Writeln('TNSPath     : '+OracleHomes.Homes[c].TNSPath);
      end else
        Writeln('Home was not inited!');
    end;
    Writeln;

  until h = '';
end.