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;

  • 1
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi7是一种编程语言,在此语言,可以使用IDHTTPServer和IDHTTP来进行数据传输。下列是一个示例: 使用IDHTTPServer,我们可以编写一个简单的HTTP服务器,并监听特定的端口。当客户端连接到该端口时,服务器将收到相应的请求。以下是一个例子: 1、使用TIdHTTPServer组件做一个简单的HTTP服务器。 2、在"DefaultPort"属性指定端口在这里我们为80。 3、在"OnCommandGet"事件处理请求。 这里,我们可以选择处理GET或POST请求,并从请求获取传递的数据。以下是一个简单的例子: procedure TForm1.IdHTTPServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); var s: string; begin if ARequestInfo.Command = 'GET' then begin s := ARequestInfo.Params.Values['Data']; //获取传递的参数 AResponseInfo.ContentText := 'Your data is: ' + s; AResponseInfo.ResponseNo := 200; //设置响应状态 end; end; 使用IDHTTP,我们可以发送HTTP请求,并在响应获取数据。以下是一个简单的例子: 1、使用TIdHTTP组件发送一个HTTP请求。 2、在"Post"方法,可以使用TStrings对象来传递数据。 3、从响应读取数据。 以下是一个例子: procedure TForm1.Button1Click(Sender: TObject); var IdHTTP: TIdHTTP; Params: TStrings; Response: string; begin IdHTTP := TIdHTTP.Create; Params := TStringList.Create; try Params.Values['Data'] := 'Hello, world!'; //设置传递的参数 Response := IdHTTP.Post('http://localhost:80/', Params); //发送请求 ShowMessage(Response); //显示响应 finally Params.Free; IdHTTP.Free; end; end; 通过以上示例,我们可以看到,使用Delphi7IDHTTPServer和IDHTTP可以非常简单地进行数据传输,无论是从客户端向服务端传递数据,还是从服务端向客户端传递数据,都可以快速实现。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值