کامروا
پنج شنبه 09 آذر 1391, 16:51 عصر
سلام
یک پروسیجر نشوتم برای چاپ یک پیغام. بشکل زیر :
library myfirst;
uses
SysUtils,
Classes,
Windows,
Dialogs;
{$R *.res}
Procedure test;export;
begin
ShowMessage('Hello From Delphi :)');
end;
exports
test;
begin
end.
و توی برنامه از طریق این کد خواستم دسترسی داشته باشم به این پروسیجر :
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure test;external 'myfirst.dll';
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
test;
end;
end.
ایم فایل myfirst.dll هستش و در کنار فایل اجرایی برنامه قرارش دادم
اما داره از
procedure test;external 'myfirst.dll';
خطا میگیره !!
ممون میشم راهنمایی کنید
تشکر
یک پروسیجر نشوتم برای چاپ یک پیغام. بشکل زیر :
library myfirst;
uses
SysUtils,
Classes,
Windows,
Dialogs;
{$R *.res}
Procedure test;export;
begin
ShowMessage('Hello From Delphi :)');
end;
exports
test;
begin
end.
و توی برنامه از طریق این کد خواستم دسترسی داشته باشم به این پروسیجر :
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure test;external 'myfirst.dll';
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
test;
end;
end.
ایم فایل myfirst.dll هستش و در کنار فایل اجرایی برنامه قرارش دادم
اما داره از
procedure test;external 'myfirst.dll';
خطا میگیره !!
ممون میشم راهنمایی کنید
تشکر