delphi中UTF8Deocde的问题

最新推荐文章于 2024-11-28 09:39:22 发布
原创 最新推荐文章于 2024-11-28 09:39:22 发布 · 1.2k 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍了一种使用 Delphi 进行 UTF8 编码字符串解码的方法，通过 MultiByteToWideChar 函数替代标准的 Utf8Decode 函数，有效解决了因不正确字符导致的解码失败问题。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

delphi的UTF8Encode使用没有问题可 Utf8Decode在解码的时候遇到它认为不正确的字符就返回空串了,还是用winapi靠谱

uses windows;

function DecodeUtf8Str(const S:UTF8String): WideString;
var lenSrc,lenDst  : Integer;
begin
  lenSrc  := Length(S);
  if(lenSrc=0)thenExit;
  lenDst  := MultiByteToWideChar(CP_UTF8, 0, Pointer(S),lenSrc, nil, 0);
  SetLength(Result, lenDst);
  MultiByteToWideChar(CP_UTF8, 0, Pointer(S),lenSrc, Pointer(Result), lenDst);
end;
从数据库读取Unicode的中文编码，解码：

DecodeUtf8Str(UTF8String(Trim(dm.qPo.FieldByName('title').AsString)));

效果比Utf8Decode好，BDS2006+Win764位下通过

Delphi UTF8文件读写操作
wh445306
10-07 890
function LoadUTF8File(FileName: string): string; var SS: TStringStream; begin SS := TStringStream.Create('', TEncoding.UTF8); SS.LoadFromFile(FileName); Result := SS.DataString; end; proc...
delphi utf8解码
06-16 393
function Utf8ToUnicode1(Dest: PWideChar; MaxDestChars: Cardinal; Source: PChar; SourceBytes: Cardinal): Cardinal; var   i, count: Cardinal;   c: Byte;   wc: Cardinal; begin   if Source = nil then   be
Delphi utf8编码的解码
#Define
10-17 3055
{*******************************************************************   ** 功能: utf8编码的解码   ** 输入参数：   ** 作者：liubin   **日期：2011-02-15
Delphi操作UTF-8转码HTTPEncode
weixin_30835933的博客
11-14 454
引用单元 ;HttpApp procedure TForm1.Button1Click(Sender: TObject); var Str: WideString; http: AnsiString; begin Str := Memo1.Text; http := HTTPEncode(UTF8Encode(Str)); Memo2.Text := htt...
Delphi中UTF-8,Unicode格式转换
08-06
delphi7调用delphi2009生成的dll文件会出现乱码问题。是unicode的原因 终于找到了UTF-8、Unicode格式转换函数
Delphi XE + IdHTTPServer + UTF-8转换 + JSON解析 (源码+测试可用)
11-19
本项目是专为Delphi XE开发者设计的一个实用资源，旨在展示如何在Delphi XE环境中集成Indy库中的IdHTTPServer组件，实现UTF-8编码的转换处理，并整合JSON数据的解析功能。无论是对于正在构建Web服务、API接口或是...
UTF8_STR.RAR_delphi Utf8_delphi string_delphi utf 8 gb23_delphi
09-19
标题“UTF8_STR.RAR_delphi Utf8_delphi string_delphi utf 8 gb23_delphi”暗示了这个压缩包主要关注的是Delphi中UTF8编码和字符串类型的交互操作，特别是与GBK（GB2312）编码的转换。描述中提到的“UTF8与string...
utf8.rar_UTF8_UTF8-gb_big5_delphi_utf8 decode_字符串 转换
09-19
标题中的"utf8.rar_UTF8_UTF8-gb_big5_delphi_utf8 decode_字符串转换"表明这个压缩包可能包含与字符编码转换相关的代码或资源，特别是涉及到UTF8、GBK（GB2312，通常简称为gb）、BIG5以及Delphi编程语言的字符串...
Delphi读写UTF-8、Unicode格式文本文件
最新发布
众纳百川的博客
11-28 543
【代码】Delphi读写UTF-8、Unicode格式文本文件。
delphi操作utf-8转码HTTPEncode
09-24
delphi操作utf-8转码HTTPEncode
UTF8与ansi string转换处理(DELPHI7开发）
03-13
delphi 开发的UTF8 ansistring转换动态库。 通过DELPHI与C++测试。 前面上传的资源未经过仔细验证，有问题，不好意思，重新修正上传
delphi中关于UTF-8相关函数
桂林哈秋 - 我想学编程
08-02 2920
原文：http://hi.baidu.com/qiujunnb/blog/item/82492fdd0160cddb8c1029f1.html AnsiToUtf8 functionConverts a string encoded in Ansi to UTF-8.PUCS4Chars functionConverts a UCS4 string to a null-term
delphi utf8转码
paulfzm的专栏
04-16 513
uses HTTPApp;...procedure TForm1.Button2Click(Sender: TObject);begin  Edit1.text:=HTTPEncode(UTF8Encode('明信片'));end;
Delphi 解决Utf8ToAnsi和Utf8DeCode转换编码为空的问题
xtfnpgy
06-07 9384
//delphi DecodeUtf8Str解决系统自带UTF8解码缺陷 function DecodeUtf8Str(const S: UTF8String): WideString; var lenSrc, lenDst  : Integer; begin   lenSrc  := Length(S);   if(lenSrc=0)then Exit;   lenDst  := MultiBy...
DELPHI中UTF8保存,读取
shandiantianying的专栏
05-03 1716
procedure TForm1.btn1Click(Sender: TObject); var   AfileStream:TFileStream;   Autf8Bytes:string ;   s:string; begin   AfileStream:=TFileStream.Create('c:\abc.txt',fmCreate);   try     Autf8Byt
读写UTF-8、Unicode文件
weixin_30765319的博客
11-10 114
conf配置文件一些为UTF-8和Unicode格式，这样便可良好的支持多语言，从网上查阅资料后，将读写UTF-8、Unicode文件写了几个最精简的函数，更新后加了是否写文件头的功能，以适应更多需要，注意函数未加防错保护。参数说明：f文件名、s写入或读取的文件内容、hs文件头、b是否读写文件头。UTF-8文件写入函数 代码 procedureSaveUTF(f:s...
在使用DelphiXE3和SQLite3进行程序开发时，解决最后一个字符乱码的问题
xuela-net
06-25 382
在使用DelphiXE3和SQLite3进行程序开发时，如果使用原版的SQLiteTable3，当使用UTF8Decode函数之后，可能依然存在乱码问题，一个表现就是，最后一个汉字显示为框，后面跟一个问号，其他的汉字解码正常。 后来跟踪了一下SQLiteTable3的源代码，从SQLite获取的字符串数据是正确的，但是因为TSQLiteTable的构造函数在读取SQLite返回的UTF8字符串时使...
Delphi实现Utf8和Unicode的读写操作技巧
1. **字符串类型**：Delphi中字符串类型主要有`AnsiString`（用来存储ANSI字符集，即Windows的代码页字符集），`UnicodeString`（用于存储Unicode字符），以及`UTF8String`（用于存储UTF-8编码的字符串）。...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值