TSQLConnectionのDataBaseを変更して接続するには？ (ID:35626)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

はじめまして

タイトルの件ですが、説明しにくいのでソースを添付します。
フォームにボタンをいくつか配置し、ボタンのインデックスで
DataBase、ユーザ、パスワードを変更し接続を確認するＰＧですが、
起動して、1回目のボタン押下では正常に接続・切断ができますが、
2回目以降※１の部分でＣＰＵ画面が表示されイベントログに
Invalid Address specified to RtFreeHap(01170000,01178E60) 
が、表示され困っております。
どこかでアドレス違反があるのでしょうが、さっぱりわかりません。
どなたかご教授下さい。
よろしくお願いいたします。m(_ _)m

<!--- 以下  ソース ---!>
const
G_SERV : array [0..5] of String
                        = ('db1','db1','db1','wdb1','wdb1','wdb1');
G_USER : array [0..5] of String 
                        = ('AAA','BBB','CCC','DDD', 'EEE', 'FFF');
G_PASS : array [0..5] of String 
                        = ('AAA','BBB','CCC','DDD', 'EEE', 'FFF');

procedure TForm1.sConnected(idx : Integer);
var
  SQLC : TSQLConnection;
begin
  SQLC := TSQLConnection.Create(Self);
  SQLC.GetDriverFunc := 'getSQLDriverORACLE';
  SQLC.LibraryName := 'dbxora30.dll';
  SQLC.VendorLib := 'oci.dll';
  SQLC.ConnectionName := 'OracleConnection';
  SQLC.DriverName := 'Oracle';
  SQLC.LoginPrompt := False;
  SQLC.KeepConnection := True;

with SQLC do
  begin
    Params.Values['DataBase']  := G_SERV[idx];
    Params.Values['User_Name'] := G_USER[idx];
    Params.Values['Password']  := G_PASS[idx];

try
      SQLC.Connected := True;
    except
      ShowMessage('接続エラー');
      Exit;
    end;
  end;

if SQLC.Connected then
    SQLC.Connected := False;    ←※１

SQLC.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  sConnected(0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  sConnected(1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  sConnected(2);
end;

<!--- ---!>

←解決時は質問者本人がここをチェックしてください。

戻る