Delphi REST服务器返回图像并显示在浏览器中


本文整理自网络,侵删。

 
当你使用文件流对象从Delphi的REST服务器返回图像时,它不会正常显示在浏览器中,如下例:

function TServerClass.Image: TFileStream;
begin
  Result := TFileStream.Create('pathtofile\image.png', fmOpenRead or fmShareDenyNone);
end;

这是因为Delphi REST服务器总是将返回内容的类型设置为text/html,这就导致你返回其它类型时浏览器不能加以区分,这是一个bug,因为大多数的返回内容为json,这就意味着返回内容的类型应该为applicatilon/json。所幸在服务器方法中我们可以改写返回内容的类型。
为此你需要引用"Data.DBXPlatform"单元,它包含一个名为GetInvocationMetadata的方法,它能够访问目前正在构建的返回响应对象,它返回一个TDSInvocationMetadata对象,它有一个名为ResponseContentType的属性。设置这个属性将会改写HTTP响应容的头部Content-Type的值。上面的例子可以改写为

function TServerClass.Image: TFileStream;
begin
  Result := TFileStream.Create('pathtofile\image.png', fmOpenRead or fmShareDenyNone);
  GetInvocationMetadata.ResponseContentType := 'image/png';
end;
现在,返回的图像就可以在浏览器中正常显示了。

相关阅读 >>

Delphi 不管什么日期格式转换都不会错了

Delphi 提取字符中的数字

Delphi2010中Delphi class explorer妙用

Delphi多线程文件搜索

提供文件操作 单元

Delphi for 循环 downto用法

Delphi datasnap 的http 调用返回json

Delphi利用系统时间产生随机数的函数

Delphi控件安装与删除

Delphi idwhois1 简单的用法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...