dbExpress error in Delphi 2010

Posted by JosephStyons on Stack Overflow See other posts from Stack Overflow or by JosephStyons
Published on 2009-09-03T20:58:06Z Indexed on 2010/04/07 12:23 UTC
Read the original article Hit count: 756

Filed under:
|
|

The below code works in Delphi 2007, but it gives me this error in Delphi 2010:

---------------------------
Error
---------------------------
Cannot load oci.dll library (error code 127).  The oci.dll library may be missing from the system path or you may have an incompatible version of the library installed.
---------------------------
OK   Details >>   
---------------------------

The exception is raised when I set "connected" to "true".

I have tried placing a copy of "oci.dll" in the same folder as the .exe file, but I get the same message.

I also get this message when using the form designer and a visible TSQLConnection component.

Any thoughts?

function TDBExpressConnector.GetConnection(username, password, servername: string) : TSQLConnection;
begin
  //take a username, password, and server
  //return a connected TSQLConnection
  try
    FSqlDB := TSQLConnection.Create(nil);
    with FSqlDB do begin
      Connected := False;
      DriverName := 'Oracle';
      GetDriverFunc := 'getSQLDriverORACLE';
      KeepConnection := True;
      LibraryName := 'dbxora30.dll';
      ConnectionName := 'OracleConnection';;

      Params.Clear;
      Params.Add('DriverName=Oracle');
      Params.Add('DataBase=' + servername);
      Params.Add('User_Name=' + username);
      Params.Add('Password=' + password);
      Params.Add('RowsetSize=20');
      Params.Add('BlobSize=-1');
      Params.Add('ErrorResourceFile=');
      Params.Add('LocaleCode=0000');
      Params.Add('Oracle TransIsolation=ReadCommited');
      Params.Add('OS Authentication=False');
      Params.Add('Multiple Transaction=False');
      Params.Add('Trim Char=False');
      Params.Add('Decimal Separator=.');

      LoginPrompt := False;
      Connected := True;
    end;

    Result := FSqlDB;
  except on e:Exception do
    raise;
  end;  //try-except
end;

© Stack Overflow or respective owner

Related posts about delphi

Related posts about delphi-2010