VB代码转Delphi代码，请熟悉两者的高手请进（二）：中文问题-CSDN论坛

VB代码转Delphi代码，请熟悉两者的高手请进（二）：中文问题

Delphi > 语言基础/算法/系统设计

收藏回复

[问题点数：88分，结帖人phoenix_zd]

⋅请教对系统麦克风调整音量、设置静音的方案 ⋅Struts2.0.11.1 s:if test 标签问题 ⋅【求助】简体->繁体转换表及其使用方法 更多帖子 关注私信空间博客 马行空牛耕田 等级 本版专家分：0 结帖率 100%: 问题情景：
从硬件读取信息，其驱动 sample.dll定义了一个方法：
ReadMsg (
int iPort，
unsigned char * pucCHMsg，
unsigned int * puiCHMsgLen，
unsigned char * pucPHMsg，
unsigned int * puiPHMsgLen,
int iIfOpen
);

我在delphi中对应声明的函数则如下：
Function ReadMsg(iPort : Integer; var CHMsg;var CHMsgLen : Longint; var PHMSg; var PHMsgLen : Longint; iState : Integer) : Integer; stdcall; external 'sample.dll';
调用的时候，我定义了4个参数
   CHMsgLen, PHMsgLen : Longint;
   TmpCHMsg : array [0.. 256] of byte ;
   TmpPHMsg : array [1.. 1024] of byte ;
其余两个参数都是传值。

调用成功后，硬件中读取的文本信息存放到了TmpCHMsg，头30个字节表示姓名，紧接着的2个字节表示婚否；其他字节表示其他信息内容，这里就不详说了。

然后我调用函数，想取头30个字节转换成字符串
TmpCHMsg[31] := $0;  //让第31位变成0，当然，事先应该保存该位；
b := WideString(StrPas(@TmpCHMsg));  //b 是一个widestring变量

但是输出的b仍然是乱码。

而VB程序是这样处理的：
                Dim TmpPos As Long
                TmpPos = 0
                ReDim TmpData(1 To 30)
                CopyMemory TmpData(1), TmpCHMsg(1), 30
                Label2.Caption = StrConv(TmpData, vbWide)    '姓名

请问我如何修正自己的Delphi代码，使得可以得到正确的中文？

2005-07-25 10:51:55

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅请教对系统麦克风调整音量、设置静音的方案 ⋅Struts2.0.11.1 s:if test 标签问题 ⋅【求助】简体->繁体转换表及其使用方法 更多帖子 关注私信空间博客 马行空牛耕田 等级 本版专家分：0: Up第一次（PS.昨天是周末，我发贴后n个人回复我，怎么今天大家都这么忙啊？）

2005-07-25 15:02:45

点赞只看TA 引用举报 #1得分 0

⋅请教对系统麦克风调整音量、设置静音的方案 ⋅Struts2.0.11.1 s:if test 标签问题 ⋅【求助】简体->繁体转换表及其使用方法 更多帖子 关注私信空间博客 马行空牛耕田 等级 本版专家分：0: Up第二次，晕了，怎么还没有答复，是我的问题描述太繁杂？？

2005-07-26 10:21:50

点赞只看TA 引用举报 #2得分 0

⋅郁闷求助:用ICS组件制作的多线程网络爬虫,导致路由器丢包 ⋅1990-2006历届世界杯主题曲批量下载! ⋅我用DELPHI写的MP3批量下载器，界面仿iTunes,苹果会不会告我？ 更多帖子 关注私信空间博客 mxlinux 等级 本版专家分：495: 我觉得这个功能实现没必要用到指针，指针很容易出现乱吗。我一般是用for循环读取string变量每一个位，stirng可以用string[x] 访问每一位数据，这个数据是pchar类型的。比如得到前30位内容

var tmep:string;//临时字串，保存结果
var b:stirng;//原始字符串

tmep:='                                  ';//初始化超过30位

for i:=1 to 30 do
  begin
    temp[i]:=b[i];

  end;

temp:=Trim(temp);

