Delphi Xe DataSnap Rest + Flex 开发 基本探索4(返回字节流 stream)

在看本文章前,请参考前面的 部分代码和介绍

从后台取字节流 stream 返回到前台 应该是一个比较重要的数据交互过程,比如前台需要从后台加载一个图片

后台代码

function TSMTest.GetStream: TStream;
var
  fstream:TmemoryStream;
  buf:TByteArray;
  I: Integer;
begin
   stream:=TFileStream.Create('browser.png',fmOpenRead);//后台的一个图片
   fstream := Tmemorystream.Create;
   fstream.LoadFromStream(stream);
  //stream := fstream;
  result := fstream;
end;

前台的效果图

(md 图片上传不了)

前台代码

 private var stream:URLStream = new URLStream();  
		    private var bytes:ByteArray  = new ByteArray();
			protected function btnstream_clickHandler(event:MouseEvent):void
			{
				var downLoadURL:URLRequest = new URLRequest();  
				downLoadURL.url = "http://localhost:8080/datasnap/rest/TSMTest/GetStream";  
				stream.addEventListener(Event.COMPLETE, onLoadComplete);  
				stream.load(downLoadURL); 
			}
			public function onLoadComplete(event:Event):void{
			
				if (stream.connected)  
				{  
					var b:int;  
					try {  
						do {  
							b = stream.readByte();  
							bytes.writeByte(b);  
						} while (true);  
					} catch (e:EOFError) {  
						//Alert.show(bytes.length.toString());  
					}  
				}  
				var bmp:Loader = new Loader();  
				bmp.loadBytes(bytes);  
				
			//	bmp.width = imgpng.width;
			//	bmp.height= imgpng.height;
				imgpng.addChild(bmp);  
			}

注意这里我是直接返回的delphi的Tstream类  实际上 可以返回 TJsonArray 对象

function TSMTest.GetJsonStream: TJSONArray;
var
  fstream:TFileStream;
  I: Integer;
  Mar: TJSONMarshal; //序列化对象
  jsonobj:TJSONObject;
begin
  fstream:=TFileStream.Create('browser.png',fmOpenRead);
  result := TDBXJSONTools.StreamToJSON(fstream,0,fstream.Size);
  fstream.Free;
end;

这种方式我觉得更好一下 要用到

TDBXJSONTools

工具类 该类在 DBXJSONCommon单元文件中