Public Function UnicodeEncode(bTemp As String) As Byte()
'编码UNICODE UTF-16
Dim i As Long
Dim k As Long
Dim strTotal() As Byte
Dim Code As Long
Dim bNo As Long
k = Len(bTemp)
ReDim strTotal(k * 2)
strTotal(0) = CByte("00")
bNo = 0
For i = 1 To k
Code = CLng("&H" + Hex(AscW(Mid(bTemp, i, 1))))
strTotal(bNo) = Code \ 256
strTotal(bNo + 1) = Code And 255
bNo = bNo + 2
Next
ReDim Preserve strTotal(bNo - 1)
UnicodeEncode = strTotal
End Function
-
等级
本版专家分：0结帖率 100% -
以下的一个函数应该是将一个字符串转为编码UNICODE UTF-16的 byte数组。经过调试，发现转出来的byte数组内容是乱码（这是正确的）。因为没有领悟这个函数真正的意图，我试图转为delphi，直接转为16进制的unicode是不行的。尝试了很多方法，没成功，请赐教~
展开阅读全文
-
等级
本版专家分：5163勋章
-
- 红花 2015年7月 Windows专区大版内专家分月排行榜第一
-
- 黄花 2021年1月 .NET技术大版内专家分月排行榜第二
-
-
为什么非要从VB的代码转……直接网上搜delphi的代码就好啦。
-
等级
本版专家分：0
-
之所以想转是因为不知道原函数的真正意图是什么，有时候一句代码的差别就会导致函数返回结果的错误。
不过这个函数我已经找到正确的转换方法了，真正应了那句话：求人不如求己！
arrByte： array of byte;
Function ConvertUnicode(const ChineseStr: WideString): arrByte;
var
i, k, bNo, code: LongInt;
strTotal: arrByte;
n, n1,str: string;
begin
k := Length(ChineseStr);
SetLength(strTotal, k*2);
strTotal[0] := 00;
bNo := 0;
For i := 1 To k do
begin
n1 := Copy(ChineseStr, i, 1);
n := UnicodeEncodes(n1);
code := StrToInt('$' + n);
strTotal[bNo] := Code div 256;
strTotal[bNo + 1] := Code And 255;
bNo := bNo + 2;
end;
Result := strTotal;
end;
-
等级
本版专家分：39410勋章
-
- 蓝花 2007年9月 VB大版内专家分月排行榜第三
-
-
能自己解决最好, 原本的VB函数不是很复杂, 即使不知道原理, 直接硬改成delphi也不是不行.
纯代码的一般都能改, 遇到用控件,对象什么的就麻烦点了.
-
等级
本版专家分：0
-
虽然源函数不复杂，不过他的真正意图我还是未能理解，特别是后面的
Code \ 256 ， Code And 255，不知有何用意？
-
等级
本版专家分：39410勋章
-
- 蓝花 2007年9月 VB大版内专家分月排行榜第三
-
-
就是把long型数值拆分
- Delphi与Word之间的融合技术
问题：Delphi与Word之间的融合技术 ( 积分：0, 回复：325, 阅读：37835 )分类：OLE/Automation ( 版主：g622, satanmonkey ) 来自：yzhshi, 时间：2001-11-18 17:52:00, ID：737517[显示：小字体 | 大字体] <tools:...
- 我在CSDN参与的3000个帖子
2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
- 如何写系统分析书 (转)
如何写系统分析书 (转)如何写系统分析书 作者：邓磊 想和大家一起来谈谈在软件工程中我们所做的第一步：系统分析。希望我们中国的代码人能吸取更多更好的理论和实际的经验，有符合我们实际情况的系统分析、开发方法...
- CSDN回帖得分大全（近两年）
√vs2005调用dll的时候Initialize()函数返回错误 [VC/MFC 基础类] 40 ylongwu 05-21 20:486 ylongwu06-28 13:42管理√为什么我创建登陆框之后，然后获取登陆框的数据时候总是出现非法操作！ [VC/MFC 界面] 40 ...
- 如何写系统分析书(转信)
发信人: heavenleo (heavenleo), 信区: SoftwareEng 标 题: 如何写系统分析书 发信站: 武汉白云黄鹤站 (2001年03月07日22:04:42 星期三), 转信 想和大家一起来谈谈在软件工程中我们所做的第一步：系统分析。...
- 链接：MSDN UserNet等
T可塌陷的PanelBar界面比outlookbar更有吸引力，Windows XP左边的导航工具面版就是采用这种风格，采用这种风格的应用程序也越来越多，比如各种杀毒软件，可能delphi提供的vcl组件可以简化这种操作，对于这种“傻瓜...
- 仅通过崩溃地址找出源代码的出错行
仅通过崩溃地址找出源代码的出错行 作者：老罗 http://www.vckbase.com/document/viewdoc/?id=908 提交者：eastvc 发布日期：2003-10-23 9:16:11 原文出处：... ...作为程序员，我们平时最担心见到的事
- 两层和三层的讨论
下面的东西都是转贴的，包括那个声明，都跟俺没关系。google搜出来的。在这之前俺的确有点觉得DataSetProvider+ClientDataSet和俺理解中的三层有点差别。看完这些讨论，俺的结论是：DataSetProvider+ClientDataSet...
- 两层还是三层？
下面的这些东西是我转贴的。至于搞三层，我曾经用ASTA实现过，但是我一般用的是两层。也许对于小系统来说就比较好，但大系统的话，我看还是够怆。我应该研究这方面的东西如JAVA的一些应用服务器，以及DEPHI如何和...
- 如何写系统分析书
文章摘要: 想和大家一起来谈谈在软件工程中我们所做的第一步：系统分析。希望我们中国的代码人能吸取更多更好的理论和实际的经验，有符合我们实际情况的系统分析、开发方法、步骤以及文档。 想和大家一起来谈谈在...
- 如何写系统需求分析书
如何写系统需求分析书2008-02-25 16:06如何写系统需求分析书作者：三人行 2007-11-19 10:32:37标签：IT/科技 在软件开发工程中我们所做的第一步：系统分析。希望我们中国的代码人能吸取更多更好的理论和实际的经验...
- 系统分析
想和大家一起来谈谈在软件工程中我们所做的第一步：系统分析。希望我们中国的代码人能吸取更多更好的理论和实际的经验，有符合我们实际情况的系统分析、开发方法、步骤以及文档。正文:想和大家一起来谈谈在软件工程...
- 如何写系统分析书
想和大家一起来谈谈在软件工程中我们所做的第一步：系统分析。希望我们中国的代码人能吸取更多更好的理论和实际的经验，有符合我们实际情况的系统分 析、开发方法、步骤以及文档。系统分析，我个人认为它应该是能...
- ida静态分析/破解某软件的 时间限制
【文章标题】: ida 静态分析/破解某软件的 时间限制 【文章作者】: kusky 【作者邮箱】: p_168@163.com 【作者主页】: ... 【作者QQ号】: 109427716 【软件名称】: 某视频监控软件 ...【编写语言】: Borla
- 软件文档知多少？
软件文档知多少？document.title="软件文档知多少？ - "+document.title 想和大家一起来谈谈在软件工程中我们所做的第一步：系统分析。希望我们中国的代码人能吸取更多更好的理论和实际的经验，有符合我们实际情况的...
- 软件文档知多少？
想和大家一起来谈谈在软件工程中我们所做的第一步：系统分析。希望我们中国的代码人能吸取更多更好的理论和实际的经验，有符合我们实际情况的系统分析、开发方法、步骤以及文档。系统分析，我个人认为它应该是能体现...
- Java面试题大全（备战2021）
这本面试手册包含了Java基础、Java集合、JVM、Spring、Spring Boot、Spring Cloud、Mysql、Redis、RabbitMQ、Dubbo、Netty、分布式及架构设计等方面的技术点。内容难度参差，满足初中高级Java工程师的面试需求。
- xshell & xftp.zip
xshell6 和 xftp6个人版，直接安装即可使用。
- 官方 DEV C++ 中文版
官方的DEV C++ 规范好用的自学C语言工具
- 七夕情人节表白HTML源码(两款)
七夕节、情人节表白用的HTML源码(两款)
- 以太坊ETH挖矿图文教程2.0
本教程页数不多，7页，主要描述如何使用以太坊ETH挖矿，图文并茂的展示和流程细节的体现，基本看了一遍就肯定能够学会了。
- jd_seckill京东抢茅台插件最新版【京东飞天茅台1499抢购】Python脚本的完整安装+使用教程
jd_seckill京东抢茅台插件最新版【京东飞天茅台1499抢购】Python脚本的完整安装+使用教程，这个很好用，稳定出单！
- SecureCRT中文破解版
SecureCRT中文破解版欢迎大家下载，非最新版本！！！
- Xshell-7.0个人免费版.zip
Xshell-7.0个人免费版 ，供个人免费使用。 Xshell 是一个强大的安全终端模拟软件，它支持SSH1, SSH2, 以及Microsoft Windows 平台的TELNET 协议。Xshell 通过互联网到远程主机的安全连接以及它创新性的设计和特色帮助用户在复杂的网络环境中享受他们的工作。Xshell可以在Windows界面下用来访问远端不同系统下的服务器，从而比较好的达到远程控制终端的目的。除此之外，其还有丰富的外观配色方案以及样式选择。
- C Primer Plus 第6版 中文版.pdf带书签非扫描版良心资源
C+Primer+Plus（第6版）中文版,不是扫描版,而是文字电子书，非常的高清，带目录
- Office2016专业增强版中文免费正式版(附安装教程)64位
Microsoft office 2016专业增强版是一款由官方发布的Microsoft office办公软件，而且免费开放给所有Windows用户免费使用，其中Excel、word、PPT都非常智能化，界面最新加入暗黑主题，并且按钮的设计风格开始向Windows10靠拢。本平台提供Office 2016专业增强版，需要的朋友可下载试试！ Office 2016 专业增强版安装教程 1. 下载
- 京东抢茅台改进版_python.zip
自动抢购京东53度飞天茅台python脚本改进版，提供脚本源代码仅供大家学习研究，亲测有效已经抢到1瓶，欢迎改进升级
- Keil5安装包
Keil5安装包，附带STM31F1、STM32F4支持包以及破解软件。
- jd_seckill京东抢茅台插件
这个很好用，稳定出单！