盒子论坛 v2.1

    // TT := TStringStream.Create();
    idp.Get(Url,TT);
    if idp.ResponseCode = 200 then begin
       Result := TT.DataString;
       if idp.Response.CharSet = 'utf-8' then begin
          Result := '========'+UTF8ToUnicodeString(Result);
          // 我是想把utf8字符转成gbk
       end;
    end;

乱码的图片.

此帖子包含附件:

大小:5.3K

----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.

作者：

keymark (嬲)	▲▲▲△△	-
	普通会员

2018/10/30 11:23:48

1楼：

raw string
----------------------------------------------
[alias] co = clone --recurse-submodules up = submodule update --init --recursiveupd = pullinfo = statusrest = reset --hard懒鬼提速

https://www.cctry.com/>http://qalculate.github.io/downloads.html

https://www.cctry.com/

作者：

tuesdays (Tuesday)	▲▲▲▲△	-
	普通会员

2018/10/30 11:37:39

2楼：

@keymark 能详细点吗?
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.

作者：

wang_80919 (Flying Wang)	★☆☆☆☆	-
	普通会员

2018/10/30 12:28:12

3楼：

Result := '========'+UTF8ToUnicodeString(Result);
你家的 result 是万能的吗？
活该乱码。

另外，我不确定旧版本的 DELPHI 是不是支持 GBK 。
GB2312 下缺少很多字符的。
可以肯定的是所有 WINDOWS 系统都不支持 GBK，只有 UTF8 和 UNICODE 才支持这些字符。

新版本 DLEPHI 采用 936 GB2312 GBK 都无法支持 UNICODE 特殊字符。
只有 54936 也就是 GB18030 可以支持。
但是 WINDOWS 的记事本无法显示这些字符。
可能 WORD 等是支持的。
----------------------------------------------
(C)(P)Flying Wang

信息

登陆以后才能回复