using CreateProcess() to run GhostScript ... how to know job is done. 3

[Brezhnev]

Hi all!
My problem keeps coming back... I think I've already posted this question some time ago , but can't find the answer i got ... so , if you would exume me -- one more time :
I am using GhostScript to convert report file (.frx)-- > to .ps file --> to .pdf file. To run GhostScript i am using
CreateProcess().Everythings is ok ..but declaring some WINDOW_WAIT and trying to catch when the process is done --
does not work for me.So , my first problem -- when to display feedback for the user that job is done.Second problem , i can't get to work -- hiding GhostScript processwindow. 'cause it looks kind of crapy -- i want to hide it.
Thanks a lot for any help.

P.S.Please note that i am using this functionality in three dif. versions of VFox - 5,6,7

 

[ramani]

HI

If you already got the answer.. may be this is the link you are looking for.

GhostScript problem
thread184-367933

ramani
(Subramanian.G),FoxAcc, ramani_g@yahoo.com

 

[ChrisRChamberlain]

Brezhnev

'i can't get to work -- hiding GhostScript processwindow'

FUNCTION GetStartupInfo

*!* creates the STARTUP structure to specify main window
*!* properties if a new window is created for a new process

*| typedef struct _STARTUPINFO {
*| DWORD cb; 4
*| LPTSTR lpReserved; 4
*| LPTSTR lpDesktop; 4
*| LPTSTR lpTitle; 4
*| DWORD dwX; 4
*| DWORD dwY; 4
*| DWORD dwXSize; 4
*| DWORD dwYSize; 4
*| DWORD dwXCountChars; 4
*| DWORD dwYCountChars; 4
*| DWORD dwFillAttribute; 4
*| DWORD dwFlags; 4
*| WORD wShowWindow; 2
*| WORD cbReserved2; 2
*| LPBYTE lpReserved2; 4
*| HANDLE hStdInput; 4
*| HANDLE hStdOutput; 4
*| HANDLE hStdError; 4
*| } STARTUPINFO, *LPSTARTUPINFO; total: 68 bytes

#DEFINE STARTF_USESHOWWINDOW 1
#DEFINE SW_SHOWNORMAL 1
#DEFINE SW_SHOWHIDDEN 0

RETURN num2dword(68) ;
+ num2dword(0) ;
+ num2dword(0) ;
+ num2dword(0) ;
+ num2dword(0) ;
+ num2dword(0) ;
+ num2dword(0) ;
+ num2dword(0) ;
+ num2dword(0) ;
+ num2dword(0) ;
+ num2dword(0) ;
+ num2dword(STARTF_USESHOWWINDOW) ;
+ num2word(SW_SHOWHIDDEN) ;
+ num2word(0) ;
+ num2dword(0) ;
+ num2dword(0) ;
+ num2dword(0) ;
+ num2dword(0)

FUNCTION num2dword(lnValue)

#DEFINE m0 256
#DEFINE m1 65536
#DEFINE m2 16777216
LOCAL b0, b1, b2, b3
b3 = INT(lnValue/m2)
b2 = INT((lnValue - b3 * m2)/m1)
b1 = INT((lnValue - b3*m2 - b2*m1)/m0)
b0 = MOD(lnValue, m0)
RETURN CHR(b0) ;
+ CHR(b1) ;
+ CHR(b2) ;
+ CHR(b3)
****************

Are you using the constant SW_SHOWHIDDEN in the GetStartupInfo function?

FAQ184-2483 - the answer to getting answered.​

Chris

http://www.pdfcommander.co.uk

 

[nocarrier]

this might do what you are looking for .

http://www.1amsoftware.com/download.htm

the new version uses the dll version of ghostscript not the exe... all vfp
Bob Lee

 

[Mike Gagnon]

nocarrier

Bob, longtime no see. I noticed you went to the Prague Devcon and brought back pictues.

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[ajaznazeer]

Dear Brezhnev,

I have downloaded the PDF Maker from

http://www.1amsoftware.com/download.htm.

And then I changed slight changes and named it as PS2PDF. This program I am using it to convert Postscript files to PDF.
After installing the PostScript Printer and I set the Port to FILE. Now I can generate PDF from any program. I am simply printing to PostScrip Printer upon prompt i am entering as G:\PDFFILES\BrezhnevTEST

