dll中函数如何调用dll中的资源文件 假设有一个文本文件,里面有数据1 22 3先将该文本文件以资源的形式写到一个dll文件中去,同时dll中定义一个函数,需要调用到上述数据,如何实现?谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Rc 文件txt1 RC_DATA test.txtuses SysUtils, Classes;{$R *.res}{$R inir.res}// dLL 代码function GetText(): PChar;var Str: string; Rs: TResourceStream;begin Rs := TResourceStream.Create(HInstance, 'txt1', 'RC_DATA'); SetLength(Str, Rs.Size); Rs.ReadBuffer(Str[1], Rs.Size); Result := PChar(Str);end;exports GetText;beginend.调用function GetText(): PChar; external 'testdll.dll' name 'GetText'; ShowMessage(GetText); 非常感谢假如,test.txt中的数据很多,需要读入到一个数组中进行处理如何操作?先定义一个冬天数组,然后根据行数再确定么?我在建立rc文件时 myfile myres "e:\test.txt"编译时提示:cannot open file e:\test.txt请问怎么回事? 刚才发现. e:\test.txt为 e:\test.txt.txt所以导致找不到文件 ADOTable的作用 关于dbgrid弹出窗口 用DELPHI怎样关闭一个指定的端口? 请问怎样获得DirectoryListBox当前路径下的所有子文件夹以及他们包含的文件。 帮帮我呀,如何用shell将一个txt文件转化为gzip文件?? 我的代码哪里错了?(存取JPG图片) combobox显示? 用SQL查询ORACLE数据库,如何使记录可修改,已设RequestLive为true 我自己写的组件编译的时候在面板上出现,但是开始一个新的application后就没有了,怎么回事 狂狼,怎么发生那么多变化?? 问个打开任意文件的问题 一个迭代+循环的算法,不知道那里有问题
txt1 RC_DATA test.txtuses
SysUtils,
Classes;{$R *.res}
{$R inir.res}// dLL 代码
function GetText(): PChar;
var
Str: string;
Rs: TResourceStream;
begin
Rs := TResourceStream.Create(HInstance, 'txt1', 'RC_DATA');
SetLength(Str, Rs.Size);
Rs.ReadBuffer(Str[1], Rs.Size);
Result := PChar(Str);
end;exports
GetText;begin
end.
调用
function GetText(): PChar; external 'testdll.dll' name 'GetText'; ShowMessage(GetText);