temp就是前30位的信息了。

可能你遇到的情况比较复杂，思路开阔点，不要钻牛角，delphi比VB强很多，很多东西可以简单实现，不必像VB那样思考问题，祝你好运！！

2005-07-26 15:44:57

点赞只看TA 引用举报 #3得分 66

⋅请教对系统麦克风调整音量、设置静音的方案 ⋅Struts2.0.11.1 s:if test 标签问题 ⋅【求助】简体->繁体转换表及其使用方法 更多帖子 关注私信空间博客 马行空牛耕田 等级 本版专家分：0: 但是不需要转码（单字节转双字节）吗？前30位可是中文哦。 Delphi比VB强我知道，但是这里的情况是dll中有了可用的函数，VB调用后，得到数据，进行转换，成功显示中文；我写的Delphi也是用同一dll的同一个函数，也可以得到数据，不转化输出的字符（乱码）和VB未转换之前的一模一样。

所以我考虑的是，如何转换。

2005-07-27 01:00:07

点赞只看TA 引用举报 #4得分 0

⋅Crystal Reports Runtime Packages 是免费的吗？ ⋅Crystal Reports Runtime Packages 是免费的吗？ ⋅VS2008下的Crystal Reports Runtime Packages 是免费的吗？ 更多帖子 关注私信空间博客 jtg98g3 等级 本版专家分：276: vb是双字节的，但有时候又不是，它会使用单字节来表示字符！到底是什么时候是双字节，
什么时候是单字节，只有microsoft才知道。我用的时候是先对每个字节做判断，如果碰到
小于80h的字符，那么该字符为ASCII中可打印字符。否则，就表示该字符跟后面一个字符
组合成一个中文！就这样！

2005-07-27 08:24:20

点赞只看TA 引用举报 #5得分 22

⋅请教对系统麦克风调整音量、设置静音的方案 ⋅Struts2.0.11.1 s:if test 标签问题 ⋅【求助】简体->繁体转换表及其使用方法 更多帖子 关注私信空间博客 马行空牛耕田 等级 本版专家分：0: 嗯，那么可否告知VB代码 TmpStr = StrConv(TmpData, vbWide) 的工作细节呢，我好在Delphi中仿照它实现，谢谢！

2005-07-27 19:02:38

点赞只看TA 引用举报 #6得分 0

收起

收藏回复

马行空牛耕田

等级：

关注私信 TA的帖子

JAVA上百实例源码以及开源项目源代码: Java局域网通信——飞鸽传书源代码 28个目标文件内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码，大家都知道VB版、VC版还有Delphi版的飞鸽传书软件，但是Java版的确实不多，因此这个Java...

[转]全面比较Delphi和Visual C++: 全面比较Delphi和Visual C++ --------玉笛书生偶然来找一个文件，却发现这里关于vc++和delphi的讨论很是激烈。看了大家写的一些文章，觉得有些看法正确，有些就很偏颇甚至错误(也许无知？很抱歉我这样说:-)。我...

JAVA上百实例源码以及开源项目: 　Java局域网通信——飞鸽传书源代码，大家都知道VB版、VC版还有Delphi版的飞鸽传书软件，但是Java版的确实不多，因此这个Java文件传输实例不可错过，Java网络编程技能的提升很有帮助。 Java聊天程序，包括服务端和...

delphi类自定义类的大体描述: 刚刚接触的Delphi的朋友，可能最感兴趣的就是它丰富、强大的VCL（可视化构件库）。...如果你仅仅停留在使用VCL这一阶段，那么你永远也不可能成为一个真正的Delphi高手。记住，必须超越VCL，才能够接触到Delph...

delphi自定义类大体描述: delphi类,自定义类的大体描述. 刚刚接触的Delphi的朋友，可能最感兴趣的就是它丰富、强大的VCL（可视化构件库）。...如果你仅仅停留在使用VCL这一阶段，那么你永远也不可能成为一个真正的Delphi高手。记住，...

