| Pregunta: | 24471 - VISUALIZAR FOTOS (JPG) EN INFORME |
| Autor: | Sandro Faber Bolivar Acevedo |
| Buen día. Había tenido inconvenientes para visualizar jpgs en los formularios de Vfp5, pero Vfp6 me resolvió este inconveniente, ahora tengo el mismo inconveniente pero ya en el informe. Quiero ver la foto en el formulario pero lo unico que me sale en la vista preliminar y en la impresión es el icono (como un acceso directo) y no la foto. Estuve leyendo en todas las preguntas respondidas pero no hallé la solución. Si alguien sabe cuál es la solución y la quiere compartir conmigo y todos los de la LWP, se lo agradezco. | |
| Respuesta: | J. Enrique Ortiz P. |
| Mira te voy a explicar, lo que hice para resolver este problema, fue que en lugar de pegar la foto, como normalmente se hace, pegué la ruta del archivo .jpg. En tu base cambia el campo General, por uno de texto o memo, y al momento de obtener la imagen, reemplazas el campo texto o memo por la ruta completa incluyendo el nombre del archivo, sin omitir ningun carácter, y en el formulario pega un objeto de imagen, el cual reflejará la imagen cunado tu cambies la propiedad Picture del mismo y refresques el formulario, si deseas un archivo de ejemplo en el boton de pegar imagen incluye este codigo LOCAL X,foto2 Foto2 = (GetFile('Bmp,Jpg', 'Imagen','Seleccionar',0, 'Buscar Imagen')) If !Empty(Foto2) sele (Thisformset.base) If empty(This.directorio) Messagebox("Propiedad Directorio: vacio, por" + chr(13)+ ; "lo cual no se puede realizar esta"+ chr(13)+ ; "operación",16,"Aviso") Else This.Directorio = Allt(CurDir()) Replace foto with Subst(Foto2,3) Endif EndIf Thisform.refresh y en tu formulario solo haz el refresh escribeme si quieres un ejemplo de un formulario corriendo ok, esto me funcionó muy bien, espero que te funcione Bye | |