tengo una rutina a la que le paso una cadena base64 procedente de un archivo PDF que recibo mediante un webservice.
La cadena base64 se recompone a binario y la salvo a la memoria externa con la extensión PDF. Todo funciona bien, pues puedo abrir el pdf mediante el PDF Reader. El problema lo tengo en que cuando el programa activa automáticamente al Reader me da un error de que no puede leer el archivo.
Sub cBase64 ( str As String)
Dim B64 As Base64
Dim outs As OutputStream
Dim i As Intent
Dim ss As String
outs = File.OpenOutput(File.DirDefaultExternal, "dataP.pdf", False)
outs.WriteBytes(B64.DecodeStoB( str ) , 0 , B64.DecodeStoB( str ).Length )
ss = File.Combine(File.DirDefaultExternal,"dataP.pdf")
i.Initialize(i.ACTION_VIEW, ss)
i.SetType("application/pdf")
i.WrapAsIntentChooser("Escoja el visor PDF")
StartActivity(i)
End Sub
:BangHead:
La cadena base64 se recompone a binario y la salvo a la memoria externa con la extensión PDF. Todo funciona bien, pues puedo abrir el pdf mediante el PDF Reader. El problema lo tengo en que cuando el programa activa automáticamente al Reader me da un error de que no puede leer el archivo.
Sub cBase64 ( str As String)
Dim B64 As Base64
Dim outs As OutputStream
Dim i As Intent
Dim ss As String
outs = File.OpenOutput(File.DirDefaultExternal, "dataP.pdf", False)
outs.WriteBytes(B64.DecodeStoB( str ) , 0 , B64.DecodeStoB( str ).Length )
ss = File.Combine(File.DirDefaultExternal,"dataP.pdf")
i.Initialize(i.ACTION_VIEW, ss)
i.SetType("application/pdf")
i.WrapAsIntentChooser("Escoja el visor PDF")
StartActivity(i)
End Sub
:BangHead:
