如何使界面程序调用DLL中的一个记录的内容？ (155分)

zla · 2001-10-22

利用下面的方法行不通，我该如何改呢？
TMyRec=record
top:Integer;
end;
DLL中的内容：
function abc

ointer;stdcall;
var
MyRec:TMyRec;
begin
MyRec.top:=20;
Result:=@MyRec;
end;
界面程序：
var
P

ointer;
TT:TMyRec;
begin
p:=abc;
move(p^,tt,sizeof(TMyRec));
ShowMessage(IntTOStr(tt.top));

zla · 2001-10-22

zla · 2001-10-22

tseug · 2001-10-22

看看这个
function abc:TMyRec;stdcall;
var
MyRec:TMyRec;
begin
MyRec.top:=20;
Result:=MyRec;
end;

zla · 2001-10-22

假如用记录集，是不是传的指针，还是把记录副制一次

tseug · 2001-10-22

应该是指针. 不过我建议还是复制一份纪录好, 可以避免子程序结束之后局部变量释放
造成其他错误.

硬木花椒 · 2001-10-22

如果从DLL中传递指针，会不会在DLL写在时丢掉呢？
所以我赞同楼上兄弟的方法，传普通数据结构好了

zla · 2001-10-22

复制一份当然可以，但是效率会受到一定的影响。

另外我用方法传给记录的方法可以，但是这个记录的结构VB或其它开发工具如何读取
呢？

zla · 2001-10-22

xianjun · 2001-10-22

请参考一下
http://www.delphibbs.com/delphibbs/dispq.asp?lid=677711
的答案，　问题已经解决！

ghg_qh · 2001-11-26