delphi 调用vc写的dll中的问题

[onthorn]

已知vc中的dll的头文件部分如下

_declspec(dllexport) void Sina_GetUidByNickname(char* strContent,char* strUid);

vc中的意思是通过你给一个 用户昵称，然后得到UID，函数是无返回值的，


我在delphi中静态引用dll

type
private
{ Private declarations }
public
{ Public declarations }
end;
function Sina_GetUidByNickname(strContent,strUid:string):integer;cdecl;external 'XXX.dll';

implementation




按钮的过程中我写、

var
uid;
begin
Sina_GetUidByNickname('昵称',Pchar(uid));
ShowMessage(uid);
end;

[feiba7288]

function Sina_GetUidByNickname(strContent,strUid: PChar):integer;cdecl;external 'XXX.dll';

[onthorn]

Raised Exception

[onthorn]

引用 1 楼 feiba7288 的回复:

function Sina_GetUidByNickname(strContent,strUid: PChar):integer;cdecl;external 'XXX.dll';

加入让你来调用这个dll 你会怎么使用，麻烦您了

[onthorn]

var uid:array[0..9] of Char; p:PChar; i:Integer; s:string; begin New(p); SinaWeiBo_OpenGetUidByNickname('叫兽教你打Dota',p); CopyMemory(@uid[0],p,10); for i:=0 to 9 do begin s := s+uid[i]; end; Edit2.Text := s; Dispose(p); 自己摸索着解决了 SinaWeiBo_OpenLogout; end;

[hsfzxjy]

祝贺了。。。。

[Henry.6]

网上这种例子很多的，我博客里也有