delphi 类class自定义类方法虚方法: 刚刚接触的Delphi的朋友，可能最感兴趣的就是它丰富、强大的VCL（可视化构件库）。...如果你仅仅停留在使用VCL这一阶段，那么你永远也不可能成为一个真正的Delphi高手。记住，必须超越VCL，才能够接触到Delph...

Delphi编程OOP思想【转】: 注：本文摘自http://blog.csdn.net/haiou327/article/details/5937171，转载请注明；...刚刚接触的Delphi的朋友，可能最感兴趣的就是它丰富、强大的VCL（可视化构件库）。仅仅向窗体上扔几个构件，甚至不用动手...

Delphi 组件渐进开发浅谈（三）——锦上添花: 转载请指明出处来源。 3.锦上添花3.1.对齐属性Alignment　T[x]CustomEdit类没有提供左右对齐属性，这令人很不爽。也许在我们现在的生活中，文字基本都是左对齐的，但数值输入输出如果是右对齐的话就更理想了。　...

Delphi编程: 转载至：... 刚刚接触的Delphi的朋友，可能最感兴趣的就是它丰富、强大的VCL（可视化构件库）。仅仅向窗体上扔几个构件，甚至不用动手写代码，就能很容易地做出

Delphi与MATLAB数据接口方案探讨: Delphi与MATLAB数据接口方案探讨

深入delphi编程(转): 刚刚接触的delphi的朋友,可能最感兴趣的就是它丰富、强大的vcl(可视化构件库)。...如果你仅仅停留在使用vcl这一阶段,那么你永远也不可能成为一个真正的delphi高手。记住,必须超越vcl,才能够接触到delph...

