Mam's WebSite
建築CGパース住宅CGパース

Mamの覚書Q&A検索

トップページMamの覚書Q&A検索Delphi(コンポーネント)⇒Q&A


大項目:「 Delphi 」 - 中項目:「 コンポーネント 」

「 ZeosLibを使ってOracleデータベースにSIDを使って接続する 」

ZeosLibを使ってOracleデータベースにSIDを使って接続するには?


回答

実行ファイルと同じフォルダ内に、tnsnames.ora
ファイルを作成する必要があります。
もちろん、実行ファイルと同じフォルダ内、またはパスの通ったフォルダ(c:¥windows¥system32等)に
oci.dllやoraons.dll、oraocci12.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;


Mam's WebSite