ZeosLibを使ってOracleデータベースにSIDを使って接続する(tnsnames.oraファイルを作成)

「ZeosLibを使ってOracleデータベースにSIDを使って接続する(tnsnames.oraファイルを作成)」

ZeosLibを使ってOracleデータベースにSIDを使って接続するには？
(tnsnames.oraファイルを作成)

回答

実行ファイルと同じフォルダ内に、tnsnames.ora
ファイルを作成する必要があります。
もちろん、実行ファイルと同じフォルダ内、またはパスの通ったフォルダ（c:\windows\system32等）に
oci.dllやoraons.dll、oraociicus12.dll、等のDLLを配置しておく必要があります。

ソース

procedure TForm1.Button1Click(Sender:TObject);
var stl:TStringList;
begin
  stl:=TStringList.Create();
  stl.Add('ORCL =');
  stl.Add('  (DESCRIPTION =');
  stl.Add('    (ADDRESS = (PROTOCOL = TCP)(HOST = サーバーのIPアドレス)(PORT= 1521))');
  stl.Add('    (CONNECT_DATA = ');
  stl.Add('      (SID = SID名を記述 )');
  stl.Add('    )');
  stl.Add('  )');
  stl.SaveToFile(ExtractFilePath(Application.ExeName)+'tnsnames.ora');
  stl.Free;

  ZConnection1.HostName='サーバーのIPアドレス';
  ZConnection1.User='ユーザー名';
  ZConnection1.Password='パスワード';
  ZConnection1.Port=1521;
  ZConnection1.Database='orcl';//tnsnames.oraファイルでORCLとして定義したため
  ZConnection1.Connect;
end;