Problema con imagen en control ole

[jorge cantar]

Hola.

Tenía el programa que andaba bien, pero ahora dejo hacerlo.

Tengo una imagen e un campo blob de sql y hago básicamente esta secuencia.

STRTOFILE(cpaciente.ficha, lugbmp+'ficha.bmp')

thisform.image1.Picture=lugbmp+'ficha.bmp'

si voy a la carpeta y veo ficha.bmp me trae la correcta, pero el problema es que en el programa me trae la última que vi antes de cerrarlo.

No hay otra ficha en el disco, y por más que cambie de código de paciente, siempre trae la misma.

Gracias por la ayuda.

[Víctor Hugo Espínola Domínguez]

Prueba poniendo CLEAR RESOURCES antes de asignar la propiedad Picture

Saludos,

Víctor.

Lambaré - Paraguay.

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/3e77b03c-6ecf-4b29-ab0a-99c0f879cb33n%40googlegroups.com.

[jorge cantar]

Hola Víctor.

Gracias por tu respuesta.
Hice:

thisform.image1.Picture=''

CLEAR RESOURCES

thisform.image1.Picture=thisform.cfilepdf

pero persiste el error.

Atentamente, Jorge

[Zarlu]

Buenos días jcantar!

A manera de prueba, para verificar los datos de la tabla...

lcAntes= cpaciente.ficha&&ante de elegir otro paciente

.....

STRTOFILE(cpaciente.ficha, lugbmp+'ficha.bmp')

? lcAntes==cpaciente.ficha&&es igual?

thisform.image1.Picture=lugbmp+'ficha.bmp'

Suerte

zarlu

Chetumal, Quintana Roo, México

[Víctor Hugo Espínola Domínguez]

Prueba en vez de Picture PictureVal = campoblob

Saludos,

Víctor.

Lambaré - Paraguay.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/9a552dfd-aaca-4f0d-869d-78b761880639n%40googlegroups.com.

[ZeRoberto]

Si vas a almacenar el campo blob en un archivo te recomiendo que el nombre lo generes con SYS(2015)

Saludos

Ze

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/9a552dfd-aaca-4f0d-869d-78b761880639n%40googlegroups.com.

[jorge cantar]

Hola Zarlu.

Es un problema con el control, porque en el archivo donde deja la ficha si va cambiando.

Atte, Jorge

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/9cfdf383-632b-48eb-9239-aa08e3ff9ecfn%40googlegroups.com.

[jorge cantar]

Hola Ze.

Es así como lo genero,  lugbmp tiene el contenido del sys
gracias

[HernanCano]

Que tal funcionaria...?

local M.cImg
M.cImg = ThisForm.Image1.Picture
ThisForm.Image1.Picture = ''
clear resources (M.cImg)
ThisForm.Image1.Picture = ThisForm.cFilePDF

**

[ZeRoberto]

Deberia ser asi

lcArchivo = "C:\Windows\Temp\" + SYS(2015) + ".BMP"

STRTOFILE(cpaciente.ficha, lcArchivo)

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/e34def3e-0443-4b1b-accd-259494ee1873n%40googlegroups.com.