读取INI文件问题

langzulajiao 2008-10-07 11:23:46

INI文件
[dbconfig]

databasename=gg
username=sa
pwd=
dbservername=192.168.1.200

程序
var
// hr:thandle;
inifile:Tinifile;
databasename: String;
username:String;
pwd:String;
dbservername:String;
connStr:String;
begin

if cbocx.items.count>0 then
begin
cbocx.itemindex :=0
end;

//------------------------------------------------
//-----读取数据库连接配置文件---------------------
if fileexists('.\DBConfig.ini') then
begin
inifile := Tinifile.Create('.\DBConfig.ini');
try
begin
databasename := inifile.ReadString('dbconfig','databasename','');
username := inifile.ReadString('dbconfig','username','');
pwd := inifile.ReadString('dbconfig','pwd','');
dbservername := inifile.ReadString('dbconfig','dbservername','');
connStr := 'Provider=SQLOLEDB.1;Password='+pwd+';Persist Security Info=False;User ID='+
username+';Initial Catalog='+databasename+';Use Procedure for Prepare=1;'+
'Auto Translate=True;Packet Size=4096;Workstation ID='+dbservername+
';Use Encryption for Data=False;Tag with column collation when possible=False';

end;
Except
showmessage('数据库没有连接');
end;
end
else
begin
application.MessageBox('没有数据库配置文件','查找错误',0);
exit;
end;

dbservername=192.168.1.200 这一句在INI文件里不起作用

连接不了远程服务器

不知道错在哪了

请高手们指教

...全文

57 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

fangsp 2008-10-07

打赏
举报

顶
顶
顶

panrongzeng 2008-10-07

打赏
举报

代碼很亂，看著很刺眼，要養成良好的編程習慣啊
if fileexists('.\DBConfig.ini') then
begin
inifile := Tinifile.Create('.\DBConfig.ini');
try
databasename := inifile.ReadString('dbconfig','databasename','');
username := inifile.ReadString('dbconfig','username','');
pwd := inifile.ReadString('dbconfig','pwd','');
dbservername := inifile.ReadString('dbconfig','dbservername','');
connStr := 'Provider=SQLOLEDB.1;Password='+pwd+';Persist Security Info=False;User ID='+
username+';Initial Catalog='+databasename+';Use Procedure for Prepare=1;'+
'Auto Translate=True;Packet Size=4096;Workstation ID='+dbservername+
';Use Encryption for Data=False;Tag with column collation when possible=False';
Except
showmessage('数据库没有连接');
end
else
begin
application.MessageBox('没有数据库配置文件','查找错误',0);
exit;
end;