●！！DELPHI函数的UNICODE参数问题

[PLAYROME]

使用DELPHI写了一个DLL,其中有一个非常简单的测试函数

function test(Str :PWideChar):integer;stdcall;export;
var ws:wideString;
begin
ws:=Str;
if (Str='中') then ShowMessage('ok');
ShowMessage(ws);
result :=1;
end;

然后使用VB调用
dim ls_str as string
ls_str = "中"
MsgBox test(ls_str)

但是这样 if (Str='中') then ShowMessage('ok'); 判断并不相等

且每次ShowMessage(ws);的值都不一样，VB的string是双字节的，unicode参数应该如何定义和处理呢？谢谢

已经发了一个同样问题的帖子，一起结分：

http://topic.csdn.net/u/20100730/22/a4588d71-c506-4a81-a6c5-33100b91ab49.html

[helyna]

VB中的字符串有其自己的定义格式

[kye_jufei]

不要傳遞中文字符串，直接傳一個UNICODE編碼即可。。。

[PLAYROME]

[Quote=引用 1 楼 helyna 的回复:]
VB中的字符串有其自己的定义格式
[/Quote]

现在就是要传递中文字符

[kye_jufei]

[Quote=引用 3 楼 playrome 的回复:]
引用 1 楼 helyna 的回复:
VB中的字符串有其自己的定义格式


现在就是要传递中文字符
[/Quote]

將中文字符轉換成UNICODE才可以。。。

[PLAYROME]

[Quote=引用 4 楼 kye_jufei 的回复:]
引用 3 楼 playrome 的回复:
引用 1 楼 helyna 的回复:
VB中的字符串有其自己的定义格式


现在就是要传递中文字符


將中文字符轉換成UNICODE才可以。。。
[/Quote]

因为现在要解决的就是中文字符。

还有 中文字符不是UNICODE字符码？ 初学DELPHI请多指教，谢谢。

测试传递字符,A，也不行

[hucaiyu2009]

没分了 顶你一下

[xuzhongnan001]

顶起 我也没分了- -

[Frank.WU]

你要先确定用 delphi 写个 exe 程序能否正常调用你的 dll，如果 delphi 写的 exe 正常能呼叫 dll，
则建议在 VB 论坛提问如何调用 delphi 写的 dll。

[newfang]

[Quote=引用 3 楼 playrome 的回复:]
引用 1 楼 helyna 的回复:
VB中的字符串有其自己的定义格式


现在就是要传递中文字符
[/Quote]


为什么“就是要”，传递unicode有什么不同吗？