上次写了b4a 通过xmlrpc 访问rtc 的远程服务，有网友询问如何通过b4a 访问RTC web 的二进制流，例如如何下载

服务器上的照片，其实访问二进制流和访问字符串类似，不同的地方是，由于是通过http 协议，对于二进制流，需要先转换成

base64 编码，到客户端后再再把base64 转换回去成二进制码，就可以了。(注：由于RTC 的bug,需要RTC 6.08 以上的版本)

   RTC服务器端的代码如下：

procedure TForm1.RtcFunction3Execute(Sender: TRtcConnection;  Param: TRtcFunctionInfo; Result: TRtcValue);  varmys: TRtcFileStream;  ss:Trtchugestring;  r:Trtcvalue;  s:string;begin   r:=Trtcvalue.Create;   mys:=TRtcFileStream.Create();   mys.Open('d:\test.jpg');   s:= RtcBytesToString( Mime_EncodeEx(mys.Readex(-1),True) ); // 读文件并转换成base64   result.asstring:=s;end;

 Basci4android 里面的代码也很简单：

Sub button2_Click  	 	Dim out As OutputStream	Dim b As Base64    	Dim bb () As Byte	s=XMLRPC1.stringCall("getimg",x)	bb=b.DecodeStob(s) ' 转换回去	out = File.OpenOutput(File.DirRootExternal, "test.jpg", False)	out.WriteBytes(bb,0,bb.Length)	ImageView1.Bitmap=LoadBitmap (File.DirRootExternal, "test.jpg")	 	 End Sub

 服务器和客户端都运行起来，就可以在android 上显示服务器上的照片了

ok.显示正常

2013年7月18日 补记：

上面使用存储卡转换了一下，如果没有存储卡就无法跑了，现在直接在内存中转换

 

Sub button2_Click  	Dim s    As String  	Dim b As Base64    	Dim bb () As Byte	 	Dim Bitmap1 As Bitmap 	Dim IpSt As InputStream		s=XMLRPC1.stringCall("getimg",x)         bb=b.DecodeStob(s) ' 转换回去 	       IpSt.InitializeFromBytesArray(bb, 0, bb.Length)       Bitmap1.Initialize2(IpSt)       ImageView1.Bitmap = Bitmap1		End Sub