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 如何将字符串中的半角字符转换为全角字符

wmi技术介绍和应用

Delphi dbnavigator1 模拟点击

Delphi ticon保存ico文件时失真的解决办法

Delphi tstringlist 保存txt文本文件最后一行不留空行

Delphi tidhttp获取软件版本信息

Delphi 安卓添加资源图片并读取

Delphi下firedac连接mysql数据库零起点

Delphi fmx jpg 保存数据库 从数据库读取

Delphi mscomm 比较完整的用法例子

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



打赏

取消

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

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

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

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

评论

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