有关midas.dll的编译，50分相送，大虾帮忙！

[7456]

我做了一个三层的程序，客户端需要用midas.dll有没有办法将这个midas.dll一起编译到程序里，省的再复制一个文件到客户端

[Crob]

做不到

能做到的请告诉我

[chechy]

可以把MIDAS.DLL编译到资源文件中，在从中提取出来，存成文件。

[ecgnis]

gz

[7456]

chechy(chechy)　:你好！是否能给一个详细的例子或解释，我的Email:[e-mail],非常感谢！

[Tense]

MIDAS.DLL编译到资源文件.

[7456]

我这就去试一试

[chechy]

D5DG中的例子，权作参考。
文件codegen.txt
--------------------------
unit %0:s;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, AppBars;

type
T%1:s = class(%2:s)
private
{ Private declarations }
public
{ Public declarations }
end;

var
%1:s: T%1:s;

implementation

{$R *.DFM}

end.
--------------------------

文件CodeGen.rc：
--------------------------
CODEGEN RCDATA CODEGEN.TXT
--------------------------
将codegen.rc用brcc32编译成codegen.res.
在程序中调用，
首先需要写
{$R codegen.res}

function GetSource: string;
var
Text: string;
ResInstance: THandle;
HRes: HRSRC;
begin
ResInstance := FindResourceHInstance(HInstance);
HRes := FindResource(ResInstance, 'CODEGEN', RT_RCDATA);
Text := PChar(LockResource(LoadResource(ResInstance, HRes)));
SetLength(Text, SizeOfResource(ResInstance, HRes));
Result := Text;
end;

[7456]

问题解决了，工作正常，发分，非常感谢