ansi string TO PWideChar注意事项

最新推荐文章于 2023-10-19 08:52:15 发布
最新推荐文章于 2023-10-19 08:52:15 发布
阅读量2k 收藏
点赞数
分类专栏： Delphi 文章标签： string delphi function
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/shixueli/article/details/7867092
版权

转换方法当然是：PWideChar(WideString(strAnsi))

但因为有很多地方要调用，我写了一个通用的函数：

function StrToPW(s: string): PWideChar;

begin

    result := PWideChar(WideString(s));

end;

结果问题来了，只有第一次调用时得到的值是对的，第二次调用得到的值就乱七八糟了。不知道这算不算delphi的BUG？

shixueli
关注
专栏目录
Delphi String类型和PChar类型使用的区别.rar
07-10
Delphi 以实例演示String类型和PChar类型使用的区别，演示了PChar静态分配空间和PChar动态分配空间： 　procedure TForm1.Button1Click(Sender: TObject); 　var 　PStr:array [0..100] of Char; 　begin 　StrPCopy...
delphi中String，PChar，PByte，Array of Char，Array of Byte 互相转换
07-21
### Delphi中String，PChar，PByte，Array of Char，Array of Byte 互相转换 在Delphi编程语言中，字符串和其他与字符相关的数据类型之间的转换是常见的需求。本篇文章将详细介绍如何在这些数据类型之间进行转换，...
String转化为PWideChar函数
博海拾贝
12-07 7162
 最近在做项目时碰到了String转换为PWideChar的问题,delphi提供了两个封装函数来处理.WideCharTOString 将 WideChar 转为 String StringToWideChar 将 string 转为 WideCharfunction DoStrToWideChar(s: string): PWideChar;var  Buff: arr
Delphi实现AnsiString与WideString的转换函数
离,路的尽头还很远...
01-26 9169
在Delphi下，AnsiString 和 WideString 的存储与管理各有不同，这里提供互相转换的函数一对。 /// Wide String -> Ansi String function WideStringToAnsiString(const strWide: WideString; CodePage: Word): AnsiString; var Len: integer; be
Delphi Char、Pchar 、String 相互转换
最新发布
AI创世纪的博客
10-19 1765
【代码】Delphi Char、Pchar 、String 相互转换。
java 调用DLL 传递 PwideChar类型参数
06-11
在 Java 中调用 DLL 并传递 PwideChar 类型参数，可以使用 JNA（Java Native Access）库来实现。JNA 是一个 Java 编写的库，可以方便地调用本地代码（如 C/C++ 代码）。 以下是一个示例代码，演示如何使用 JNA 调用...
Delphi中处理字符串的相关方法
03-18
function stringtowidechar(const source:string;dest :pwidechar;destsize :integer) :pwidechar; 将默认string类型的字符串转换为unicode编码的字符串。dest参数指定了保存目的串的缓冲区位置 (2）...
procedure TForm1.FormCreate(Sender: TObject); var Str: AnsiString; HexStr: string; UnicodeStr: WideString; begin Str := '\xb4\xab\xcb\xcd\xcc\xd8\xc8\xa8 '; // 去掉空格和其他非 16 进制字符，只保留 \x 开头的部分 Str := StringReplace(Str, ' ', '', [rfReplaceAll]); // 去掉空格 Str := StringReplace(Str, '<\', '\', [rfReplaceAll]); // 去掉 < Str := StringReplace(Str, '\x', '', [rfReplaceAll]); // 去掉 \x Str := StringReplace(Str, '/@', '', [rfReplaceAll]); // 去掉 /@ // 将字符串转换为 16 进制字符串 HexStr := ''; while Str <> '' do begin HexStr := HexStr + IntToHex(StrToInt('$' + Copy(Str, 1, 2)), 2); Str := Copy(Str, 3, MaxInt); end; //ShowMessage(HexStr); // 将 16 进制字符串转换为 Unicode 编码字符串 SetLength(UnicodeStr, Length(HexStr) div 4); // 计算字符串长度 MultiByteToWideChar(CP_UTF8, 0, PAnsiChar(HexStr), -1, PWideChar(UnicodeStr), Length(UnicodeStr)); // 输出转换后的汉字 Memo1.Lines.Add(UnicodeStr); end;为什么输出的是B4AB，输出中文怎么写
06-12
如果你想输出中文，可以将 Str 变量中的内容替换为你想要输出的中文字符串，然后将代码中的 MultiByteToWideChar 函数的第一个参数改为 CP_ACP，即可将 ANSI 编码的字符串转换为 Unicode 编码的字符串。例如： ```...
Delphi 的字符及字符串[2] - Char、AnsiChar、WideChar、PChar、PAnsiChar、PWideChar
weixin_34362790的博客
03-03 412
//单字符 Char、AnsiChar (在目前版本(2007)中, 它们是一回事, 只有 1 字节大小) var c: Char; {Char 类型的取值范围是: #0..#255, 用十六进制表示是: #$0..#$FF} begin {用十进制方式赋值:} c := #65; ShowMessage(c); {A} {用十六进制方式赋值:} c...
delphi7 string 转到 PWideChar 用于连接unicode dll调用
weixin_30699463的博客
12-25 510
function UnicodeToAnsi(s: WideString): string;var lpChar: PChar; len: integer;begin len := Length(s) * 2; GetMem(lpChar, len); ZeroMemory(lpChar, len); WideCharToMultiByte(CP_ACP, WC_COMPOSITECH...
Delphi中的各种字符串、String、PChar、Char数组
weixin_30567471的博客
04-15 324
参考博客：http://www.cnblogs.com/pchmonster/archive/2011/12/14/2287686.html 其中的所有代码均在Delphi7下测试通过。 Delphi 4,5,6,7中有字符串类型包括了： 短字符串（Short String） 长字符串（Long String） 宽字符串（Wide String） ...
Java调用Delphi编写的Dll之实例Delphi使用PWideChar
叶炎灵的博客
03-29 625
Delphi 代码 unit UnitDll; interface uses StrUtils, SysUtils, Dialogs; function DoBusinessWide(pvData: PWideChar): PWideChar; stdcall; implementation function DoBusinessWide(pvData: PWideChar): PW...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值