Delphi7中idhttp和superobject获取网页中文乱码解决办法

Delphi7及其以下版本的 VCL 只支持 Ansi,

所以在使用WideString 与 UTF8String (定义与 AnsiString 相同) 并没有办法正确的在 VCL 中显示

Delphi7自带的utf-8转换函数遇到其无法识别的字符串就返回空。

新建一个util_utf8.pas,然后引用这个转换函数可以解决这个bug

unit util_utf8;

interface

uses Windows;

type

UTF8String = AnsiString;

function AnsiToWide(const S: AnsiString): WideString;

function WideToUTF8(const WS: WideString): UTF8String;

function AnsiToUTF8(const S: AnsiString): UTF8String;

function UTF8ToWide(const US: UTF8String): WideString;

function WideToAnsi(const WS: WideString): AnsiString;

function UTF8ToAnsi(const S: UTF8String): AnsiString;

implementation

function AnsiToWide(const S: AnsiString): WideString;

var

len: integer;

ws: WideString;

begin

Result:='';

if (Length(S) = 0) then

exit;

len:=MultiByteToWideChar(CP_ACP, 0, PChar(s), -1, nil, 0);

SetLength(ws, len);

MultiByteToWideChar(CP_ACP, 0, PChar(s), -1, PWideChar(ws), len);

Result:=ws;

end;

function WideToUTF8(const WS: WideString): UTF8String;

var

len: integer;

us: UTF8String;

begin

Result:='';

if (Length(WS) = 0) then

exit;

len:=WideCharToMultiByte(CP_UTF8, 0, PWideChar(WS), -1, nil, 0, nil, nil);

SetLength(us, len);

WideCharToMultiByte(CP_UTF8, 0, PWideChar(WS), -1, PChar(us), len, nil, nil);

Result:=us;

end;

function AnsiToUTF8(const S: AnsiString): UTF8String;

begin

Result:=WideToUTF8(AnsiToWide(S));

end;

function UTF8ToWide(const US: UTF8String): WideString;

var

len: integer;

ws: WideString;

begin

Result:='';

if (Length(US) = 0) then

exit;

len:=MultiByteToWideChar(CP_UTF8, 0, PChar(US), -1, nil, 0);

SetLength(ws, len);

MultiByteToWideChar(CP_UTF8, 0, PChar(US), -1, PWideChar(ws), len);

Result:=ws;

end;

function WideToAnsi(const WS: WideString): AnsiString;

var

len: integer;

s: AnsiString;

begin

Result:='';

if (Length(WS) = 0) then

exit;

len:=WideCharToMultiByte(CP_ACP, 0, PWideChar(WS), -1, nil, 0, nil, nil);

SetLength(s, len);

WideCharToMultiByte(CP_ACP, 0, PWideChar(WS), -1, PChar(s), len, nil, nil);

Result:=s;

end;

function UTF8ToAnsi(const S: UTF8String): AnsiString;

begin

Result:=WideToAnsi(UTF8ToWide(S));

end;

end.

//*************************//**************************

//以上是一个文件，保存后引用。

//*************************//**************************

uses superobject, util_utf8;

procedure TForm1.Timer1Timer(Sender: TObject);
var
idHttp: TIdHTTP;
get_back,tmp1,tmp2:string;
jRet: ISuperObject;
strm: TStringStream;
begin
   strm := TStringStream.Create('');
   try
      idHttp := TIdHTTP.Create(nil);
      IdHTTP1.Get(self.Edit1.Text, strm);
      get_back:=UTF8ToAnsi(strm.DataString);
      idHttp.Disconnect;
      idHttp.Free;
finally
    strm.Free;
end;
jRet:=TSuperObject.Create(stObject);
jRet := SO(copy(get_back,8,Length(get_back)-9));
tmp1:= jRet.O['gszzl'].AsString();
self.Label2.Caption :=jRet.O['name'].AsString()+':'+tmp1;
end;

Delphi7中idhttp和superobject获取网页中文乱码解决办法相关推荐

linux调用odbc接口乱码,linux中pypyodbc读取GB编码mdb中文乱码解决办法
当前1.3.3版本的pypyodbc在linux系统上面已经可以读取有中文字符的mdb文件,不再出现异常,但是读取的中文字符却全是乱码. 下面是根据一些现象的合理推论: mdb文件来自于windows ...
php接受get参数乱码,如何解决php get 参数乱码问题,php中文乱码解决办法
如何解决php get 参数乱码问题如何解决php参数乱码的问题,乱码php获取参数的解决方案:1.使用"iconv ('GB 2312 ',' UTF-8 ',$龚辉):"解决乱 ...
Qt中文乱码解决办法
目录一.解决方法: 1. QT4版本 2. QT5版本二.QString 为什么会乱码呢三.tr的使用一.解决方法: 1. QT4版本中文乱码解决办法是在main.cpp文件加入: #inc ...
php7 中文乱码_PHP 中文乱码解决办法总结分析
PHP 中文乱码解决办法总结分析更新时间:2009年07月30日 01:19:43 作者: 总之一句话,要解决PHP中文乱码最好最快的解决办法就是,页面申明的编码与数据库内部编码一致,如果页面申 ...
NetBeans中文乱码解决办法
首先来看看网上的一篇文章:http://it.dengchao.org/neatbeans-problem-fedora/linux/ 在Windows和Linux(Fedora/Ubuntu/Red ...
java控制台打印输出中文乱码解决办法
java控制台打印输出中文乱码解决办法问题:IDEA控制台打印时出现中文乱码原因:java资源的编码和ideal的不一致解决办法: 第一步 1:打开intelliidea安装路径,Intel ...
mysql数据库中文乱码_数据库 MySQL中文乱码解决办法总结
MySQL中文乱码解决办法前言: MySQL是我们项目中非常常用的数据型数据库.但是因为我们需要在数据库保存中文字符,所以经常遇到数据库乱码情况.下面就来介绍一下如何彻底解决数据库中文乱码情况. 1 ...
pycharm 运行控制台中文乱码解决办法
pycharm 运行控制台中文乱码解决办法
navicat for mysql 显示中文乱码解决办法
navicat for mysql 显示中文乱码解决办法最近遇到一个问题,用navicat for mysql 打开数据库时全都显示的是乱码(在用程序代码插入数据之前确保字符不是乱码),遇到问题 ...
windows下git bash中文乱码解决办法
一.解决办法1:(直接上图) 1.在git bash下,右键出现下图,选择options: 2.选择"Text" 3.将"Character set"设置为 ...

Delphi7中idhttp和superobject获取网页中文乱码解决办法

Delphi7中idhttp和superobject获取网页中文乱码解决办法相关推荐

最新文章

热门文章