螃
螃蟹
Unregistered / Unconfirmed
GUEST, unregistred user!
我在vfp中调用一个delphi写的dll文件.
其代码如下
delphi写的dll代码如下
现在的问题是我在vfp收到的值无论怎么做也没有办法改变
也就是在vfp中虽然是传送的指针,但我在dll中对起内容的改变是没有效果的.没有用，
还在vfp退出的时候报个内存读写错误.
谁知道这是什么原因吗.
以下是我已经在delphi中尝试过的方法.
function GS_MHDog(str_mh
char):integer;cdecl;
function GS_MHDog(str_mhchar):integer;stdcall;
以上两个声明能调用,但不能改变cbuff的内容.
function GS_MHDog(var str_mhchar):integer;stdcall;
vfp报参数错误.
但如果这个dll改用cb来写就没有任何问题.
各位帮帮忙看看症结在什么地方.
问题二'
同样是那个dll文件
如果要在delphi程序中调用.如果想要在dll改变pchar的内容.则要求声明为
function GS_MHDog(var str_mhchar):integer;stdcall;
才可以.这是什么道理.
其代码如下
代码:
PROCEDURE firstdata
PUBLIC CBUFF , RESUU
*--以下是调用dll的声明，函数为GS_MHDog,dll文件为win32dll.dll
DECLARE INTEGER GS_MHDog IN win32dll STRING @
*--初始化变量
CBUFF = SPACE(256)
CH1 = CHR(4)
CH2 = CHR(0)
CBUFF = STUFFC(CBUFF,1,1,CH1)
CBUFF = STUFFC(CBUFF,2,1,CH2)
CBUFF = STUFFC(CBUFF,3,1,CH2)
CBUFF = STUFFC(CBUFF,4,1,CH2)
CH1 = CHR(10)
CBUFF = STUFFC(CBUFF,5,1,CH1)
CBUFF = STUFFC(CBUFF,6,1,CH2)
CBUFF = STUFFC(CBUFF,9,1,CH2)
CBUFF = STUFFC(CBUFF,10,1,CH2)
CBUFF = STUFFC(CBUFF,11,1,CH2)
CBUFF = STUFFC(CBUFF,12,1,CH2)
STR1 = 'NcdJ'
CBUFF = STUFF(CBUFF,17,20,STR1)
ENDPROC
*------
PROCEDURE checkdata
*---调用dll中的函数
RESUU = GS_MHDOG(@CBUFF)
messgebox(cbuff)
ENDPROC
*------delphi写的dll代码如下
代码:
library win32dll;
uses
ShareMem,Messages,windows,
Dialogs,SysUtils,Classes;
//vfp调用的函数
function GS_MHDog(str_mh:pchar):integer;cdecl;
begin
showmessage('dll原始:'+str_mh);
str_mh:='adfkjaf';
showmessage('dll修改后返回前'+str_mh);
Result:=0;
end;
exports
GS_MHDog;
begin
end.现在的问题是我在vfp收到的值无论怎么做也没有办法改变
也就是在vfp中虽然是传送的指针,但我在dll中对起内容的改变是没有效果的.没有用，
还在vfp退出的时候报个内存读写错误.
谁知道这是什么原因吗.
以下是我已经在delphi中尝试过的方法.
function GS_MHDog(str_mh
char):integer;cdecl;function GS_MHDog(str_mh
char):integer;stdcall;以上两个声明能调用,但不能改变cbuff的内容.
function GS_MHDog(var str_mh
char):integer;stdcall;vfp报参数错误.
但如果这个dll改用cb来写就没有任何问题.
各位帮帮忙看看症结在什么地方.
问题二'
同样是那个dll文件
如果要在delphi程序中调用.如果想要在dll改变pchar的内容.则要求声明为
function GS_MHDog(var str_mh
char):integer;stdcall;才可以.这是什么道理.