delphi 将字符串转换成 UTF8 编码的函数


本文整理自网络,侵删。

 这种转换一般用于网页地址; 我不知道 Delphi 是不是有现成的函数, 用到了就写了一个. 
--------------------------------------------------------------------------------


//函数:
function ToUTF8Encode(str: string): string;
var
b: Byte;
begin
for b in BytesOf(UTF8Encode(str)) do
Result := Format('%s%%%.2x', [Result, b]);
end;

//测试:
var
str: string;
begin
str := '万一';
str := ToUTF8Encode(str);
ShowMessage(str); //%E4%B8%87%E4%B8%80
end;
--------------------------------------------------------------------------------

为 "小月124" 写了个反向函数:
--------------------------------------------------------------------------------

function ToUTF8Decode(const str: string): string;
var
List: TStrings;
tmpStr: AnsiString;
i: Integer;
begin
List := TStringList.Create;
ExtractStrings(['%'], ['%'], PChar(str), List);
SetLength(tmpStr, List.Count);
for i := 0 to List.Count - 1 do
Byte(tmpStr[i+1]) := StrToInt('$' + List[i]);
List.Free;
Result := UTF8Decode(tmpStr);
end;

{ 调用测试 }
procedure TForm1.FormCreate(Sender: TObject);
var
s1: AnsiString;
s2: WideString;
begin
s1 := '%E4%B8%87%E4%B8%80';
s2 := ToUTF8Decode(s1);
ShowMessage(s2); { 万一 }
end;

相关阅读 >>

Delphi datasnap stream 传递大数据

Delphi从内存(memorystream)使用wmp

Delphi文件 fileopen 、fileseek等的用法(看红色字体)

Delphi 获取android package name:

Delphi 判断字符串是否为纯数字组合

idhttp相关:伪造来源地址、cookie欺骗、通过代理访问

Delphi 磁盘类型 getdrivetype

相对完整的多线程idhttp文件下载代码

Delphi stringgrid 实例2:1、获取 stringgrid 的行数、列数; 2、给单元赋值

Delphi xe, xe10, 创建 activeform 和 activex 工程的方法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...