vc调用delphi动态链接库问题!!!!!!!!!!!!!1 ( 积分: 100 )

O

own_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-10

• #1

delphi的dll中函数原形.
function show(str1Char;var str2Char):integer;StdCall;
VC中调用申明:
typedef int (PASCAL GetPennis)(CString , char * );
定义变量取返回值:
char * c=new char[100];
CString s;
s.Format("%s",c);
MessageBox(s);
delphi的dll调用成功!
但是在取字符串c时是乱码,不知道是怎么回事?请高手解决!

 

O

own_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-10

• #2

delphi的dll中函数原形.
function show(str1Char;var str2Char):integer;StdCall;
VC中调用申明:
typedef int (PASCAL GetPennis)(CString , char * );
定义变量取返回值:
char * c=new char[100];
CString s;
s.Format("%s",c);
MessageBox(s);
delphi的dll调用成功!
但是在取字符串c时是乱码,不知道是怎么回事?请高手解决!

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-10

• #3

看看这里面的讨论？？？？
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1816765
谁能给个 VC 调用 Delphi 开发的DLL 的例子

 

O

own_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-10

• #4

1.我能够正常调用delphi的dll,
2.错误是返回值的问题，使乱码
3.谢谢各位关注

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-10

• #5

VC中调用申明:
typedef int (WINAPI GetPennis)(char * , char * );

 

O

own_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-10

• #6

也已经试过了[]

 

O

own_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-10

• #7

我的返回值int值是正常的，在delphi中申明的var 值作为引用返回不正常，乱码！

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-10

• #8

你的dll中是如何给str2赋值的？vc中是如何调用的，最关键的代码没有贴出

 

O

own_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-10

• #9

自己搞定了：
应定义为
typedef int (PASCAL GetPennis)(CString , char *&
);
才会有值

 

老

老人家

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-10

• #10

对于Delphi:
若你没有参数传递到被调用的DLL，则不应发生你所说的访问错误，若你使用了参数
，则你应保证主程序与被调用的DLL中均使用STDCALL或均不使用STDCALL。
对于VC++：
你应保证在DELPHI的DLL中使用STDCALL，然后你可在VC的主程序中写如下代码，
调用DLL中的指定过程。这里有一简单的例子，演示如何调用由DELPHI生成的DB_DLL
中的ShowNullFormModal过程，至于有参数时怎么调用，我就不说了，你既然使用
VC++，应该对此可举一反三的：
顺便说一下，我不明白你为什么要使用静态调用，根本没什么好处。
{
HINSTANCE h0;
FARPROC f0;
h0=LoadLibrary("e://delphi3//db_dll.dll");
if (h0!=0)
{
f0=GetProcAddress(h0,"ShowNullFormModal");
(*f0)();
//调用之
}
FreeLibrary(HMODULE(h0));
}

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-30

• #11

不用pascal，另外不用cstring，用char *
typedef int (GetPennis)(char * , char * );

 

Z

zjan521

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-10

• #12

这个不用翻译,代码都是你自己的,应该很清楚,var PChar,这本身是一个引用的指针,另外明明是stdcall,怎么会翻译成pascal?
另外.用CString似乎不是很合适吧.
typedef int (__stdcall *GetPennis)(LPCHAR , LPCHAR&/*[LPCHAR*在WINAPI的声明中一般如此较多]*/);

 

M

marlcom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-30

• #13

用数组
typedef int (PASCAL GetPennis)(CString , char[] );

 

C

cpj7406

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-15

• #14

VC中的映射方法参数应该这样声明：(char * lpBuff, char ** lppVal)
调用时：
char c[100];
char * pc = NULL;
Func(c, &lc);