delphi7读取ini配置连接oracle10G

近期在学delphi，需要走配置连接oracle数据库，但是网上好多方法都是没有带IP地址的。最后找了好久终于找到了，不过忘了在哪里找到的了，分享给大家吧！

需要引入iniFiles 创建form时调用

在user 内加入iniFiles

procedure TForm1.FormCreate(Sender: TObject);
const
  connStr = 'Provider=OraOLEDB.Oracle.1;Password=%s;Persist Security Info=True;User ID=%s;Data Source=(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP) (HOST = %s)(PORT = %s)))(CONNECT_DATA = (SERVICE_NAME = %s)))';
var
  iniFile : TIniFile;
  ip, port, sid, userName, password, fileName, filePath : String;
begin
  filePath := ExtractFilePath(Paramstr(0));
  fileName := filePath + 'dbConfig.ini';
  if FileExists(fileName) then
    begin
      iniFile := TIniFile.Create(fileName);
      ip := iniFile.ReadString('DataBase', 'ip', '127.0.0.1');
      port := iniFile.ReadString('DataBase', 'port', '1521');
      sid := iniFile.ReadString('DataBase', 'sid', 'orcl');
      userName := iniFile.ReadString('DataBase', 'userName', 'admin');
      password := iniFile.ReadString('DataBase', 'password', 'admin');
      form1.ADOConnection1.ConnectionString := Format(connStr, [password, userName, ip, port, sid]);
    end
  else
    showMessage('没有找到dbConfig.ini文件，请核对！');
end;

 

ini文件内容

[DataBase]
ip=127.0.0.1
port=1521
sid=orcl
password=admin
userName=admin

//注意点：ExtractFilePath(Paramstr(0) + 'dbConfig.ini');我这里这样写貌似不行，这样得到的结果没有加后面的文件名