delphi fdconnect连接

最新推荐文章于 2024-10-24 09:03:07 发布

原创最新推荐文章于 2024-10-24 09:03:07 发布 · 2.1k 阅读

3 ·

本内容遵循CC 4.0 BY-SA版权协议

delphi 专栏收录该内容

112 篇文章

订阅专栏

本文详细介绍了在Delphi中如何从配置文件读取数据库连接信息，并使用这些信息建立数据库连接。通过示例代码展示了如何从INI文件读取数据库名称、用户名、密码、服务器地址等参数，以及如何使用读取到的参数建立数据库连接。

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

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;