From Foxpro :
DO PS2PDF WITH "G:\PDFFILES\BrezhnevTEST","G:\PDFFILES\BrezhnevTEST.PDF"

Upon completion it will prompt you.

I hope this will solve your problem.

Best regards,

Ajaz.

LPARAMETERS PSNAME,PDFNAME
loPDF = createobject("Print2PDF&quot
loPDF.ReadIni()
loPDF.cOutputFile = PDFNAME
loPDF.cPSFile = PSNAME
llResult = loPDF.MakePDF()
=MESSAGEBOX('Your File has been successfully created')


define class Print2PDF as relation
**Please note that any of these properties can be set by you in your code.
**You can also set most of them by using the .ini file.

**Set these properties (required)
cReport = space(0) &&Name of VFP report to Run
cOutputFile = space(0) &&Name of finished PDF file to create.

**User-Definable properties (most of these can be set in the .ini file)
cStartFolder = justpath(sys(16))+iif(right(justpath(sys(16)),1)="\","","\&quot &&Folder this program started from.
cTempPath = space(0) &&Folder for Temporary Files (default = VFP temp path)
cExtraRptClauses= space(0) &&Any extra reporting clauses for the "report form" command
lReadINI = .t. &&Do you want to pull settings out of Print2PDF.ini file?
cINIFile = this.cStartFolder+"Print2PDF.ini" &&Name of INI file to use. If not in current folder or VFP path, specify full path.
lFoundPrinter = .f. &&Was the PS printer found?
lFoundGS = .f. &&Was Ghostscript found?
cPSPrinter = space(0) &&Name of the Windows Printer that is the Postscript Printer (default = "GENERIC POSTSCRIPT PRINTER&quot
cPSColorPrinter = space(0) &&Name of the Windows Printer that is the Postscript Printer (default = "GENERIC COLOR POSTSCRIPT&quot
lUseColor = .f. &&Use "color" printer driver?
cPrintResolution= space(0) &&Printer resolution string (300, 600x600, etc.) (default = "300&quot
cPSFile = space(0) &&Path/Filename for Postscript file (auto-created if not passed)
lErasePSFile = .t. &&Erase the .ps file after conversion?
cPDFFile = space(0) &&Path/Filename for PDF file (auto-created if not passed)
cGSFolder = space(0) &&Path where Ghostscript DLLs exist (auto-populated if not passed)


**Internal properties
lError = .f. &&Indicates that this class had an error.
cError = "" &&Error message generated by this class
cOrigSafety = space(0) &&Original "set safety" settting
cOrigPrinter = space(0) &&Original "Set printer" setting


**AutoInstall properties &&See the ReadINI method for more details
iInstallCount = 1 &&Number of programs setup for AutoInstallation

dimension aInstall[1, 7]

aInstall[1,1] = space(0) &&Program Identifier (used to find program in array)
aInstall[1,2] = .t. &&Can we install this product
aInstall[1,3] = space(0) &&Product Name (for user)
aInstall[1,4] = space(0) &&Description of product for user
aInstall[1,5] = space(0) &&Folder where install files are stored
aInstall[1,6] = space(0) &&Setup Executable name
aInstall[1,7] = space(0) &&Notes to show user before installing


**************************************************************************************
** Class Methods
**************************************************************************************
**********************
** Init Method
**********************
function init(pcFileName, pcReport, plRunNow)
with this
.cOrigSafety = set("safety&quot
.cOrigPrinter = set("Printer", 3)

.lError = .f.
.cError = ""

if type("pcFileName&quot = "C" and !empty(pcFileName)
.cOutputFile = alltrim(pcFileName)
endif

if type("pcReport&quot = "C" and !empty(pcReport)
.cReport = alltrim(pcReport)
endif
endwith

set safety off

**Did User pass in parm to autostart the Main method?
if type("plRunNow&quot = "L" and plRunNow = .t.
return this.main()
endif
endfunc


**********************************************************************
** Cleanup Method
** Make sure all objects are released, etc.
**********************************************************************
function CleanUp
local lcOrigPrinter, lcOrigSafety

with this
lcOrigSafety = .cOrigSafety
lcOrigPrinter = .cOrigPrinter
endwith

if !empty(lcOrigSafety)
set safety &lcOrigSafety
endif

if !empty(lcOrigPrinter)
set printer to
set printer to name "&lcOrigPrinter"
endif

return
endfunc


**********************************************************************
** ResetError Method
** Call this method on each subsequent call to SendFax or CheckLog
**********************************************************************
function ResetError
with this
.lError = .f.
.iError = 0
.cError = ""
endwith
return .t.
endfunc



**************************************************************************************
* Main Method - Main code
* If you wanted to run each piece seperately, you can make your own calls
* to each of the methods called below from within your program and not
* call this method at all. That way, you could execute only the methods you want.
* For example, if your postscript file already existed, you could simply set
* the properties for the file location, then skip the calls that create the PS file
* and go straight to the MakePDF() method.
**************************************************************************************
function main(pcFileName, pcReport)
local x
store 0 to x

with this
if type("pcFileName&quot = "C" and !empty(pcFileName)
.cOutputFile = alltrim(pcFileName)
endif

if type("pcReport&quot = "C" and !empty(pcReport)
.cReport = alltrim(pcReport)
endif

if empty(.cReport) or empty(.cOutputFile)
.lError = .t.
.cError(".cReport and/or .cOutputFile empty",48,"Error&quot
return .f.
endif

**Get values from Print2Pdf.ini file
**Also sets default values even if .ini is not used.
if !.lError
=.ReadINI()
endif

**Set printer to PostScript
if !.lError
=.SetPrinter()
endif

**Create the Postscript file
if !.lError
=.MakePS()
endif

**Make sure Ghostscript DLLs can be found
if !.lError
=.GSFind()
endif

**Turn Postscript into PDF
if !.lError
=.MakePDF()
endif

**Install PDF Reader
if !.lError
=.InstPDFReader()
endif

.CleanUp()
endwith

return !this.lError
endfunc



**************************************************************************************
* ReadIni() - Function to open/read contents of Print2PDF.INI file.
* - If the .ReadINI property is .False., this method will not run
* - This method examines each property, it will not overwrite a property
* with a value from the .INI that you have already populated via code.
**************************************************************************************
function ReadINI()
local lcTmp
store "" to lcTmp

**If we're not supposed to read the INI, make sure default values are set
if this.lReadINI = .t.
**Win API declaration
declare integer GetPrivateProfileString ;
in WIN32API ;
string cSection,;
string cEntry,;
string cDefault,;
string @cRetVal,;
integer nSize,;
string cFileName


**Read INI settings
with this
**General Properties
**Postscript Printer Driver Name
if empty(.cPSPrinter)
.cPSPrinter = .ReadIniSetting("PostScript", "cPSPrinter&quot
endif

**Color Postscript Printer Driver Name
if empty(.cPSColorPrinter)
.cPSColorPrinter = .ReadIniSetting("PostScript", "cPSColorPrinter&quot
endif

**Name of PostScript file
if empty(.cPSFile)
.cPSFile = .ReadIniSetting("PostScript", "cPSFile&quot
endif

**Name of folder to hold Temporary postscript files
if empty(.cTempPath)
.cTempPath = .ReadIniSetting("PostScript", "cTempPath&quot
endif

**Name of PDF file
if empty(.cPDFFile)
.cPDFFile = .ReadIniSetting("GhostScript", "cPDFFile&quot
endif

**Name of Ghostscript folder (where installed to)
if empty(.cGSFolder)
.cGSFolder = .ReadIniSetting("GhostScript", "cGSFolder&quot
endif

**Resolution for PDF files
if empty(.cPrintResolution)
.cPrintResolution = .ReadIniSetting("PostScript", "cPrintResolution&quot
endif

**Installation Packages
**# of packages to store settings for
lcTmp = .ReadIniSetting("Install", "iInstallCount&quot
if !empty(lcTmp)
.iInstallCount = val(lcTmp)

if .iInstallCount > 1
dimension .aInstall[.iInstallCount, 7]
endif

for x = 1 to .iInstallCount
**What is the "programmatic" ID for this package
.aInstall[x,1] = upper(.ReadIniSetting("Install", "cInstID"+transform(x)))

**Can we install this package?
lcTmp = upper(.ReadIniSetting("Install", "lAllowInst"+transform(x)))
.aInstall[x,2] = iif("T" $ lcTmp or "Y" $ lcTmp, .t., .f.)

**Product Name
.aInstall[x,3] = .ReadIniSetting("Install", "cInstProduct"+transform(x))

**Description of Product to show user
.aInstall[x,4] = .ReadIniSetting("Install", "cInstUserDescr"+transform(x))

**Folder where installation files exist
.aInstall[x,5] = .ReadIniSetting("Install", "cInstFolder"+transform(x))

**Executable file to start installation
.aInstall[x,6] = .ReadIniSetting("Install", "cInstExe"+transform(x))

**Instructions to User
.aInstall[x,7] = .ReadIniSetting("Install", "cInstInstr"+transform(x))
endfor
endif
ENDWITH
ENDIF

**Make sure these basic settings are not blank
with this
if empty(.cPSPrinter)
.cPSPrinter = "GENERIC POSTSCRIPT PRINTER"
endif
if empty(.cPSColorPrinter)
.cPSColorPrinter = "GENERIC COLOR POSTSCRIPT"
ENDIF
if empty(.cTempPath)
.cTempPath = sys(2023) + iif(right(sys(2023),1)="\","","\&quot
endif
if empty(.cPrintResolution)
.cPrintResolution= "300"
endif
endwith
return .t.
endfunc



**************************************************************************************
* ReadIniSetting() - Returns the value of a "setting" from an "INI" file (text file)
* (returns "" if string is not found)
* Parms: pcSection = The "section" in the INI file to look in... [Section Name]
* pcSetting = The "setting" to return the value of Setting="MySetting"
**************************************************************************************
function ReadIniSetting(pcSection, pcSetting)
local lcRetValue, lnNumRet, lcFile

lcFile = alltrim(this.cIniFile)

lcRetValue = space(8196)

**API call to get string
lnNumRet = GetPrivateProfileString(pcSection, pcSetting, "[MISSING]", @lcRetValue, 8196, lcFile)


lcRetValue = alltrim(substr(lcRetValue, 1, lnNumRet))

if lcRetValue == "[MISSING]"
lcRetValue = ""
endif

return lcRetValue
endfunc



**************************************************************************************
* SetPrinter() - Set the printer to the PostScript Printer
**************************************************************************************
function SetPrinter()
local x, lcPrinter
x = 0
lcPrinter = ""

with this
if empty(.cPSPrinter)
.cPSPrinter = "GENERIC POSTSCRIPT PRINTER"
endif
if empty(.cPSColorPrinter)
.cPSPrinter = "GENERIC COLOR POSTSCRIPT"
endif

if .lUseColor = .t.
lcPrinter = .cPSColorPrinter
else
lcPrinter = .cPSPrinter
endif

.lFoundPrinter = .f.

***Make sure a Postscript printer exists on this PC
if aprinters(laPrinters) > 0
for x = 1 to alen(laPrinters)
if alltrim(upper(laPrinters[x])) == lcPrinter
.lFoundPrinter = .t.
endif
endfor

if !.lFoundPrinter
.cError = lcPrinter+" is not installed!!"
.lError = .t.
endif
else
.cError = "NO printer drivers are installed!!"
.lError = .t.
endif

if .lFoundPrinter
*** Set the printer to Generic Postscript Printer
lcEval = "SET PRINTER TO NAME '" +lcPrinter+"'"
&lcEval

if alltrim(upper(set("PRINTER",3))) == alltrim(upper(lcPrinter))
else
.cError = "Could not set printer to: "+alltrim(lcPrinter)
.lError = .t.
.lFoundPrinter = .f.
endif
endif

**Auto-Install, If no PS printer was found.
if !.lFoundPrinter
if this.Install("POSTSCRIPT&quot &&Install PS driver
return this.SetPrinter() &&Call this function again
endif
endif
endwith

return .lFoundPrinter
endfunc



**************************************************************************************
* MakePS() - Run the VFP report to a PostScript file
**************************************************************************************
function MakePS()
local lcReport, lcExtra, lcPSFile

set safety off

with this
**If no PS printer was found yet, find it
if !.lFoundPrinter
if !.SetPrinter()
return .f.
endif
endif

lcReport = .cReport
lcExtra = .cExtraRptClauses

if empty(lcReport)
.cError = "No Report File was specified."
.lError = .t.
return .f.
endif

if empty(.cPSFile)
*** We'll create a Postscript Output File (use VFP temporary path and temp filename)
.cPSFile = .cTempPath + sys(2015) + ".ps"
endif

lcPSFile = .cPSFile

*** Make sure we erase existing file first
erase (lcPSFile)

report form (lcReport) &lcExtra noconsole to file &lcPSFile

if !file(lcPSFile)
.cError = "Could create PDF file"
.lError = .t.
return .f.
endif
endwith

return .t.
endfunc



**************************************************************************************
* GSFind() - Finds the Ghostscript DLL path and adds it to the VFP path
**************************************************************************************
function GSFind()
local x, lcPath
store "" to lcPath
store 0 to x

with this
.lFoundGS = .f.

**Look for Ghostscript DLL files. If not in the VFP path, then GSFind().
if file("gsdll32.dll&quot
.lFoundGS = .t.
return .t.
endif

**Try location specified in INI file
if !empty(.cGSFolder)
lcTmp = .cGSFolder + "gsdll32.dll" &&Make sure the DLL file can be found
if !file(lcTmp)
.cGSFolder = ""
endif
endif

*Look for them to exist in C:\gs\gsX.XX\bin if empty(.cGSFolder)
if !directory("C:\gs&quot
return .f.
endif

liGS = adir(laGSFolders, "C:\gs\*.*","D&quot
if liGS < 1
return .f.
endif

for x = 1 to alen(laGSFolders,1)
lcTmp = alltrim(upper(laGSFolders[x,1]))
if &quot;GS&quot; = left(lcTmp,2) and &quot;D&quot; $ laGSFolders[x,5]
.cGSFolder = lcTmp
exit
endif
endfor

if empty(.cGSFolder)
return .f.
endif

.cGSFolder = &quot;c:\gs\&quot;+alltrim(.cGSFolder)+&quot;\bin\&quot;
endif

if !empty(.cGSFolder)
lcTmp = .cGSFolder + &quot;gsdll32.dll&quot; &&Make sure the DLL file can be found
if !file(lcTmp)
.cGSFolder = &quot;&quot;
endif
endif

if empty(.cGSFolder)
return .f.
else
.lFoundGS = .t.
endif
endwith

lcPath = alltrim(set(&quot;Path&quot)
set path to lcPath + &quot;;&quot; + .cGSFolder

return .t.
endfunc




**************************************************************************************
* MakePDF() - Run Ghostscript to create PDF file from the Postscript file
**************************************************************************************
function MakePDF()
local lcPDFFile, lcOutputFile, lcPSFile

set safety off

with this
**Make sure Ghostscript DLLs have been found (or install them)
if !.lFoundGS
if !.GSFind()

**Auto-Install, Ghostscript
if .Install(&quot;GHOSTSCRIPT&quot
if !.GSFind() &&Call function again
.cError = &quot;Could not Install Ghostscript!&quot;
.lError = .t.
return .f.
endif
endif
endif
endif

lcOutputFile = .cOutputFile
lcPSFile = .cPSFile

if empty(.cPDFFile)
.cPDFFile = juststem(lcPSFile) + &quot;.pdf&quot;
endif

lcPDFFile = .cPDFFile
erase (lcPDFFile)

if !.GSConvertFile(lcPSFile, lcPDFFile)
.cError = &quot;Could not create: &quot;+lcPDFFile
.lError = .t.
endif

if !file(lcPDFFile)
.cError = &quot;Could not create: &quot;+lcPDFFile
.lError = .t.
endif

**Get rid of .ps file
if .lErasePSFile
erase (lcPSFile)
endif

**Make sure output file does not exist already
erase (lcOutputFile)

*** Move the temp file to the actual file name by renaming
rename (lcPDFFile) to (lcOutputFile)

if !file(lcOutputFile)
.cError = &quot;Could not rename file to &quot;+lcOutputFile
.lError = .t.
endif
endwith
return !this.lError
endfunc



**************************************************************************************
* GSConvert() - Sets up arguments that will be passed to Ghostscript DLL, calls GSCall
**************************************************************************************
function GSConvertFile(tcFileIn, tcFileOut)
local lnGSInstanceHandle, lnCallerHandle, loHeap, lnElementCount, lcPtrArgs, lnCounter, lnReturn
dimension laArgs[11]

store 0 to lnGSInstanceHandle, lnCallerHandle, lnElementCount, lnCounter, lnReturn
store null to loHeap
store &quot;&quot; to lcPtrArgs

set safety off
set procedure to clsheap additive
loHeap = createobject('Heap')

**Declare Ghostscript DLLs
clear dlls &quot;gsapi_new_instance&quot;, &quot;gsapi_delete_instance&quot;, &quot;gsapi_init_with_args&quot;, &quot;gsapi_exit&quot;

declare long gsapi_new_instance in gsdll32.dll ;
long @lngGSInstance, long lngCallerHandle
declare long gsapi_delete_instance in gsdll32.dll ;
long lngGSInstance
declare long gsapi_init_with_args in gsdll32.dll ;
long lngGSInstance, long lngArgumentCount, ;
long lngArguments
declare long gsapi_exit in gsdll32.dll ;
long lngGSInstance

laArgs[1] = &quot;dummy&quot; &&You could specify a text file here with commands in it (NOT USED)
laArgs[2] = &quot;-dNOPAUSE&quot; &&Disables Prompt and Pause after each page
laArgs[3] = &quot;-dBATCH&quot; &&Causes GS to exit after processing file(s)
laArgs[4] = &quot;-dSAFER&quot; &&Disables the ability to deletefile and renamefile externally
laArgs[5] = &quot;-r&quot;+this.cPrintResolution &&Printer Resolution (300x300, 360x180, 600x600, etc.)
laArgs[6] = &quot;-sDEVICE=pdfwrite&quot; &&Specifies which &quot;Device&quot; (output type) to use. &quot;pdfwrite&quot; means PDF file.
laArgs[7] = &quot;-sOutputFile=&quot; + tcFileOut &&Name of the output file
laArgs[8] = &quot;-c&quot; &&Interprets arguments as PostScript code up to the next argument that begins with &quot;-&quot; followed by a non-digit, or with &quot;@&quot;. For example, if the file quit.ps contains just the word &quot;quit&quot;, then -c quit on the command line is equivalent to quit.ps there. Each argument must be exactly one token, as defined by the token operator
laArgs[9] = &quot;.setpdfwrite&quot; &&If this file exists, it uses it as command-line input?
laArgs[10] = &quot;-f&quot; &&(ends the -c argument started in laArgs[8])
laArgs[11] = tcFileIn &&Input File name (.ps file)

* Load Ghostscript and get the instance handle
lnReturn = gsapi_new_instance(@lnGSInstanceHandle, @lnCallerHandle)
if (lnReturn < 0)
loHeap = null
RELEASE loHeap
this.lError = .t.
this.cError = &quot;Could not start Ghostscript.&quot;
return .f.
endif

* Convert the strings to null terminated ANSI byte arrays
* then get pointers to the byte arrays.
lnElementCount = alen(laArgs)
lcPtrArgs = &quot;&quot;
for lnCounter = 1 to lnElementCount
lcPtrArgs = lcPtrArgs + NumToLONG(loHeap.AllocString(laArgs[lnCounter]))
endfor
lnPtr = loHeap.AllocBlob(lcPtrArgs)

lnReturn = gsapi_init_with_args(lnGSInstanceHandle, lnElementCount, lnPtr)
if (lnReturn < 0)
loHeap = null
RELEASE loHeap
this.lError = .t.
this.cError = &quot;Could not Initilize Ghostscript.&quot;
return .f.
endif

* Stop the Ghostscript interpreter
lnReturn=gsapi_exit(lnGSInstanceHandle)
if (lnReturn < 0)
loHeap = null
RELEASE loHeap
this.lError = .t.
this.cError = &quot;Could not Exit Ghostscript.&quot;
return .f.
endif


* release the Ghostscript instance handle'
=gsapi_delete_instance(lnGSInstanceHandle)

loHeap = null
RELEASE loHeap

if !file(tcFileOut)
this.lError = .t.
this.cError = &quot;Ghostscript could not create the PDF.&quot;
return .f.
endif

return .t.
endfunc



**************************************************************************************
* InstPDFReader Method - Installs the PDFReader if needed
**************************************************************************************
function InstPDFReader()
**Make sure the PDF file has been created
if !file(.cOutputFile)
return .f.
endif

**Ask Windows which EXE is associated with this file (extension)
lcExe = .AssocExe(.cOutputFile)

if empty(lcExe)
**Install the PDF Reader
return .Install(&quot;PDFREADER&quot
else
return .t.
endif
endfunc


**************************************************************************************
* AssocExe Method - Returns the Executable File associated with a file
**************************************************************************************
function AssocExe(pcFile)
local lcExeFile
store &quot;&quot; to lcExeFile

declare integer FindExecutable in shell32;
string lpFile,;
string lpDirectory,;
string @ lpResult

lcExeFile = space(250)

if FindExecutable(pcFile, &quot;&quot;, @lcExeFile) > 32
lcExeFile = left(lcExeFile, at(chr(0), lcExeFile) -1)
else
lcExeFile = &quot;&quot;
endif

return lcExeFile
endfunc


**************************************************************************************
* Install Method - Installs software on the PC
**************************************************************************************
function Install(pcID)
local llFound, x, lcEval, lcProduct, lcDesc, lcTmp, ;
lcFolder, lcInstEXE, lcInstruct, llDynaPath
store &quot;&quot; to lcEval, lcProduct, lcAbbr, lcDesc, lcTmp, lcFolder, lcInstEXE, lcInstruct
store .f. to llFound, llDynaPath

with this
pcID = alltrim(upper(pcID))

**See if this Installation ID is in our array
for x = 1 to alen(.aInstall,1)
if alltrim(upper(.aInstall[x,1])) == pcID
llFound = .t.
exit
endif
endfor

if !llFound
.lError = .t.
.cError = &quot;Installation parms do not exist for ID: &quot;+pcID
return .f.
endif

**Copy array contents to variables
llDoInst = .aInstall[x,2]
lcProduct = .aInstall[x,3]
lcDesc = .aInstall[x,4]
lcFolder = .aInstall[x,5]
lcInstEXE = .aInstall[x,6]
if !empty(.aInstall[x,7])
lcInstruct = ALLTRIM(.aInstall[x,7])
if &quot;+&quot; $ lcInstruct
lcInstruct = &lcInstruct
endif
else
lcInstruct = &quot;Please accept the 'Default Values'&quot;+chr(13)+&quot;during the installation.&quot;
endif

**See if the path is &quot;dynamically&quot; generated based on variables
if &quot;+&quot; $ lcFolder
llDynaPath = .t.
else
llDynaPath = .f.
endif

**Are we allowed to install this product?
if llDoInst = .t.
**Make sure we have the Folder and Executable to install from?
if !empty(lcFolder) and !empty(lcInstEXE)
if llDynaPath
lcFolder = alltrim(lcFolder)
lcEval = &lcFolder
lcEval = lcEval+alltrim(lcInstEXE) &&command string
else
if right(lcFolder,1) <> &quot;\&quot; &&Make sure the final backslash exists
lcFolder = lcFolder + &quot;\&quot;
endif

lcEval = alltrim(lcFolder)+alltrim(lcInstEXE) &&command string
endif

**Make sure install .exe exists in the path given
if !llDynaPath and !file(lcEval)
.cError = &quot;Could not find installer for &quot;+lcProduct+&quot; in:&quot;+chr(13)+alltrim(lcEval)
.lError = .t.
else
if 7=messagebox(lcProduct+&quot; needs to be installed on your computer.&quot;+chr(13)+;
lcDesc+chr(13)+;
&quot;Is it OK to install now?&quot;,36,&quot;Confirmation&quot
.lError = .t.
.cError = &quot;User cancelled &quot;+lcProduct+&quot; Installation.&quot;
return .f.
endif

=messagebox(lcInstruct,64,&quot;Instructions&quot

**Do the Installation
.aInstall[x,2] = .f. &&Do not allow ourselves to get into a loop
lcEval = &quot;run /n &quot;+lcEval
&lcEval

=messagebox(&quot;When the Installation has finished&quot;+chr(13)+;
&quot;COMPLETELY, please click OK...&quot;,64,&quot;Waiting for Installation...&quot

**Did it work?
if 7=messagebox(&quot;Was the installation successfull?&quot;+chr(13)+chr(13)+;
&quot;If no errors ocurred during the Installation&quot;+chr(13)+;
&quot;and everything went OK, please click 'Yes'...&quot;,36,&quot;Everything OK?&quot
.lError = .t.
.cError = &quot;Errors ocurred during &quot;+lcProduct+&quot; Installation.&quot;
return .f.
else
.lError = .f.
.cError = &quot;&quot;
return .t.
endif
endif
endif
endif
endwith
return .f.
endfunc

enddefine

*** End of Class Print2PDF ***

 

[Brezhnev]

Mike!
Thanks a lot ...i modified it a bit..but bottom line -- everything is working now!

Thanks to everybody for help!