关于dll调用的问题

[ganfang]

以前在DELPHI7 下调用的函数

function rdInfo_SSCID(t_sscinfo:pwidechar;cardid:pwidechar;ComputerID:pwidechar;Name:pwidechar;IDCard:pwidechar;sex:pwidechar):longint;stdcall; external 'HDSSSE32.dll';

调用的过程
procedure TForm1.Button1Click(Sender: TObject);
var
t_sscinfo:pchar;
cardid:pchar;
ComputerID:pchar;
Name:pchar;
IDCard:pchar;
sex:pchar;
i:longint;
begin
t_sscinfo := StrAlloc(MAX_PATH);
cardid := StrAlloc(MAX_PATH);
ComputerID := StrAlloc(MAX_PATH);
Name := StrAlloc(MAX_PATH);
IDCard := StrAlloc(MAX_PATH);
sex := StrAlloc(MAX_PATH);

i:=rdInfo_SSCID(t_sscinfo,cardid,ComputerID,Name,IDCard,sex);
end
在DELPHI7下调用正常

最近升到DELPHIXE7下调用，返回全是乱码。请指导

[日立奔腾浪潮微软松下联想]

那应该是StrAlloc的问题。 可以： var t_sscinfo:pwidechar; ... t_sscinfo := WideStrAlloc(MAX_PATH);

[ganfang]

应该是字符的问题，我按照您的方法 t_sscinfo := WideStrAlloc(MAX_PATH);也不行，困扰我一天了

[ganfang]

cardid返回值： #$08C2'退邐邐'#$FFFE#$FFFF sex返回值：sex '䗇ﻼ'#$FFFF''#$FFFF#$08C2'退邐邐'#$FFFE#$FFFF

[日立奔腾浪潮微软松下联想]

把那些pchar都改成pwidechar

[ganfang]

我改过，还是不行

[Frank6600]

这个函数返回longint, 怎么才能返回全是乱码？ 我觉得你需要说清楚问题。

[SupermanTm]

直接用 GetMem 取内存缓冲区

[YueLingYueLiang]

我也遇到过，delphi7开发的程序调用xe8的动态库，都是乱码，后面搞了很久还是不行，最后还是用delphi7开发动态库

[尤里二世]

請問樓主你的貼http://bbs.csdn.net/topics/390498148 問題解決了嗎？

[mdejtod]

用pansichar, 7下面的PCHAR就是PANSICHAR,而7之后的版本，pchar=pwidechar;你的动态库函数应该是要ansichar的

[ganfang]

感谢各位，用delphi7开发动态库 ，之后调用就可以，没有办法的办法