Saludos a todos
Miren, ya me he dirigido de alguna manera al forum con el proposito de ver
como puedo grabar en un campo de una dbf una foto o una imagen,
El compañero Jose Alfonso Suárez Moreno ha tratado de ayudarme enviandome a
una página pero en fin, no he podido lograr nada.
METHOD Button1Click( oSender ) CLASS TForm1
LOCAL cImage, oIcon
cImage := Memoread("c:ControlarResourcecarlos2.bmp")
WITH OBJECT ::oSysImageList := TSysImageList():New()
//Si quieres iconos pequeños
::oSysImageList:lLargeIcons := .F.
:Create()
END
oIcon := TIcon():LoadFromFile( "Shell32.dll", 5 )
With OBJECT ::oDbfUser
If !:lOpen
:lOpen := .T.
EndIf
IF :RecLock()
:FieldPut( :FieldPos( "Foto" ), cImage)
ENDIF
MemoWrit( "carlos2.Bmp", :Foto) //FIELD->Foto )
::oImage1:oPicture := TPicture():LoadFromFile( "Shell32.dll", 4)
:RecUnlock()
::AddDrives()
end
El asunto es que tengo una Dbf donde necesito grabar ls imagenes
correspondiente a los usuarios y los productos y no logro grabarla.
Me ayudan por favor?
Gracias de antemanos
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Problemas con las Fotos en Dbf
-
jasm.nospam
- Mensajes: 203
- Registrado: Vie Abr 01, 2005 9:05 am
Problemas con las Fotos en Dbf
Carlos,
Yo para DBF lo que haría, antes que meter las imágenes dentro de un
campo memo, es guardar el path de la imágen en la misma tabla de
artículos o usuarios.
Saludos
Jose A. Suarez
Carlos Cedeño Vera escribió:
> Saludos a todos
>
> Miren, ya me he dirigido de alguna manera al forum con el proposito de ver
> como puedo grabar en un campo de una dbf una foto o una imagen,
> El compañero Jose Alfonso Suárez Moreno ha tratado de ayudarme enviandome a
> una página pero en fin, no he podido lograr nada.
>
>
> METHOD Button1Click( oSender ) CLASS TForm1
> LOCAL cImage, oIcon
> cImage := Memoread("c:ControlarResourcecarlos2.bmp")
> WITH OBJECT ::oSysImageList := TSysImageList():New()
> //Si quieres iconos pequeños
> ::oSysImageList:lLargeIcons := .F.
> :Create()
> END
> oIcon := TIcon():LoadFromFile( "Shell32.dll", 5 )
> With OBJECT ::oDbfUser
> If !:lOpen
> :lOpen := .T.
> EndIf
> IF :RecLock()
> :FieldPut( :FieldPos( "Foto" ), cImage)
> ENDIF
> MemoWrit( "carlos2.Bmp", :Foto) //FIELD->Foto )
> ::oImage1:oPicture := TPicture():LoadFromFile( "Shell32.dll", 4)
> :RecUnlock()
> ::AddDrives()
> end
> El asunto es que tengo una Dbf donde necesito grabar ls imagenes
> correspondiente a los usuarios y los productos y no logro grabarla.
>
> Me ayudan por favor?
> Gracias de antemanos
>
>
Yo para DBF lo que haría, antes que meter las imágenes dentro de un
campo memo, es guardar el path de la imágen en la misma tabla de
artículos o usuarios.
Saludos
Jose A. Suarez
Carlos Cedeño Vera escribió:
> Saludos a todos
>
> Miren, ya me he dirigido de alguna manera al forum con el proposito de ver
> como puedo grabar en un campo de una dbf una foto o una imagen,
> El compañero Jose Alfonso Suárez Moreno ha tratado de ayudarme enviandome a
> una página pero en fin, no he podido lograr nada.
>
>
> METHOD Button1Click( oSender ) CLASS TForm1
> LOCAL cImage, oIcon
> cImage := Memoread("c:ControlarResourcecarlos2.bmp")
> WITH OBJECT ::oSysImageList := TSysImageList():New()
> //Si quieres iconos pequeños
> ::oSysImageList:lLargeIcons := .F.
> :Create()
> END
> oIcon := TIcon():LoadFromFile( "Shell32.dll", 5 )
> With OBJECT ::oDbfUser
> If !:lOpen
> :lOpen := .T.
> EndIf
> IF :RecLock()
> :FieldPut( :FieldPos( "Foto" ), cImage)
> ENDIF
> MemoWrit( "carlos2.Bmp", :Foto) //FIELD->Foto )
> ::oImage1:oPicture := TPicture():LoadFromFile( "Shell32.dll", 4)
> :RecUnlock()
> ::AddDrives()
> end
> El asunto es que tengo una Dbf donde necesito grabar ls imagenes
> correspondiente a los usuarios y los productos y no logro grabarla.
>
> Me ayudan por favor?
> Gracias de antemanos
>
>