我目前想实现的功能是这样的,先是获取远程网页的内容,如: http://www.baidu.com/abc.asp?type=job[job]
name=Tom
sex=1
phone=13099009900将这段内容存放入变量: strini 中.现在想用api读取变量内的值,我知道可以用函数GetPrivateProfileString.
但是他只能从文件地址中读取..我现在想用GetPrivateProfileString读变量的ini内容,该怎么读呢?
name=Tom
sex=1
phone=13099009900将这段内容存放入变量: strini 中.现在想用api读取变量内的值,我知道可以用函数GetPrivateProfileString.
但是他只能从文件地址中读取..我现在想用GetPrivateProfileString读变量的ini内容,该怎么读呢?
在use 中加入IniFiles,
下面得代碼是讀取ini文件的內容.
procedure Tloginfrm.FormCreate(Sender: TObject);
begin
ini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'OracleCon.ini');
username:=ini.ReadString('DBCONFIG','user','');
Srvname:=ini.ReadString('DBCONFIG','DataSource','');
edit1.Text:=username;
edit3.Text:=Srvname;
end;//下面得代碼是寫入ini文件 ini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'OracleCon.ini');
ini.WriteString('DBCONFIG','DataSource',Srvname);
ini.WriteString('DBCONFIG','user',edit1.Text);
参考下吧
Tmeminifile改进了很多
有简单的不用,
晕!
还可以用TStringList操作,这样读写速度更快些!
myinifile:TInifile;
filename:string;
s:string;
begin
inherited;
Filename:=ExtractFilePath(Paramstr(0))+'mini.ini';
myinifile:=Tinifile.Create(filename);
s:=myinifile.readstring('JOB','s','');
end;
LPCTSTR lpAppName,
LPCTSTR lpKeyName,
LPCTSTR lpString,
LPCTSTR lpFileName
);
其中各参数的意义:
LPCTSTR lpAppName 是INI文件中的一个字段名.
LPCTSTR lpKeyName 是lpAppName下的一个键名,通俗讲就是变量名.
LPCTSTR lpString 是键值,也就是变量的值,
lpFileName为文件名
都可以用char []数组传进去,或者用pchar的
楼主是不是编程小木程序,,用inifiles不是增大程序吗,,,WritePrivateProfileString('a','b','c','d:\Config2222.ini');