nsco_nsco
پنج شنبه 30 دی 1389, 23:14 عصر
سلام دوستان اروری در هنگام برنامه برام به وجود می اید
زمانی که فایل دی ال ال را که به شکل زیر است می خوانم در فایل اگزه این ارور پدید می اید ممنون می شوم کمکم کنید البته سریع :
فایل دی ال ا ل :
library Project1;
uses
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
StdCtrls,
StrUtils,
ExtCtrls,
ComCtrls,
TabNotBk,
HTTPApp,
ColorGrd,
DateUtils,
SimpleShareMem,
Math;
{$R *.res}
VAR
S1:STRING ;
function SayWelcome: string;
begin
S1:= formatdatetime('HH:MM:SS',time);
Result := S1;
end;
exports
SayWelcome;
begin
end.
فایل اگزه :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,StrUtils, ExtCtrls, ComCtrls, ShellAnimations, TabNotBk,
HTTPApp, ColorGrd, Keyboard;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Button2: TButton;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
type
TSayWelcome = function: string;
var
DLLInstance: THandle;
SayWelcome: TSayWelcome;
begin
DLLInstance := LoadLibrary('Project1.dll');
try
if DLLInstance = 0 then
begin
ShowMessage('Unable to load DLL');
exit;
end;
@SayWelcome := GetProcAddress(DLLInstance, 'SayWelcome');
if @SayWelcome <> nil then
ShowMessage(SayWelcome)
else
ShowMessage('Unable to locate function');
finally
FreeLibrary(DLLInstance);
end;
end;
end.
ممنون می شوم راهنماییم کنید با تشکر .:تشویق::لبخند::چشمک::قلب:
زمانی که فایل دی ال ال را که به شکل زیر است می خوانم در فایل اگزه این ارور پدید می اید ممنون می شوم کمکم کنید البته سریع :
فایل دی ال ا ل :
library Project1;
uses
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
StdCtrls,
StrUtils,
ExtCtrls,
ComCtrls,
TabNotBk,
HTTPApp,
ColorGrd,
DateUtils,
SimpleShareMem,
Math;
{$R *.res}
VAR
S1:STRING ;
function SayWelcome: string;
begin
S1:= formatdatetime('HH:MM:SS',time);
Result := S1;
end;
exports
SayWelcome;
begin
end.
فایل اگزه :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,StrUtils, ExtCtrls, ComCtrls, ShellAnimations, TabNotBk,
HTTPApp, ColorGrd, Keyboard;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Button2: TButton;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
type
TSayWelcome = function: string;
var
DLLInstance: THandle;
SayWelcome: TSayWelcome;
begin
DLLInstance := LoadLibrary('Project1.dll');
try
if DLLInstance = 0 then
begin
ShowMessage('Unable to load DLL');
exit;
end;
@SayWelcome := GetProcAddress(DLLInstance, 'SayWelcome');
if @SayWelcome <> nil then
ShowMessage(SayWelcome)
else
ShowMessage('Unable to locate function');
finally
FreeLibrary(DLLInstance);
end;
end;
end.
ممنون می شوم راهنماییم کنید با تشکر .:تشویق::لبخند::چشمک::قلب: