Haruyuki Mohri

毛利春幸のブログです。

10.1 Berlin WebBroker 文字列をSJISにする

10.1 Berlin WebBroker TWebResponse

いつからなのかWebBrokerのTWebResponse.Contentを返すとUTF8になっている。

Response.Content  := '文字列'

SJISで返す簡単な方法

昔からのインターフェイスSJISを返したい場合

{Delphiの場合}
  Response.ContentStream  := TStringStream.Create('SJIS文字列', TEncoding.ANSI);
//C++Builderの場合
void __fastcall TWebModule1::WebModule1DefaultHandlerAction(TObject *Sender, TWebRequest *Request,
          TWebResponse *Response, bool &Handled)
{
    Response->ContentStream = new TStringStream("<html>"
    "<head><title>Web Server Application</title></head>"
    "<body>SJIS日本語</body>"
    "</html>", TEncoding::ANSI, False);
}

f:id:mojeld:20160619215608g:plain