Comment créer un document TIFF multipage et Faxer avec Foxpro= 9

Comment créer un document TIFF multipage et Faxer avec Foxpro 9.<= /span>

Pré requis :

Il faut un modem.<= /o:p>
Microsoft Fax Console installé et configuré (Disponible avec Windows XP ou 200= 3 http://support.microso= ft.com/kb/306550)
Microsoft Visual FoxPro= 9.

<= o:p>

L= e nouveau report listener de Visual Foxpro 9 permet de générer des rapp= orts en fichiers TIFF, et pour envoyer un fax de plusieurs pages, on peut aussi utiliser GDI+ pour construire un fichier TIFF multipages, pour envoyer plusieurs pages à la fois avec le même appel. L’avantage d’envoyer un fichier TIFF (plutôt qu’un fichier Word, PDF= ou BMP) est que la console FAX peut gérer le fichier TIFF directement s= ans utiliser les fonctions ‘Printo’ de Word (ce qui veux dire que W= ord doit être installé, et un ficher .doc va utiliser une instance de Word a= vec chaque fax. Si le fax est envoyé par un serveur Fax, normalement Word n’est pas présent sur ce serveur) et Word fait son apparition = pour une seconde ou deux, qui n’est pas professionnel. Vous aller obtenir = un résultat similaire avec un document PDF. Un document HTML par contre= va ouvrir les imprimantes pour indique ou diriger le document, encore une fois non-professionnel.

<= o:p>

L= es spécifications de Microsoft sur le format des fichiers TIFF sont qu&= #8217;ils soient sans compression (fichier très gros) ou de compression CCITT Group = 4 Fax (qui représente un fichier de 1/10 de la grosseur d’= ;un fichier sans compression (http://msdn.microsoft.com/library/default.asp?u= rl=3D/library/en-us/fax/fax/faxinta_n_7e05.asp)

A= noter que pour obtenir une compression CCITT Group 4 Fax, il faut que les images s= oit monochrome (Noir et blanc, aucun tons de gris).

1. Voici la technique pour obtenir un fichier bitmap qui va éventuellem= ent être transformé en fichier TIFF. Cette technique va cré= er un fichier bitmap par page de rapport. (http= ://www.news2news.com/vfp/?function=3D-1&example=3D493)

oListene= r =3D Createobj= ect("R= eportListener")

oListene= r.ListenerT= ype=3D3

Report Fo= rm c:\custo= mer Preview O= bject oListene= r

For nPageInd= ex=3D1 To oListene= r.PageTotal=

cOutputF= ile =3D "tmp"+Trans(nPageIndex)+".bmp"

oListener= .OutputPag= e(nPageIn= dex,;

&nbs= p; cOutputFile, 105, 0,0,768,1024) && 105 =3D bitmap

2. Comment rendre les fichiers bitmap en fichier monochrome. Il y a plusieurs = technique pour arriver à notre but. Voici une méthode http://www.news2news.com/vfp/?function=3D-1&example=3D493=

3. Maintenant on converti nos fichiers bitmaps en fichiers individuels TIFF.

oGDIp = =3D Createobj= ect("g= pInit")

oImg =3D= Createobj= ect("g= pImage")

oImg.Load(lcDestP= ath+Justfname= (cOutput= File))

oImg.Sav= eAsTIFF(lcDestPath+Juststem<= /span>(cOutput= File)+".tif",4) && Save it as a CCITT Grou= p 4 Fax TIFF file

&& second parameter 2 =3D LZW, 3 =3D CCITT Group 3 F= AX, 4 =3D CCITT Group 4 Fax, 5=3D PackBit Macintosh RLE, 6 =3D None

<= o:p>

4.Maintenant on converti nos fichers TIFF en un seul fichier TIFF multipages

CD (lcDestP= ath)

nCount = =3D ADIR(tiffile= s,"*.tif")

IF nCount &= gt; 0

lcSource =3D tiffiles[1,1]<= /o:p>

loImage1 =3D CREATEOBJ= ECT("G= pImage")

loImage1.CreateFromFile(lcSource= )

ENDIF

loImage1.SaveToFile("c:\Multi= Frame.tif","image/tiff","SAVEFLAG=3D18,COMPRESSION=3D4&= quot;)

&&am= p; Compression 4 ne fonctionne pas si le fichier n'est pas monochrome. =

FOR i =3D 2 TO nCount

lcSource =3D tiffiles[i,1]=

lnHandle =3D 'loImage'+ALLTRIM(= STR(i))

&lnHandle =3D <= span style=3D'font-size:10.0pt;font-family:"Courier New";color:blue'>CREATEOBJ= ECT("G= pImage")

&lnHandle..CreateFromFile(lcSource)

IF i < n= Count

loImage1.SaveAdd(&lnHandle,"SAVEFLAG=3D23")

ELSE

loImage1= .SaveAdd(&lnHandle,"SAVEFLAG=3D23,SAVEFLAG=3D20")<= /span>

ENDIF

ENDFOR

<= o:p>

Maintenant on peut envo= yer ce fichier TIFF par fax.

Vous pouvez trouver un exemple ici. http://www.atoutfox.com/articles.asp?ACTION=3DFCONSULTER&ID= =3D0000000233

Remplacez le nom du fichier Word pour le fichier TIFF généré.

<= o:p>

<= span style=3D'mso-spacerun:yes'> Le code complet est inclus dans le fichier zip attaché.

<= o:p>