>SELECT Convert >nRECCOUNTCONVERT=ALLTRIM(STR(RECCOUNT())) >cRECCOUNTCONVERT=' of '+ALLTRIM(STR(RECCOUNT())) >Local loMyObject >loMyObject = CreateObject("MyObject") >loMyObject.Mainprocess() >Return > >DEFINE CLASS MyObject AS Custom >PROCEDURE Mainprocess >Local Parallel as Parallel >Parallel = NewObject("Parallel", "ParallelFox.vcx") >Parallel.SetWorkerCount(Parallel.CPUCount) >Parallel.StartWorkers() > >SCAN && Converts PS2PDF >iFilename=ALLTRIM(Fullpath) >oFilename=ALLTRIM(Newpath) >RCNON=Recno() >Parallel.CallMethod("ps2pdf", This.Class, This.ClassLibrary,,,iFilename,oFilename,RCNON) >ENDSCAN > >SCAN && Converts PDF2PS >oFilename=ALLTRIM(Fullpath) >iFilename=ALLTRIM(Newpath) >RCNON=Recno() >Parallel.CallMethod("Pdf2Ps", This.Class, This.ClassLibrary,,,oFilename,iFilename,RCNON) >ENDSCAN >Parallel.Wait >Parallel.StopWorkers() >ENDPROC > >** Convert ps files to PDF Using ps2PDF.Dll >PROCEDURE ps2PDF >PARAMETERS iFilename,oFilename,RCNON >DECLARE INTEGER _apCreate@0 IN ps2pdf.dll AS apCreate >DECLARE _apClose@4 IN ps2pdf.dll AS apClose INTEGER id >DECLARE INTEGER _apConvert@4 IN ps2pdf.dll AS apConvert INTEGER id >DECLARE INTEGER _apSetFunc@24 IN ps2pdf.dll AS apSetFunc INTEGER id, INTEGER code, INTEGER nOptVal1, INTEGER nOptVal2, STRING pOptVal1, STRING pOptVal2 >DECLARE INTEGER _apGetFunc@24 IN ps2pdf.dll AS apGetFunc INTEGER id, INTEGER code, INTEGER nOptVal1, INTEGER nOptVal2, STRING pOptVal1, STRING pOptVal2 >#define AP_Set_Output 3000 >#define AP_Set_Input 3001 >id=apCreate() >IF (id # 0) >apSetFunc(id, AP_Set_Input , 0, 0,iFilename, 0) &&input file. >apSetFunc(id, AP_Set_Output, 0, 0,oFilename, 0) &&output format and file. >apConvert(id) >apClose(id) >Sys(2335, 1) && disable unattended mode, allow UI >WAIT WINDOW 'Converting to PDF..'+ALLTRIM(STR(RCNON)) NOWAIT >*Worker.UpdateProgress(RECNO(), "Converting..") >ENDIF >ENDPROC > >PROCEDURE PDF2PS >PARAMETERS oFilename,iFilename,RCNON >Declare INTEGER VeryPDF_PDF2Vector in pdf2vec.dll String strCommandLine >Strcmd= 'pdf2vec -$ XXXXXXXXXXXXXXXX '+CHR(34)+iFilename+CHR(34)+" "+CHR(34)+oFilename+CHR(34) >nRet = VeryPDF_PDF2Vector(strcmd) >Sys(2335, 1) && disable unattended mode, allow UI >WAIT WINDOW 'Converting to PS..'+ALLTRIM(STR(RCNON)) NOWAIT >RETURN >ENDPROC >ENDDEFINE > >Did you test your PDF2PS function standalone?