>Hola a todos.
>
>El asunto es el siguiente: Deseo mostrar fotografias de personas en un formulario (usando el control ole dependiente en VFP 3.0). Debido a que es necesario capturar la imagen, en el momento necesito que funcione usando los comando copiar/pegar. Debido al tipo de aplicación, es impractico el que se uso el comando APPEND GENERAL y tampoco Insertando el Objeto Ole. El problema es que algunas imagenes se deforman, pero si abro el campo general mediante el browse, la imagen se muestra más o menos reconocible. Ya intente ajustando las propiedades del control, rebajando la imagen a menos colores, rebajando la resolución, cambiando de programa de gráficos,etc...
>
>Si alguno de ustedes puede decirme que puedo hacer por el momento, o me sugiere algún control adsequible que permite capturar la imagen, se lo agradeceria.
Mario,
Para mi, no es una buena idea guardar un BMP en un campo de tipo general. Te darás pronto cuenta que el tamaño de tu tabla crece de manera desordenada. Asi que mejor guardar tus BMP's en un directorio aparte y el path hacia ellos en un campo tipo caracter.
He aqui una muestra de como se puede refrescar el contenido de un control tipo image desde el REFRESH() del contenedor donde esta el control.
IF FILE(SUBSTR(goApp.cDefaultDatabase, 1, RAT("\", goApp.cDefaultDatabase)) + ;
"\PICTURES\" + ;
v_Workershort.cCompanyId + ;
v_Workershort.cMatricule + ;
".BMP")
this.cImage.Picture = ;
SUBSTR(goApp.cDefaultDatabase, 1, RAT("\", goApp.cDefaultDatabase)) + ;
"\PICTURES\" + ;
v_WorkerShort.cCompanyId + ;
v_WorkerShort.cMatricule + ;
".BMP"
this.cImage.Visible = .T.
ELSE
this.cImage.Picture = ""
this.cImage.Visible = .F.
ENDIF
Con esa técnica tengo resultados excelentes, pero tengo que poner la resolucion de la carta video a 32 bit color.
Te aconsejo tambien ir al sitio
www.fpress.com Publican una excelente revista en español dedicada a VFP y dejan un articulo de cada mes en su Web como muestra. Ha habido algo sobre el manejo de un scanner desde VFP y algo sobre el control imagen de Wang.
José
