Problema con inkPicture control
Soy nuevo en TodoExpertos,
Hice una pregunta pero creo que no la tiene asignada ningún experto, por eso te la formulo directamente por aquí.
Trabajo con PB 10.5
Estoy intentando cargar una imagen en un inkPicture control desde
una variable blob, para lo cual uso la función LoadPicture(). El asunto
es que no funciona, no se ve la imagen en el control.
He visto la ayuda de PB y he probado llamar al LoadPicture con un
argumento string con el path completo de mi imagen y esta vez si que
funciona, pero no es lo que me interesa, ya que lo que quiero es
mostrar el contenido de mi variable blob sin usar archivos temporales.
El código de prueba es el siguiente:
---------------------------------------------
Esto NO funciona (basado en ejemplo de PB) :
string ls_inkpath
integer li_filenum
integer li_size
blob lblb_ink
ls_inkpath = "C:\temp\ejemplo.jpg"
li_filenum = FileOpen(ls_inkpath, StreamMode!)
If li_filenum <> -1 Then
li_size = FileRead(li_filenum, lblb_ink)
FileClose(li_filenum)
ip_1.LoadPicture(lblb_ink)
End If
---------------------------------------------
Esto SI funciona:
string ls_inkpath
ls_inkpath = "C:\temp\ejemplo.jpg"
ip_1.LoadPicture(ls_inkpath)
---------------------------------------------
¿Podrías probar esto y ver si a ti te funciona correctamente?
O en todo caso, ¿ves en donde está mi error?
Es que pienso que estoy haciéndolo tal cual el ejemplo de PB, pero no funciona.
El archivo ejemplo.jpg es pequeño y solo ocupa 13kb
Hice una pregunta pero creo que no la tiene asignada ningún experto, por eso te la formulo directamente por aquí.
Trabajo con PB 10.5
Estoy intentando cargar una imagen en un inkPicture control desde
una variable blob, para lo cual uso la función LoadPicture(). El asunto
es que no funciona, no se ve la imagen en el control.
He visto la ayuda de PB y he probado llamar al LoadPicture con un
argumento string con el path completo de mi imagen y esta vez si que
funciona, pero no es lo que me interesa, ya que lo que quiero es
mostrar el contenido de mi variable blob sin usar archivos temporales.
El código de prueba es el siguiente:
---------------------------------------------
Esto NO funciona (basado en ejemplo de PB) :
string ls_inkpath
integer li_filenum
integer li_size
blob lblb_ink
ls_inkpath = "C:\temp\ejemplo.jpg"
li_filenum = FileOpen(ls_inkpath, StreamMode!)
If li_filenum <> -1 Then
li_size = FileRead(li_filenum, lblb_ink)
FileClose(li_filenum)
ip_1.LoadPicture(lblb_ink)
End If
---------------------------------------------
Esto SI funciona:
string ls_inkpath
ls_inkpath = "C:\temp\ejemplo.jpg"
ip_1.LoadPicture(ls_inkpath)
---------------------------------------------
¿Podrías probar esto y ver si a ti te funciona correctamente?
O en todo caso, ¿ves en donde está mi error?
Es que pienso que estoy haciéndolo tal cual el ejemplo de PB, pero no funciona.
El archivo ejemplo.jpg es pequeño y solo ocupa 13kb
1 respuesta
Respuesta de carloscharly
1