本程序和网上的说法不同，在D7下执行通过
先看一个例子
procedure TForm1.Button1Click(Sender: TObject);
var Response2: TStringStream;
S : string;//注意必须是string ,网上说的widestring 执行空白
begin
IdHTTP1.HandleRedirects:=true;
Response2 := TStringStream.Create('');
idhttp1.Head(edit1.text);
idhttp1.Request.ContentType := 'application/x-www-form-urlencoded';
idhttp1.Get(edit1.text,Response2);
S:=Response2.DataString;
S := Utf8ToAnsi(S);
TNTMemo1.lines.Text:= S;
Response2.Free;
end;
其中的 utf8 是一种常用的 unicode 编码方式,在目前的网络环境中应用最广,特别是在java,xml这种国际化很强的地方.delphi并不支持原生的utf8字符串,它对 unicode 的支持则是非常好了.将普通字符串赋值给 String 类型即可.而对 uft8 则要用到上面所说的Utf8ToAnsi 等转换函数.好在这些函数都很容易使用,只是大家在使用时要注意自己当前操作的字符串是什么类型就行了.类似的函数还有
AnsiToUtf8
UTF8Decode
Utf8ToAnsi
UTF8Decode
UTF8Encode
============================
procedure TForm1.BtnClick(Sender: TObject);
var S : widestring; //用string会导致信息丢失, TNTMemo1会出现部分？
begin
S := IdHTTP.Get('http://www.pc6.com/');
S := UTF8Decode(S); //利用了UTF-8编码，必须要这句话才行！
Memo1.Lines.Text := S; //有一些?
TNTMemo1.Lines.Text := S; //完全显示正确
end;
相关视频
相关阅读 dedecms gbk转换UTF-8同版本详细教程dnf普雷raid隐藏剧情 dnf普雷隐藏剧情介绍dnf普雷怪物机制介绍 dnf普雷raid怪物机制dnf普雷raid攻略 dnf普雷raid打法介绍MORDHAU怎么刺伤攻击 MORDHAU刺伤攻击技巧MORDHAU怎么踢人 MORDHAU控制台踢人代码MORDHAU分辨率怎么改 MORDHAU分辨率修改教程MORDHAU怎么切换视角 MORDHAU视角切换方法
热门文章 没有查询到任何记录。
最新文章
PHP入门教程书籍介绍
用可牛为MM无痛纹身刺
编译apache的rewrite模块实例Apache中URL Rewrite技术实现方式在PHP中有urldecode()等函数来解决网页URL编PHP中的mb_convert_encoding转换编码与icon
人气排行 在PHP中有urldecode()等函数来解决网页URL编dede 完美分页效果！ pagelist修改，实现门PHP入门教程书籍介绍用IdHTTP获取UTF-8编码的网页apache泛域名解析+泛域名指向处理文件ThinkTemplate模板引擎的设计和使用方法如何用php将任何格式视频转为flv破解防盗链图片的php函数
查看所有0条评论>>