Foto en Power Builder
Publicado por JESUS BARRAGAN VESGA (1 intervención) el 07/08/2008 00:27:25
Hola agradeceria su colaboracion, soy nuevo en power builder elaboro el siguiente codigo para cargar la imagen y no me la refresca en la ventana, el picture esta sobre una ventana no sobre un datawindow, que debo de hacer..
string ls_pathname,ls_filename,ls_filtro,ls_cod_alumno
long ll_file
blob lbl_data,lbl_temp
ls_filtro="JPEG Files(*.jpg),*.jpg"
if GetFileOpenName("Archivo de imagen: ",ls_pathname,ls_filename,"jpg",ls_filtro)=-1 then
messagebox("MENSAJE DEL SISTEMA","ERROR")
else
p_foto.picturename=ls_pathname
ll_file=FileOpen(ls_pathname,StreamMode!)
DO WHILE FileRead(ll_file,lbl_temp)>0
lbl_data+=lbl_temp
LOOP
FileClose(ll_file)
if ll_file=-1 then
messagebox("MENSAJE DEL SISTEMA","ERROR")
end if
p_foto.SetPicture(lbl_temp)
end if
Gracias por su ayuda...
string ls_pathname,ls_filename,ls_filtro,ls_cod_alumno
long ll_file
blob lbl_data,lbl_temp
ls_filtro="JPEG Files(*.jpg),*.jpg"
if GetFileOpenName("Archivo de imagen: ",ls_pathname,ls_filename,"jpg",ls_filtro)=-1 then
messagebox("MENSAJE DEL SISTEMA","ERROR")
else
p_foto.picturename=ls_pathname
ll_file=FileOpen(ls_pathname,StreamMode!)
DO WHILE FileRead(ll_file,lbl_temp)>0
lbl_data+=lbl_temp
LOOP
FileClose(ll_file)
if ll_file=-1 then
messagebox("MENSAJE DEL SISTEMA","ERROR")
end if
p_foto.SetPicture(lbl_temp)
end if
Gracias por su ayuda...
Valora esta pregunta
0