REST Server返回圖片流

假設REST Server後端有一個圖片在不斷的變化，想提供一個函數返回圖片流，讓ASP.Net定時重新整理。

REST Server用Delphi XE寫：

function TRemoteDiagnose.GetViewPictureStream3(ASeesionID: string): TStream;<br />begin<br /> Result:=TMemoryStream.Create;<br /> try<br /> Inc(g_Index);<br /> if (g_Index mod 2)=0 then<br /> TMemoryStream(Result).LoadFromFile('C:/3S.png')<br /> else<br /> TMemoryStream(Result).LoadFromFile('C:/delphi-prism-mainlogo.png')<br /> except<br /> FreeAndNil(Result);<br /> Raise;<br /> end;<br />end;</p><p>

 

ASP.Net如何顯示呢？

先說說Visual Studio 2010，不知道以前的版本如何，這個東西真是吃記憶體的大老虎，我windows7下4G記憶體，工作了半天后，就會出現記憶體不足，按個Ctrl+C就會出現：

看記憶體使用量量就3.8G了。

 

為了避免整個重新整理頁面，需要使用AJAX。

假設Web Form上有一個WebControls.Image元件，把它的ImageURL設為MyImage.aspx，MyImage.aspx的內容為：

用Delphi Prism寫：

namespace;</p><p>interface</p><p>uses<br /> System,<br /> System.Data,<br /> System.Configuration,<br /> System.Web,<br /> System.Web.Security,<br /> System.Web.SessionState,<br /> System.Web.UI,<br /> System.Web.UI.WebControls,<br /> System.Web.UI.WebControls.WebParts,<br /> System.Web.UI.HtmlControls;</p><p>type<br /> MyImage = public partial class(System.Web.UI.Page)<br /> protected<br /> method Page_Load(sender: Object; e: EventArgs);<br /> end;</p><p>implementation</p><p>method MyImage.Page_Load(sender: Object; e: EventArgs);<br />var<br /> MS:System.IO.MemoryStream;<br /> O:TmyResult;<br /> S:string;<br /> vURL:string;<br /> vHC:RemObjects.InternetPack.Http.HttpClient;<br /> vBytes:array of Byte;<br /> vImage:Image;<br /> vBmp:System.Drawing.Bitmap;<br /> FS:System.IO.FileStream;<br /> vFileName:String;<br />begin<br /> //用Localhost不行？？！！<br /> vURL:='http://192.168.10.41:8082/REST/RESTServer.dll/datasnap/rest/TRemoteDiagnose/GetViewPictureStream3/';<br /> vURL:=vURL+system.Uri.EscapeDataString(Session.SessionID);<br /> vHC:=new RemObjects.InternetPack.Http.HttpClient();<br /> vBytes:=vHC.GetBytes(vURL);<br /> //直接輸出映像<br /> Response.ClearContent();<br /> Response.ContentType:= 'image/png';<br /> Response.BinaryWrite(vBytes);<br />end;</p><p>end.<br />

AJAX的Timer的Tick事件：

var<br /> g_Index:integer:=0;<br />method _Default.Timer1_Tick(sender: System.Object; e: System.EventArgs);<br />begin<br /> inc(g_ParamIndex);<br /> Image1.ImageUrl:='MyImage.aspx?a='+g_ParamIndex.ToString();<br />end;<br />

這裡有個技巧，就是在給Image1.ImageUrl賦值時，如果值不變，Image不會重新整理，所以給它一個每次都不一樣的參數，讓它認為變了。

 

但是這個效果還是不太滿意。每次重新整理時，有兩個地方不好：

1、狀態列會出現Image的URL，然後小時，進度條也會出現；

2、滑鼠會變成沙漏；

 

需要用Server Push的方法才能解決嗎？Image如何給它賦值一個Byte流？