VB代码转Delphi代码，请熟悉两者的高手请进（一）-CSDN论坛

VB代码转Delphi代码，请熟悉两者的高手请进（一）

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

收藏回复

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

⋅请教对系统麦克风调整音量、设置静音的方案 ⋅Struts2.0.11.1 s:if test 标签问题 ⋅【求助】简体->繁体转换表及其使用方法 更多帖子 关注私信空间博客 马行空牛耕田 等级 本版专家分：0 结帖率 100%: 自我介绍：本人是搞Java的，但现在有个windows平台的东东需要开发。其中有一部分已有代码是VB写的，现在要转成Delphi代码，此中过程本人因为两个开发语言/工具都不太熟悉，所以会有一些很基本的问题要问，希望大家不要介意，并且保持关注。谢谢大家！

问题一：
外部dll函数声明：
VB代码如下：
Public Declare Function ReadMsg Lib "sample.dll" (ByVal IPort As Integer, ByRef CHMsg As Any, ByRef CHMsgLen As Long, ByRef PHMSg As Any, ByRef PHMsgLen As Long, ByVal iState As Integer) As Integer
相应的Delphi声明该如何呢？
我主要是不明白这个“ByRef CHMsg As Any”该怎么“翻译”，用万能指针？请大虾给个例子

问题二：
VB有动态数组：
ReDim TmpData(1 To 16)
Delphi该怎么办？请举个例子

问题三：
VB转换字符？
StrConv(TmpData, vbWide)
Delphi该怎么办？请举个例子

有些问题我也知道可以通过查API去解决，但因为时间紧，没办法，有劳大虾了，100分不够我可以再另开帖子。请不要骂我懒，^_^

2005-07-24 14:19:23

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

展开阅读全文

⋅寻找软件高手一起开发产品 ⋅逛完武汉光谷思远+1，似乎…… ⋅★祝我生日快乐，祝所有快毕业的学生都能找个好工作★ 更多帖子 关注私信空间博客 Eastunfail 等级 本版专家分：20147: function ReadMsg(IPort:Integer;var CHMsg;var CHMsgLen:Integer;var PHMsg;var PHMsgLen:Integer;iState:Integer):Integer;external 'sample.dll';

var TmpData:array of char;
begin
SetLength(TmpData,16);
end;

var s:String;TmpData:array of char;
begin
...
s:=WideString(StrPas(@TmpData));
end;

2005-07-24 14:25:10

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

⋅请教对系统麦克风调整音量、设置静音的方案 ⋅Struts2.0.11.1 s:if test 标签问题 ⋅【求助】简体->繁体转换表及其使用方法 更多帖子 关注私信空间博客 马行空牛耕田 等级 本版专家分：0: To ： Eastunfail(龍子龍孫)　(诚彼娘之非悦)
大虾好快的身手，被你吓到了，呵呵，非常感谢（原来以为今天周末，回帖至少还要等一两个小时呢）

2005-07-24 14:28:48

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

⋅请教对系统麦克风调整音量、设置静音的方案 ⋅Struts2.0.11.1 s:if test 标签问题 ⋅【求助】简体->繁体转换表及其使用方法 更多帖子 关注私信空间博客 马行空牛耕田 等级 本版专家分：0: 更昏，第一次知道“诚彼娘之非悦”，我还到处查古籍出处呢，原来是这样：

誠，實際也，今譯為“真”。
彼，其人也，今譯為“他”。
娘，母親也，今譯為“媽”。
之，所有也，今譯為“的”。
非，不是也，今譯為“不”。
悅，快樂也，今譯為“爽”。

所以~~誠彼娘之非悅=真他媽的不爽

2005-07-24 14:38:47

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

⋅寻找软件高手一起开发产品 ⋅逛完武汉光谷思远+1，似乎…… ⋅★祝我生日快乐，祝所有快毕业的学生都能找个好工作★ 更多帖子 关注私信空间博客 Eastunfail 等级 本版专家分：20147: hehe

2005-07-24 14:41:30

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

⋅请教对系统麦克风调整音量、设置静音的方案 ⋅Struts2.0.11.1 s:if test 标签问题 ⋅【求助】简体->繁体转换表及其使用方法 更多帖子 关注私信空间博客 马行空牛耕田 等级 本版专家分：0: 对了，对于第一个问题，其实应该是个dll是用c写的，它的API说明是：
ReadMsg (
int iPort，
unsigned char * pucCHMsg，
unsigned int * puiCHMsgLen，
unsigned char * pucPHMsg，
unsigned int * puiPHMsgLen,
int iIfOpen
);

pucCHMsg是一个无符号字符指针来的，指向一个字符串，那么您给的定义就是var，那么我使用时应该传一个什么类型的参数呢？一个String类型的？

2005-07-24 14:55:20

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

⋅问一个游戏算法的问题

⋅求一个基于Web的网页编辑的实现代码

⋅湖南微软开发者俱乐部成立大会召集贴

更多帖子

关注私信空间博客

TechnoFantasy

等级

本版专家分：25076

勋章

进士 2001年总版技术专家分年内排行榜第五

微软MVP 2005年9月荣获微软MVP称号
2008年10月荣获微软MVP称号
2007年10月荣获微软MVP称号
2006年10月荣获微软MVP称号
2004年9月荣获微软MVP称号
2003年9月荣获微软MVP称号
2002年9月荣获微软MVP称号

