findcsdn请来接分,感谢两天来的帮助,问题已经成功解决,不胜感激

Question

小弟谢谢了

Answer 1

为了避免有倒分的嫌疑：特将我发的短消息贴出来。小弟按照你的方法已经成功解决问题,不胜感激.这个是我很古老的号码,
有很多可用分,我用它来问问题,你去接200分,请查看.我在CSDN上的常用号码
是u2m,很希望也很高兴认识你这个朋友.
----------------------------------------------------------------
原贴内容：
经过研究发现你的外部模块并不支持标准的unicode的编码;
我写了一个函数能够模拟vc的汉字赋值函数,相信一定好用;
有两点注意：1. 双字节申明改称 array[0..50] of word 了;
            2. 缓冲区一定要够用; 
编号： 26 发送者 bestfeng 发送时间 2002-10-11 17:00:11 删除  回复  
内容 这位大侠,小弟对你真是感激涕零,虽然函数我还没试过,但就凭你这份热心肠,
我就很想交你这个朋友,如果解决,一定高分相赠,我在深圳,如果你在深圳的话,
改天聚聚小弟请吃饭.
----------------------------------------------------------------
原贴内容：
经过研究发现你的外部模块并不支持标准的unicode的编码;
我写了一个函数能够模拟vc的汉字赋值函数,相信一定好用;
有两点注意：1. 双字节申明改称 array[0..50] of word 了;
            2. 缓冲区一定要够用
 
编号： 25 发送者 bestfeng 发送时间 2002-10-11 16:59:37 删除  回复  
内容 这位大侠,小弟对你真是感激涕零,虽然函数我还没试过,但就凭你这份热心肠,
我就很想交你这个朋友,如果解决,一定高分相赠,我在深圳,如果你在深圳的话,
改天聚聚小弟请吃饭.
----------------------------------------------------------------
原贴内容：
经过研究发现你的外部模块并不支持标准的unicode的编码;
我写了一个函数能够模拟vc的汉字赋值函数,相信一定好用;
有两点注意：1. 双字节申明改称 array[0..50] of word 了;
            2. 缓冲区一定要够用
 
编号： 24 发送者 bestfeng 发送时间 2002-10-11 10:38:13 删除  回复  
内容 我也很奇怪,用它自带的VC Demo执行结果就能够正常显示 
----------------------------------------------------------------
原贴内容：
末尾有一个 '' 就是vc的 '\0' 了。USHORT Format1[40] = {'办','公','室','\0'};
MessageBoxW(0,format,Format1,MB_OK);
我在vc里执行这两句话也显示乱码，所以可以确定，参数传的是对的，是不是他的
库有问题。 
编号： 23 发送者 bestfeng 发送时间 2002-10-11 9:13:57 删除  回复  
内容 传入的字符串是对的,但我怀疑是不是它的底层开发包函数只认\0作为结束标识,
而我传进去后字符串里是空,没有\0这个字符呢 
----------------------------------------------------------------
原贴内容：
你有没有在调试器中看一看在传入dll函数前调试器里的字符串显示的对不对呢？ 
编号： 22 发送者 bestfeng 发送时间 2002-10-10 17:49:18 删除  回复  
内容 还是不行阿,我快疯掉了,汉字显示始终都是乱码,如果显示汉字加字母,
例如'我A'则A显示正确,我是乱码,怎么办阿 
----------------------------------------------------------------
原贴内容：
我发现指原因了，就是指定缓冲区的时候大小错了
var f: array[0..49] of wchar;  s:=#13+#19+'我是谁';
  StringToWideChar(s,f,50);把length(s) 改成 50 .