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;

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

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