使用delphi 开发多层应用（十八）使用Basic4android 访问RTC 服务的二进制流(照片)

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

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

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

   RTC服务器端的代码如下：

procedure TForm1.RtcFunction3Execute(Sender: TRtcConnection;
  Param: TRtcFunctionInfo; Result: TRtcValue);
  var
mys: 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