在delphi中能把ini文件封装进dll中,并且在dll中调用(去ini文件读内容)吗? 如果能,麻烦举个例子,谢谢。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在DLL中读INI文件是可以的,当然,你也可以把ini文件做到.res文件中,然后再把.res 文件加入到DLL中,然后在.exe中再调用这个.ini文件一样行,看你用哪种方法了; To lianshaohua(永远深爱一个叫“...... ”的好女孩儿!) :能不能具体些,我就是想把ini文件放到dll文件内,让用户看不到。谢谢,那怎么用,用什么函数吗? 当然可以自己去Google找找DLL和Ini的资料吧_____________________http://lysoft.7u7.net 这两个方面我都了解,但是读ini文件的时候不是要路径吗,封装进dll文件后,ini文件的路径是多少?? 资源文件?我查了资料,大多是对图标,图像说得,用LoadFromResourceName函数。但是对ini或者文本文件没有呀? 如果把ini文件放入资源文件中,然后再把资源文件放入DLL中,把么当DLL加载成功时,就可以直接通过文件流来操作ini文件了,其实如果你只是不想让用户看到ini文件,建议你用自定义类型的文件源程序如下:type//自定义一个记录类型,用于写入文件 xmf=record f:integer; x:real;end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var xxx:xmf; f:file of xmf;//声明一个自定义类型的文件句柄,//其余的不用我多说了吧?begin xxx.f:=strtoint(edit1.Text); xxx.x:=strtofloat(edit2.Text); assignfile(f,'a.dat'); rewrite(f); write(f,xxx); closefile(f);end;procedure TForm1.Button2Click(Sender: TObject);var mmm:xmf; f:file of xmf;begin assignfile(f,'a.dat'); reset(f); read(f,mmm); closefile(f); showmessage(inttostr(mmm.f)+#13+floattostr(mmm.x));end;end. 是没有对ini文件的资源文件,但是,可以把任何文件都放到资源中去呀,你可以先把文件的扩展名改为.exe( 其它的也行) ,然后建一个.rc文件如下:xx rc_data ini.exe然后brcc32 ……就可以了,读出来时,再把它的扩展名改成.ini不就可以用了吗? 谢谢各位的参与;我还有一个问题是:我用osql.exe文件持行sql文件,但是不想让用户看到这些sql文件,我能否把这些sql文件放入dll文件内(能否持行),或者我把sql的脚本放入控件内(memo内),那osql能否运行memo里面的内容。谢谢。 我在http://community.csdn.net/Expert/topic/4185/4185146.xml?temp=.9699213提问了同样的问题。 TList中使用的是指针吗? CxGrid与ADO异步执行 求一函数:输入一个字符串,判别是否能转化给日期格式 TControl中color属性的问题 关于第三方控件AdvStringGrid 谁给讲讲mediaplay控件最简单的用法,必须配置的属性.. 寻求李维<delphi5.x 分布式多层应用>系统篇所带光盘中的例程 Qrexpr控件的一个简单的问题。 再问winsock?? 求购医院管理系统(需原代码),有意者请留email地址,一周内有效 急。请教各位了。如何循环读取 查询出的数据到 几个edit控件中 如何使自定义的组件在组件面板上可见或不可见。
自己去Google找找DLL和Ini的资料吧_____________________
http://lysoft.7u7.net
源程序如下:
type//自定义一个记录类型,用于写入文件
xmf=record
f:integer;
x:real;
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
xxx:xmf;
f:file of xmf;//声明一个自定义类型的文件句柄,
//其余的不用我多说了吧?
begin xxx.f:=strtoint(edit1.Text);
xxx.x:=strtofloat(edit2.Text); assignfile(f,'a.dat');
rewrite(f);
write(f,xxx);
closefile(f);
end;procedure TForm1.Button2Click(Sender: TObject);
var
mmm:xmf;
f:file of xmf;
begin
assignfile(f,'a.dat');
reset(f);
read(f,mmm);
closefile(f);
showmessage(inttostr(mmm.f)+#13+floattostr(mmm.x));
end;end.
xx rc_data ini.exe
然后
brcc32 ……
就可以了,读出来时,再把它的扩展名改成.ini不就可以用了吗?