Delphi7 中文汉字转网址格式 Utf8编码转换（淘宝搜索中文转网址）

xtfnpgy

于 2016-03-09 21:51:39 发布

阅读量3.3k

点赞数

本文链接：https://blog.youkuaiyun.com/xtfnpgy/article/details/50839115

版权

本文介绍了使用Delphi实现HTTP编码(HttpEncode)与解码(HttpDecode)的方法。通过具体示例展示了如何将字符串进行编码并再将其解码回原始形式。此过程对于理解HTTP请求中的数据处理方式很有帮助。

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

function HttpEncode(S:AnsiString):string;
var
P:^Byte;
I:Cardinal;
begin
Result:='';
P:=@S[1];
Result:=Format('%%%x',[Ord(P^)]);
for I := 1 to Length(S)-1 do
begin
Inc(P);
Result:=Format('%s%%%x',[Result,Ord(P^)]);
end;
end;

function HttpDecode(str:AnsiString): 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 TuMain.btnStartClick(Sender: TObject);
var
i :integer;
s: string;
begin
s:='衣服';
s:=HttpEncode(AnsiToUtf8(s));
showmessage(s); //显示 %E8%A1%A3%E6%9C%8D
s := HttpDecode(s);
showmessage(s);
end;