深入 delphi (转）: 刚刚接触的Delphi的朋友，可能最感兴趣的就是它丰富、强大的VCL（可视化构件库）。...如果你仅仅停留在使用VCL这一阶段，那么你永远也不可能成为一个真正的Delphi高手。记住，必须超越VCL，才能够接触到Delphi的

JAVA 代码: 这些源码反映了那时那景笔者对未来的盲目，对代码的热情、执着，对IT的憧憬、向往！此时此景，笔者只专注Android、Iphone等移动平台开发，看着这些源码心中有万分感慨，写此文章纪念那时那景！ Java 源码包 ...

重载-delphi: delphi 类,自定义类的大体概述刚刚接触的Delphi的朋友，可能...停留在使用VCL这一阶段，那么你永远也不可能成为一个真正的Delphi高手。记住，必须超越VCL，才能够接触到Delphi的核心。　那么，在Delphi的VCL

深入Delphi编程: <script type="text/javascript"

如何深入Delphi编程: 刚刚接触的Delphi的朋友，可能最感兴趣的就是它丰富、强大的VCL（可视化构件库）。...如果你仅仅停留在使用VCL这一阶段，那么你永远也不可能成为一个真正的Delphi高手。记住，必须超越VCL，才能够接触到Delphi的

delphi 类的大体概述: 刚刚接触的Delphi的朋友，可能最感兴趣的就是它丰富、强大的VCL（可视化构件库）。仅仅向窗体上扔几个构件，甚至不用动手写代码，就能很容易地做出一个有实用价值的程序，真是令人激动。但是，VCL只是Delphi的一小...

【转】Delphi与MATLAB数据接口方案探讨: 前言： Delphi作为一种功能强大的编程工具,具有易学易用、开发效率高,界面制作美观方便等优点，因此被很多程序员所青睐。Pascal作为历史上第一种结构化的高级语言，在从事复杂算法编写方面也有着诸多优点，可是在...

Delphi编程(OOP): 如果你仅仅停留在使用VCL这一阶段，那么你永远也不可能成为一个真正的Delphi高手。记住，必须超越VCL，才能够接触到Delphi的核心。　那么，在Delphi的VCL后面，到底隐藏着什么呢？本文将讨论两个比较高级的D

delphi 类的大体概述: 刚刚接触的Delphi的朋友，可能最感兴趣的就是它丰富、强大的VCL（可视化构件库）。...如果你仅仅停留在使用VCL这一阶段，那么你永远也不可能成为一个真正的Delphi高手。记住，必须超越VCL，才能够接触到Delphi的

深入Delphi编程(OOP): 也许你会对这种抽象的东西不感兴趣，可是几乎任何一个高手都会告诉你：“语言并不重要，重要的是编程思想。”刚刚接触的Delphi的朋友，可能最感兴趣的就是它丰富、强大的VCL（可视化构件库）。仅仅向窗体上扔几个...

总体上说,是c++ builder胜于VC++,DELPHI是最好: 总体上说,是c++ builder胜于VC++,DELPHI是最好 2011年09月30日　偶然来找一个文件，却发现这里关于vc++和delphi的讨论很是激烈。看了大家写的一些文章，觉得有些看法正确，有些就很偏颇甚至错误(也许无知？很...

一个计算机高手的成长历程-转: 我看了下面的这篇文章，真的很感动（I ...在此推荐给大家，如果版主觉得好，请给我加酷。以下是这篇文章的全文：这些日子我一直在写一个实时操作系统内核，已有小成了，等写完我会全部公开，希望能够为国内IT的发展

VB编程技巧: 文章浏览广告 VB编程技巧几例现在加入 http://14.66.102.214 VB5 引入枚举变量，使用它，我们可以显著地改变应用程序的易读性： Public Enum TimeOfDay Morning = 0 Afternoon = 1 Evening = 2 End Enum ...

OpenGL ES2.0基础: 初级学习OpenGL ES2.0的课程，从无到有，从进本的函数讲起，每一课时都附带一个例子程序。深入浅出的讲解可编程管线技术，令人费解的文理，以及混合技术，各种优化技术：顶点缓冲区，索引缓冲区，帧缓冲区，介绍精灵的使用，并使用shader制作粒子特效。掌握OpenGL ES2.0可编程管线，以及OpenGLES2.0的特性，带领初学者入门。

MATLAB2019b: 共三个文件，其中前两个为 MATLAB R2019b 软件安装包的分卷压缩文件，将两个压缩包下载至同一个文件目录下随意解压一个即可；第三个为软件jihuo所需要的文件。

tipdm_CarsAnalysis_src:泰迪杯C组题，数据分析答题原始码-源码: tipdm_C_CarsAnalysis_src 泰迪杯C组题答题原始代码这个原始码为参赛者时做数据分析使用，由于其仅作为工具使用，并且加之时间缩短，所以没有做过多的性能优化。日后会抽空改进算法，转化为效率。

大唐杯资料+题库（移动通信）: 大唐杯资料+题库（移动通信）

微信支付微信扫码支付java版: 现在所有的web端网页商城常用的支付方式之一。web网站开发课程，web网站要实现支付的话，必须学习微信扫码支付。内容逻辑清晰，包你一会就会是在微信的扫描支付，学员在制作web网站商城必备知识之一，让学员不留疑惑，在学会扫码支付的同时学会看开发API文档。增加学员的实战能力

自己动手从0到1写嵌入式操作系统: 这不是rtos源码分析的课程，而是为初级的同学设计，从基础原理讲师，一步步不断迭代设计rtos的课程！用不到【2000行代码，汇编代码仅18行】（不含注释）实现一个精巧的可以运行在ARM Cortex-M内核芯片上的RTOS！该RTOS功能与ucos类似，具体实现不同。学习之后，再去学习ucos之类的系统将没有什么问题。 1、系统地掌握RTOS的工作原理及其应用； 2、用更短的时间、更少的精力，学习RTOS相关知识； 3、设计出一个具备自己特色的RTOS。将其用作毕业设计、找工作的敲门砖； 4、提升技术水平，为升职加薪跳槽提供资本。

相关热词 c# 调用exe返回值 c# 交互网站开发 c#串口协议解析 c#list 分页 c#日志记录 c#关键字 yield c# 实现ioc c#基于事件的多线程 c# tar 解压 c#延时1秒