>>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 >>local llReTry >llReTry = .f. > >>Parallel = NewObject("Parallel", "ParallelFox.vcx") >>Parallel.SetWorkerCount(Parallel.CPUCount) >>Parallel.StartWorkers() >> >>SCAN >>oFilename=ALLTRIM(Fullpath) >>iFilename=ALLTRIM(Newpath) >>RCNON=Recno() >>Try >>Parallel.CallMethod("Pdf2Ps", This.Class, This.ClassLibrary,,,oFilename,iFilename,RCNON) >>catch to loError >> if loError.ErrorNo = 2027 >> llReTry = .t. >> else >> * log the error >> endif >>ENDTRY >>if m.llReTry >> try >>Parallel.CallMethod("Pdf2Ps", This.Class, This.ClassLibrary,,,oFilename,iFilename,RCNON) >> catch to loError >> * log the error > >>ENDTRY >>ENDSCAN >>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 >> >>>