delphi fdconnect连接

 

----------读取

procedure TFMonitor_New.getLocalDbContent;
var
  DATABASENAME, UserName, USERPASSWORD, SERVERIP: string;
  SERVERDBPORT: string;
begin
  DATABASENAME := PsqlDataModule.DataModuleConn.Params.Values['Database'];
  UserName := PsqlDataModule.DataModuleConn.Params.Values['User_Name'];
  USERPASSWORD := PsqlDataModule.DataModuleConn.Params.Values['Password'];
  SERVERIP := PsqlDataModule.DataModuleConn.Params.Values['Server'];
  SERVERDBPORT := PsqlDataModule.DataModuleConn.Params.Values['port'];

end;

-------------------------------------------------------------

 

function GetConnectionByConnString(const Database, UserID, Password, Server: string; Port: integer; FDConnection: TFDConnection): Boolean; overload;
const
  SQL_DATABASE_CONNECTION = 'Database=%s;User_Name=%s;Password=%s;Server=%s;CharacterSet=UTF8;DriverID=PG;Port=%d';
var
  ConnString: string;
begin
  ConnString := Format(SQL_DATABASE_CONNECTION, [Database, UserID, Password, Server, Port]);
  with FDConnection do
  try
    ConnectionString := ConnString;
    Connected := True;
    Result := True;
  except
    Result := False;
  end;
end;

function GetConnectionByConnString(const ConnectionString: string; FDConnection: TFDConnection): Boolean; overload;
var
  ConnString: string;
begin
  ConnString := ConnectionString;
  with FDConnection do
  try
    ConnectionString := ConnString;
    Connected := True;
    Result := True;
  except
    Result := False;
  end;
end;

 

 

ShowMessage(PsqlDataModule.DataModuleConn.Params.Values['Server']);

 

procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject);
var
  strIniFile,Fpath: string;
  ini: TIniFile;
begin

  Fpath := GetCurrentDir + '\';
  strIniFile := Fpath + 'Sys.ini';
  conn.Connected:=False;
  if FileExists(strIniFile) then
  begin

    ini := TIniFile.Create(strIniFile);
    try

      conn.Params.Clear;
      conn.Params.Add('User_Name=' + ini.ReadString('db', 'username', ''));
      conn.Params.Add('Password=' + ini.ReadString('db', 'password', ''));
      conn.Params.Add('Database=' + ini.ReadString('db', 'database', ''));
      conn.Params.Add('Server=' + ini.ReadString('db', 'ip', ''));
      conn.Params.Add('DriverID=' + ini.ReadString('db', 'DriverID', ''));
      //conn.Params.Add('Port=' + ini.ReadString('db', 'port', ''));
    finally
      ini.Free;
    end;

  end;
  conn.Connected:=true;

end;

 

 

或

 

 DATABASE_CONNECT_STR= 'Database=%s;User_Name=%s;Password=%s;Server=%s;CharacterSet=UTF8;DriverID=PG;Port=%d';

var
  strIniFile: String;
  strConnect: String;
  strUserID: String;
  strPassWD: String;
  strDatabase: String;
  strServer: string;

strPort: string;
begin
  // 取ini配置文件里的DB链接字符串
  strIniFile := 'C:\projectfiles\SysConfig.ini';
  if FileExists(strIniFile) then
  begin
    with TIniFile.Create(strIniFile) do
      try
        strUserID := ReadString('Db', 'UserID', '');
        strPassWD := ReadString('Db', 'Password', '');
        strDatabase := ReadString('Db', 'Database', '');
        strServer := ReadString('Db', 'Server', '');
      finally
        Free;
      end;
  end;
  try
    strConnect := Format(DATABASE_CONNECT_STR, [strDatabase, strUserID,
      strPassWD, strServer,strPort]);
    Self.psqlConnection.Connected := False;
    Self.psqlConnection.ConnectionString := strConnect;
    Self.psqlConnection.Connected := True;
  finally
    Self.psqlConnection.Connected;
  end;