各位高手:我刚刚开始学用DELPHI做DLL 我做得步骤如下:
NEW--》选“DLL”--》“OK”
然后打入如下代码:uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas' {Form1};{$R *.RES}
function mysin(value:extended):extended;stdcall;
begin
result:=sin(value);
end; exports
mysin index 1;
begin
end.然后 我再NEW FORM
加入两个EDIT(EDIT1,EDIT2)和 一个按扭(BUTTON1)
在按扭得单击中加入如下代码:
function mysin(value:extended):extended;stdcall;external 'project2.dll'
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
try
Str(mysin(Strtofloat(edit1.Text)):5:3,s);
edit2.text:=s;
except
showmessage('jjjjj');
end;
end;end.可是编译运行之后却有错,
不知是什么原因?
NEW--》选“DLL”--》“OK”
然后打入如下代码:uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas' {Form1};{$R *.RES}
function mysin(value:extended):extended;stdcall;
begin
result:=sin(value);
end; exports
mysin index 1;
begin
end.然后 我再NEW FORM
加入两个EDIT(EDIT1,EDIT2)和 一个按扭(BUTTON1)
在按扭得单击中加入如下代码:
function mysin(value:extended):extended;stdcall;external 'project2.dll'
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
try
Str(mysin(Strtofloat(edit1.Text)):5:3,s);
edit2.text:=s;
except
showmessage('jjjjj');
end;
end;end.可是编译运行之后却有错,
不知是什么原因?
解决方案 »
- 应用程序发生异常未知的软件异常(0x0eedfads),位置为(0x7c812a6b)
- 我的dbgrideh的全选代码,为什么这么慢?请帮忙看看
- 弱弱地问,DELPHI源码编辑器中“Last Position” 的快捷键是什么?
- 使用fastreport,如何将报表导出至excel?
- ado连接数据库的效率问题
- 邀请合伙人
- 怎样让一个DBGrid显示出来的数据在另一个DBGrid中显示?
- 在线等待您的回答!!!!!!!!!!!急急急急急
- 我在玩的反恐精英时,一碰到我军与敌军打仗时,硬盘灯猛闪,速度奇慢,分辨率已到640*480,怎么办?
- 急招 广州 delphi程序员
- 请教一个存储过程的问题。
- 在QReport中,主副明细报表中,为什么只能显示一条主表记录和相应的副表记录?(有N条记录)
在响应得目录下生成 project2.dll
在键了 FORM后 并且加了 消息响应函数之后 就按F9;
exports
mysin index 1;
是什么意思?
DLL要被另外一个工程调用的,你新建的FORM在DLL里建的吗?那肯定不能运行了