请问这个如何做啊。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。各位大侠看看。。。。。

[gototop99]

DLL 中：

function PutIndata(s1, s2: Integer ): Boolean; stdcall;
begin
Result := False;
with dm.tbl_test do
begin
try
Open;
Append;
FieldByName('m1').Value := s1;
FieldByName('m2').Value := s2;

post;
Close;
Result := True;
except
Result := False;
end;
end;
end;

调用：

function PutIndata(s1, s2: Integer ): Boolean; stdcall; external '11.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
if PutIndata(1, 1) then ShowMessage('ok')
else ShowMessage('no');
end;

[swayi21]

library 11
...

export:
PutIndata;

[gototop99]

export:
PutIndata;


肯定有的啦，不然怎么调用呢？？？

调用的时候地址出错，不知道是什么原因。。。。。。。。。。。

[DelUser]

抱的错误是什么？

[l_xiaofeng]

什么错误？

[blueshu]

up

[chenfeng3000]

又是dll阿，
我快崩溃了

出现错误提示"Invalid Pointer Operation"


网友意见：
通过参数（如：App）将主程序的Applicantion对象传递到DLL的函数中,
然后再DLL中设置Application:=App


如何实现。排错阿

[gototop99]

错误提示：

Access violation at address 002B2751 in module '11.dll'. Read of address 0000005C.


应该怎么解决啊。。。。。。。。。。。。。。

帮帮手啊。。。。。。。。。。。。。。。

[gototop99]

up

[yoisyois]

Library 11
...

export
PutIndata;//你输出了吗？

begin
end.

[yoisyois]

11.dll在相同目录下吗？

[307]

up

[gototop99]

to yoic(我是一棵菠菜，菜，菜，菜，菜，菜，菜，) (

这些有的啦，，，，，

up.................

[gototop99]

错误提示：

Access violation at address 002B2751 in module '11.dll'. Read of address 0000005C.

[gototop99]

up

[yckxzjj]

关注一下。你可以下载一个相关的示例程序参考一下呀！

[gytyl]

你的dll的输出点列
就是
exports
我怎么没有看见。

[gototop99]

exports


是有的，不然怎么调用呢。

[gototop99]

如果不是

with dm.tbl_test do


数据库的调用，那么就可以，比如一般的输出 a＋b 的值啊。

function myadd(a,b:integer):integer;
begin
result:=a+b;
end;

[tttzms]

exports是要对每一个函都有的吧，
我不太懂，但我愿学

[gototop99]

解决啦，，，，，，，，，，，，，，，，


痛快。。。。。。。。。。。。。。。。。。。。