DELPHI 调用VC DLL 问题？

[chinarouter]

在VC DLL 中声明如下：
extern _declspec(dllexport) __stdcall int GetUserInfo(char* SqlText,char* Result);

DELPHI中怎么来调用，是不是声明有错？？

[chizengkun]

好象没错吧,这个也不是太熟,在delphi本身的调用有说明你可以看一下啦

[chinarouter]

Function GetUserInfo(sqltxt:pChar;Result:pChar):integer;Stdcall;External 'Dll.dll';

DELPHI中这样写，传不过去参数？？为何？？？

[海鲨数据库架构师:曾凡坤.姒]

type
Function GetUserInfo(sqltxt:pChar;Result:pChar):integer;Stdcall;

Callproc();
var
DLLHand:THandle;
ResultStr:String;
begin
DLLHand := LoadLibrary('DLL.dll');
if DLLHand<>nil then
@GetUserInfo := GetProcAddress(DLLHand,'GetUserInfo');
if @GetUserInfo <> nil then
GetUserInfo('Kao',pchar(ResultStr));
ResultStr:=String(ResultStr); // 好像要转换下才能有
ShowMessage(ResultStr);
end;

[海鲨数据库架构师:曾凡坤.姒]

type
GetUserInfo = Function (sqltxt:pChar;Result:pChar):integer;Stdcall;

[海鲨数据库架构师:曾凡坤.姒]

type
TGetUserInfo =Function （sqltxt:pChar;Result:pChar):integer;Stdcall;

Callproc();
var
DLLHand:THandle;
ResultStr:String;
GetUserInfo：TGetUserInfo ；
begin
DLLHand := LoadLibrary('DLL.dll');
if DLLHand<>nil then
@GetUserInfo := GetProcAddress(DLLHand,'GetUserInfo');
if @GetUserInfo <> nil then
GetUserInfo('Kao',pchar(ResultStr));
ResultStr:=String(ResultStr); // 好像要转换下才能有
ShowMessage(ResultStr);
end;

[beyondtkl]

怎麼發這麼多貼？

[cdsgajxlp]

都对

[shilinqun]

Result:pChar：Result是delphi的保留字。。。写代码时注意一下呀。。。