文章/答案/技术大牛

发布

社区首页 >问答首页 >在Delphi中将非ASCII字符输入到WebBroker响应中

问在Delphi中将非ASCII字符输入到WebBroker响应中
EN

Stack Overflow用户

提问于 2015-03-16 01:15:55

回答 1查看 1.9K关注 0票数 2

我有一个包含nvarchar数据的MS数据库，特别是一个包含"★ABC★“的数据字段。我的Delphi桌面应用程序可以很好地显示它，但是使用WebBroker XE4中使用TDataSetTableProducer生成响应的XE4应用程序中的相同数据不起作用。下面是最基本的示例代码：

procedure TWebModule1.WebModule1TestAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Response.ContentEncoding := 'text/plain; charset="UTF-8"';
  Response.Content := '<!DOCTYPE html>'
  + '<html>'
  + '<body>'
  + '<p> ★ABC★ </p>'
  + '</body>'
  + '</html>'
end;

当在web浏览器中查看时，结果是"?ABC?“。我尝试过很多事情(包括UTF-16和用Char($FEFF)作为响应的前缀)，但是没有什么帮助。怎么做才是对的？

delphi-xe4

webbroker

delphi

utf-8

回答 1

Stack Overflow用户

回答已采纳

发布于 2015-03-16 06:10:41

'text/plain; charset="UTF-8"'不是Response.ContentEncoding属性的有效值。您需要将它放在Response.ContentType属性中。而且，它应该使用text/html而不是text/plain。

Response.ContentType := 'text/html; charset="UTF-8"';

如果浏览器仍然无法正确显示数据，则可能必须使用Response.ContentStream属性而不是Response.Content属性，因此可以自己对UTF-8数据进行编码：

procedure TWebModule1.WebModule1TestAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Response.ContentType := 'text/html; charset="UTF-8"';
  Response.ContentStream := TStringStream.Create(
    '<!DOCTYPE html>'
    + '<html>'
    + '<body>'
    + '<p> ★ABC★ </p>'
    + '</body>'
    + '</html>',
    TEncoding.UTF8);
end;

票数 6

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/29068253

复制

相似问题

问在Delphi中将非ASCII字符输入到WebBroker响应中
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在Delphi中将非ASCII字符输入到WebBroker响应中EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在Delphi中将非ASCII字符输入到WebBroker响应中
EN