DELPHI 调用VC DLL 问题?

chinarouter 2004-12-19 02:18:00
在VC DLL 中声明如下:
extern _declspec(dllexport) __stdcall int GetUserInfo(char* SqlText,char* Result);

DELPHI中怎么来调用,是不是声明有错??
...全文
114 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
shilinqun 2005-01-07
Result:pChar:Result是delphi的保留字。。。写代码时注意一下呀。。。
回复
cdsgajxlp 2005-01-07
都对
回复
beyondtkl 2005-01-06
怎麼發這麼多貼?
回复
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;
回复
type
GetUserInfo = Function (sqltxt:pChar;Result:pChar):integer;Stdcall;
回复
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;
回复
chinarouter 2004-12-19
Function GetUserInfo(sqltxt:pChar;Result:pChar):integer;Stdcall;External 'Dll.dll';

DELPHI中这样写,传不过去参数??为何???
回复
chizengkun 2004-12-19
好象没错吧,这个也不是太熟,在delphi本身的调用有说明你可以看一下啦
回复
发帖
Windows SDK/API
创建于2007-08-02

1153

社区成员

Delphi Windows SDK/API
申请成为版主
帖子事件
创建了帖子
2004-12-19 02:18
社区公告
暂无公告