Delphi Xe DataSnap Rest + Flex 开发 基本探索6(flex 前台 Post 字节流 参数)

在看本文章前请 参考前面的文章

这篇文章 介绍 flex 如何 在调用delphi datasnap 的Rest服务过程中以 大量的数据为参数 (字节流 )

该方法 在网络上 基本没有资料,废掉了我无数的脑细胞啊,再次 bs emb 帮助太操蛋了

首先 大量的数据不能通过前面的方式 直接写在Rest 地址的后面.

我用了http post 方法

效果如下

这是flex 前台传输到后代的 字节码,后台代码如下

function TSMTest.updateSetBytes(stream:TJSONObject): string;
var
  i:integer;
begin

  FrmMain.Memo1.Lines.Add('jsonValue:'+(stream.ToString));
end;

主要 是参数为Tjsonobject

前台 主要是传输了一个 jpg的图片

前台代码如下

var fileReference:FileReference = new FileReference();  
			protected function btnUpLoad_clickHandler(event:MouseEvent):void
			{
				
			
		    fileReference.addEventListener(Event.SELECT, onSelect);   
			fileReference.addEventListener(Event.COMPLETE,onComplete);  
			//urlRequest = new URLRequest("http://localhost:8666/Ashx/FileHandler.ashx");
			
			browse();
			}
			
			private function onSelect(evt:Event):void{  
				labstate.text="文件:"+fileReference.name+"      "+"大小:"+fileReference.size+"字节";  
				fileReference.load();  
			}  
			private function onComplete(evt:Event):void{  
				imgUpload.source=fileReference.data; 				
				var read :ReadDataFromServer = new ReadDataFromServer();
				read.onLoadComplete = onBytesParam;
				
				var barr:ByteArray= fileReference.data;
				
				barr.position =0;
				var  arr:Array = new Array();
				for(var i:int=0;i<barr.length;i++){				   
					arr.push(barr.readUnsignedByte());				
				}
				var ubArr:ByteArray = new ByteArray();
				for( i=0;i<arr.length;i++){				   
					ubArr.writeUnsignedInt(arr[i]);				
				}
				 
                				
				var str :String ='{"Array":['+ JSON.encode(arr)+"]}";			
				read.PostJson('datasnap/rest/TSMTest/SetBytes',str);	
				///
				
			}  
			public function onBytesParam(e:Event):void{
			
			
			
			}
			private function browse():void{  
				var imageTypes:FileFilter = new FileFilter("图片 (*.jpg, *.jpeg, *.gif, *.png)", "*.jpg; *.jpeg; *.gif; *.png");  
				var allTypes:Array = new Array(imageTypes);  
				try  
				{  
					fileReference.browse(allTypes);  
				}  
				catch(e:Error)  
				{  
					Alert.show(e.message+"&&"+e.getStackTrace());  
				}  
			}  

注意

'datasnap/rest/TSMTest/SetBytes'

这个方法,后台必须 在方法名 加上 update 这个头,不知道为什么....

哎摸索上面的方法,真是不容易啊,,再次bs emb 为啥 资料不搞详细点,李维老师的 datasnap 实战 的书籍 中的介绍也 感觉很粗糙......希望李老师能再出几本精品的书籍啊.....