红花 2005年7月 VB大版内专家分月排行榜第一
2005年6月 VB大版内专家分月排行榜第一
2001年5月 VB大版内专家分月排行榜第一
2001年4月 VB大版内专家分月排行榜第一
2001年3月 VB大版内专家分月排行榜第一

黄花 2005年9月 VB大版内专家分月排行榜第二
2001年2月 VB大版内专家分月排行榜第二: 可以用PChar

2005-07-24 15:09:48

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

⋅请教对系统麦克风调整音量、设置静音的方案 ⋅Struts2.0.11.1 s:if test 标签问题 ⋅【求助】简体->繁体转换表及其使用方法 更多帖子 关注私信空间博客 马行空牛耕田 等级 本版专家分：0: 成功，happy，多谢，不过我还是不理解Delphi的这个机制：
char，PChar，还有String，我都没搞清楚，唉！

2005-07-24 15:32:44

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

⋅关于EXTJS3.1.1 combo 首次 getForm().submit 提交产生的问题 ⋅刚入门.net,很简单的问题，两个窗体传递变量值问题。 ⋅ocx文件，如何在不注册的情况下动态调用(不用regsvr32 *.ocx) 更多帖子 关注私信空间博客 huiwww 等级 本版专家分：1831: char,表示单个字符
PChar，类似与array of char,表示多个字符的字符串数组。
String，表示字符串，是物理地址下连续的字符串

2005-07-24 15:45:45

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

⋅std::cin 输入请求时，输入两个名字(例如Samuel Becket)，结果和想象不一样 ⋅“Expires”特性超出范围，如何解决？在线等 ⋅JQuery 中选择器 $('a[href^=http://]') 的疑问？ 更多帖子 关注私信空间博客 redlegend_126... 等级 本版专家分：1856: ？问题一：
？我主要是不明白这个“ByRef CHMsg As Any”该怎么“翻译”，用万能指针？请大虾给个例子

var CHMsg就可以了！

？问题二：
VB有动态数组：
ReDim TmpData(1 To 16)
Delphi该怎么办？请举个例子

var
  pp:array of integer;
问题三：

VB转换字符？
StrConv(TmpData, vbWide)
Delphi该怎么办？请举个例子

var
  s: string;
  b: widestring;
begin
  s := 'Google';
  b := s;


2005-07-24 15:52:09

点赞只看TA 引用举报 #9得分 15

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

我在Delphi中声明为：Function SDT_ReadBaseMsg (iPort : Integer; var CHMsg; CHMsgLen : Longint; var PHMSg; PHMsgLen : Longint; iState : Integer) : Integer; stdcall; external 'sample.dll';
调用的时候，我定义了
   CardCHMsgLen, CardPHMsgLen : Longint;
   TmpCHMsg, TmpPHMsg : PChar ;
作为它的参数，但是却报错了：
Project myproj.exe raised exception class EAccessViolation with message 'AccessViolation at address 1000185C in module 'sample.dll'.Write of address 77D32C4C '。。。. 这是怎么回事呢？　前面我也定义了类似的函数（来自sample.dll），也用了PChar，都成功了啊，为什么独独这个会报错呢？  怎么查呢？

2005-07-24 16:37:31

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

1 2 3

收起

收藏回复

马行空牛耕田

等级：

关注私信 TA的帖子

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

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

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

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

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

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

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

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

一个计算机高手的成长(转): 这些日子我一直在写一个实时操作系统内核，已有小成了，等写完我会全部公开，希望能够为国内IT的发展尽自己一份微薄的力量。最近看到很多学生朋友和我当年一样没有方向，所以把我的经历写出来与大家共勉，希望...

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

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

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

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

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

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

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

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

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

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

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

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

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

delphi 类的大体概述: 刚刚接触的Delphi的朋友，...仅仅向窗体上扔几个构件，甚至不用动手写代码，就能很容易地做出一个有实用价值的程序，真是令人激动。但是，VCL只是Delphi的一小部分，Delphi的优秀远远不只是表现在VCL上。如果你仅仅停留

[转]如何成为一名优秀的程序员: 如何成为一名优秀的程序员作者：不详　来源：互联网　ithao123整理　2007-05-08摘要IT人　在我的理解，VC只是一个编程工具，就如BC、BCB、Delphi 一样，其实对于编程最根本的就是三个方面，语言、开发包、操作系统...

一个计算机高手的成长: 一个计算机高手的成长这些日子我一直在写一个实时操作系统内核，已有小成了，等写完我会全部公开，希望能够为国内IT的发展尽自己一份微薄的力量。最近看到很多学生朋友和我当年一样没有方向，所以把我的经历写...

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

StarUML用户手册: 第一章 StarUML概述... 3 StarUML是什么... 3 适合用户的UML工具... 3 真正的UMD支持... 3 高可扩充及适应性... 3 主要特征... 3 系统需求... 4 第二章基本概念... 6 模型、视...

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

计算机设计大赛作品开发文档: 参加的是2020年的计算机设计大赛，软件应用与开发赛道。我们的开发文档仅供参考。（20页）

2021华中杯A第一问配套思路.rar: 2021华中杯第一问配套思路，内涵第一问处理后的可读数据，输出结果，可视化图片，RGB转换函数。（R语言代码）声明：只可自己使用，不可商用。违者必究。具体思路见：https://tjxwz.blog.csdn.net/article/details/116310441

相关热词 c# for step c#读取shp文件 c# 多个if c#上传图片到安卓的接口 c#中得到控件 c# 浏览器打开调用 c# 绘制3维 c#酒店管理系统数据库 c#链接api c# 串口发送数据