mer. 12 juin 2019, 22h24
MSabri111
Algérie
atoutfox.public.association
Re: Report Blob Image
SELECT Decjour2005
cImg = Decjour2005.imag_blob
cMat=ALLTRIM(Decjour2005.matricule)
cFileImg = (m.lcPath+'photos\'+cMat+".jpg") &&ADDBS(SYS(5) + SYS(2003)) + 'image.jpg'
*--------------
go top
i = 1
do while !Eof() AND !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
i = i+1
skip
ENDDO
&&cFileImg=Decjour2005.path_photo
&&? cFileImg
*--------------
SELECT _impimante
lcPrinter = alltrim(_impimante.impri3)
SET PRINTER TO NAME (lcPrinter)
Report form carte111.lbx TO PRINTER PROMPT
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019401