Delphi CGI程序输出的网页内容中文乱码

最新推荐文章于 2021-06-18 17:02:26 发布

superfireware

最新推荐文章于 2021-06-18 17:02:26 发布

阅读量1.3k

点赞数

分类专栏： Delphi 文章标签： delphi CGI 乱码

本文链接：https://blog.youkuaiyun.com/superfireware/article/details/8969897

版权

Delphi 专栏收录该内容

8 篇文章

订阅专栏

本文提供了ANSI编码转换为UTF-8编码的Delphi函数实现，包括AnsiToUtf8函数的具体源码。此外，还展示了如何在Delphi中使用相关函数进行字符串编码的转换。

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

用AnsiToUtf8这个函数就OK了，相关源码如下：

function Utf8Encode(const WS: WideString): UTF8String;
var
  L: Integer;
  Temp: UTF8String;
begin
  Result := '';
  if WS = '' then Exit;
  SetLength(Temp, Length(WS) * 3); // SetLength includes space for null terminator

  L := UnicodeToUtf8(PChar(Temp), Length(Temp)+1, PWideChar(WS), Length(WS));
  if L > 0 then
    SetLength(Temp, L-1)
  else
    Temp := '';
  Result := Temp;
end;

function Utf8Decode(const S: UTF8String): WideString;
var
  L: Integer;
  Temp: WideString;
begin
  Result := '';
  if S = '' then Exit;
  SetLength(Temp, Length(S));

  L := Utf8ToUnicode(PWideChar(Temp), Length(Temp)+1, PChar(S), Length(S));
  if L > 0 then
    SetLength(Temp, L-1)
  else
    Temp := '';
  Result := Temp;
end;

function AnsiToUtf8(const S: string): UTF8String;
begin
  Result := Utf8Encode(S);
end;

function Utf8ToAnsi(const S: UTF8String): string;
begin
  Result := Utf8Decode(S);
end;