ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Report Blob Image   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

mer. 12 juin 2019, 22h40
Jean =c3=a0 Grenoble
atoutfox.public.association

Re: Report Blob Image

Oh là !! Il y a longtemps qu'on n'utilise plus do while !EOF() !!!!

essaie ceci :

SCAN ALL FOR !EMPTY(Decjour2005.imag_blob)
cImg = Decjour2005.imag_blob
cMat=ALLTRIM(Decjour2005.matricule)
cFileImg = (m.lcPath+'photos\'+cMat+".jpg") &&ADDBS(SYS(5) + SYS(2003)) +
'image.jpg'eImgage =
IF FILE(m.cFileImg)
DELETE FILE (m.cFileImg)
ENDIF
=STRTOFILE(m.cImg, m.cFileImg,1)
replace Decjour2005.path_photo with m.cFileImg
&&IF FILE(m.cFileImg)
&& SELECT Photo_emp
&& APPEND general Photo_emp.photo_emp from (m.cFileImg) CLASS
Paint.Picture
&& ENDIF
eImgage =m.cFileImg
ENDSCAN


Jean à Grenoble
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019402
20 087 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3