從Delphi REST服務(wù)器返回圖像并顯示在瀏覽器中

quasiceo 2017-06-15

展開全文

從Delphi REST服務(wù)器返回圖像并顯示在瀏覽器中

2014-05-06 22:46 1521人閱讀評論(0) 收藏舉報

分類：

Delphi（136）

當(dāng)你使用文件流對象從Delphi的REST服務(wù)器返回圖像時，它不會正常顯示在瀏覽器中，如下例：

[delphi] view
 plaincopy

function TServerClass.Image: TFileStream;  

begin  

  Result := TFileStream.Create('pathtofile\image.png', fmOpenRead or fmShareDenyNone);  

end;

這是因為Delphi REST服務(wù)器總是將返回內(nèi)容的類型設(shè)置為text/html，這就導(dǎo)致你返回其它類型時瀏覽器不能加以區(qū)分，這是一個bug，因為大多數(shù)的返回內(nèi)容為json，這就意味著返回內(nèi)容的類型應(yīng)該為applicatilon/json。所幸在服務(wù)器方法中我們可以改寫返回內(nèi)容的類型。

為此你需要引用"Data.DBXPlatform"單元，它包含一個名為GetInvocationMetadata的方法，它能夠訪問目前正在構(gòu)建的返回響應(yīng)對象，它返回一個TDSInvocationMetadata對象，它有一個名為ResponseContentType的屬性。設(shè)置這個屬性將會改寫HTTP響應(yīng)容的頭部Content-Type的值。上面的例子可以改寫為

[delphi] view
 plaincopy

function TServerClass.Image: TFileStream;  

begin  

  Result := TFileStream.Create('pathtofile\image.png', fmOpenRead or fmShareDenyNone);  

  GetInvocationMetadata.ResponseContentType := 'image/png';  

end;