Xailer & OZ Software

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

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
>
>