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

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

2014-05-06 22:46  1521人阅读  评论(0)  收藏  举报

  分类：

 

Delphi（136） 

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

[delphi]  view plain  copy

 

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

这是因为Delphi REST服务器总是将返回内容的类型设置为text/html，这就导致你返回其它类型时浏览器不能加以区分，这是一个bug，因为大多数的返回内容为json，这就意味着返回内容的类型应该为applicatilon/json。所幸在服务器方法中我们可以改写返回内容的类型。

为此你需要引用"Data.DBXPlatform"单元，它包含一个名为GetInvocationMetadata的方法，它能够访问目前正在构建的返回响应对象，它返回一个TDSInvocationMetadata对象，它有一个名为ResponseContentType的属性。设置这个属性将会改写HTTP响应容的头部Content-Type的值。上面的例子可以改写为

[delphi]  view plain  copy

 

1. function TServerClass.Image: TFileStream;  
2. begin  
3.   Result := TFileStream.Create('pathtofile\image.png', fmOpenRead or fmShareDenyNone);  
4.   GetInvocationMetadata.ResponseContentType := 'image/png';  
5. end;  

现在，返回的图像就可以在浏览器中正常显示了。

http://stackoverflow.com/questions/13879238/return-an-image-from-a-delphi-rest-server-and-show-it-in-a-browser/13879240#13879240