Sub sendPhoto(filename As String,claveSolicitud As Int,claveFoto As Int)
Dim lstData As List
Dim data As JSONGenerator
Dim out As OutputStream
lstData.Initialize
out.InitializeToBytesArray(100) 'size not really important
File.Copy2(File.OpenInput(filename, ""), out)
lstData.Initialize2(out.ToBytesArray)
data.Initialize2(lstData)
RESTcomm.ExecuteRPCRequestJson("PhotoServicio",Me,Array As String(claveSolicitud,claveFoto),data.ToString)
End Sub