Comet32 path problem

[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]

Posted by Grant Foraker on May 17, 2011 at 06:43:59: Uploaded files: 2

Getting a different path length from Comet32. Path1 (Comet16) is length of path before double quotes are added plus the path to the file. Path2 is run under Comet32. Path is one higher and the trailing double quote is missing. Looks like there may be a trailing null in Comet32.


LaunchTheDocument:
     CLOSE (1)                                              ! RELEASE PRINTER   
	INPUT (#) PDFDOC$                                      ! GET pdfFactory name
	
	LET PDFDOC$ = STRIP(PDFDOC$)
	LET PDFL = LEN(PDFDOC$)
	LET PDFP = RPOS('\',PDFDOC$)
	LET PDFFILE$ = SUB(PDFDOC$,PDFP+1,PDFL-PDFP)
	LET PDFFILE$ = STRIP(PDFFILE$)
			
	LET PDFDOC$ = '"' + STRIP(PDFDOC$) + '"'
	
	LET Stat$ = Sub(Dstat(ITERM$, EXCP = LTD20),21,1)
	If Sub(Binary(Stat$),8,1) NE "1" Go LTD20     		! not Comet Anywhere?
LTD10:
	LET CAWDOC$ = '"' + '$(CATEMP)\' + PDFFILE$ + '"'
	LET FLAGS = 0 + 512 + 1024 + 2048
	Print (CopyFile = PDFDOC$, CAWDOC$, FLAGS)
	GOSUB GetResult
     IF FuncError NE 1
     	LET MBMSG$ = 'Copy Error:' + STR(FuncError) + '/' + STR(FileError)
          MSGBOX(MBMSG$)
          GOTO LTD90
     ENDIF	MSGBOX(CAWDOC$)	
	PRINT (LAUNCH = CAWDOC$)
	GOSUB GetResult
     IF FuncError LE 32
     	LET MBMSG$ = 'Launch Error (Remote):' + STR(FuncError) + '/' + STR(FileError)
          MSGBOX(MBMSG$)
     ENDIF
	GOTO LTD90
LTD20:
	LET MBMSG$ = STR(PDFL) + PDFDOC$
	MSGBOX(MBMSG$)		




Follow Ups:


Re: Comet32 path problem Grant Foraker 08:55:04 05/17/11
(0)





Post a Followup







Name: 

E-Mail: 
Subject: 


What is the name of the main Signature System's Product?  

Comments:



Optional Link URL: 

Link Title: 

Optional Image URL: 

You may attach up to 5 files to your followup (see below): 






 
 Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.

[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]