Цитата(USSR @ 6.11.2006, 14:36  ) | | а у тебя совсем другой пример... |
То что я предложил намного интересней!
Ну ладно как хочешь. Вот как ты хотел
| Код |
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TTestCallstd = procedure(f_Text: PChar); stdcall;
TTestCallcdel = procedure(f_Text: PChar); cdecl;
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
m_TestCallstd: TTestCallstd;
m_TestCallcdel: TTestCallcdel;
m_DllHandle: Cardinal;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{$R dll.res}
procedure TForm1.FormCreate(Sender: TObject);
var
Resstrm : TResourceStream;
begin
Resstrm := TResourceStream.Create(HInstance, 'MYDLL',RT_RCDATA);
Resstrm.SaveToFile(ExtractFilePath(Application.ExeName) + 'DemoDLL.dll');
Resstrm.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
m_DllHandle := LoadLibrary('DemoDLL.dll');
try
if m_DllHandle = 0 then
Abort;
@m_TestCallstd := GetProcAddress(m_DllHandle, 'TestCallstd');
if @m_TestCallstd = nil then
Abort;
@m_TestCallcdel := GetProcAddress(m_DllHandle, 'TestCallcdel');
if @m_TestCallcdel = nil then
Abort;
m_TestCallstd('This is a Dll File call!');
m_TestCallcdel('This is a Dll File call!');
except
Showmessage('An error occoured while loading the dll');
end;
if m_DllHandle <> 0 then
FreeLibrary(m_DllHandle)
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DeleteFile(ExtractFilePath(Application.ExeName) + 'DemoDLL.dll');
end;
end.
|
Для работы необходимо скомпелировать ресурс с Dll кой (это делает батник)
После этого можно компелировать весь проект.
p.s. Если надо сменить имя dll-ки, то изменения надо произвести также и в Dll.rc - это описание ресурса, по которому и создается res файл.
В прикреплении есть все необходимое. |
