>>>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 >>> >>>>>
llReTry = .f. lnAttempts = 0 try code that may fail catch to loError if loError.ErrorNo = 2027 llReTry = .t. endif endtry do while m.llReTry = .t. and m.lnAttempts <= 10 lnAttempts = m.lnAttempts + 1 try code that may fail llReTry = .f. catch to loError if loError.ErrorNo = 2027 llReTry = .t. endif endtry enddo