file in use by PDF Viewer

[malsalcnc]

I would like to be able to press a button on a form and select a PDF file and copy it to a directory that will be the default for the application that I am creating.
this means that all the pdf files are in the same place regardless of who made them and where they originally reside.

this works when there is no file to overwrite but as soon as the file exists in the new place I cant overwrite as its already open.

dim defdir as C = "C:\Users\Public\3.CadCamPC CAD files"
dim this_path as C
dim bare_path as C
dim app_path as C
dim shadowed as L

this_path=:a5.Get_Path()
bare_path=:a5.Get_Master_Path()
if len(alltrim(bare_path) ) = 0 then 'if zero, not shadowed
    shadowed =.F.
    app_path = this_path + chr(92)
else
    shadowed =.T.
    app_path = bare_path + chr(92)
end if

filenameSource = ui_get_file("Select File", "", defdir +"\*.pdf")

FileNameDest = topparent.PRODUCT_ID.value
PathNameDest = app_path + "PDF_Files\Autopdf\\"

file.copy(filenameSource,PathNameDest + filenameDest+ ".pdf")

:product:pdfviewer1.refresh()

I understand why I get the error
This is the error I get.

---------------------------
Error
---------------------------
Script:OnPush line:27
file.copy(filenameSource,PathNameDest + filenameDest+ ".pdf")
The process cannot access the file because it is being used by another process.

C:\Users\Cadcam\Documents\Production\AutoProd\PDF_Files\Autopdf\1.pdf
---------------------------
OK
---------------------------

Is there any way to close the file so I can overwrite it with out leaving the form?

[Stan Mathews]

Re: file in use by PDF Viewer

Originally didn't understand that you are viewing the pdf in the Alpha form when you want to be able to replace it. I don't think that's going to happen unless you can

change/swap the current pdf for a generic "in progress" pdf, perform the copy, change /swap back to the new pdf. That may present the same issue you have since the present pdf in use can't be renamed.

[Stan Mathews]

Re: file in use by PDF Viewer

Not sure what your usage is but you can do something like this

old_file = topparent:Pdfviewer1.Settings.Expr 'capture the original file name
topparent:Pdfviewer1.Settings.Expr = "C:\inprogress.pdf" 'set the form object pdf to a dummy value
file.copy(filenameSource,PathNameDest + filenameDest+ ".pdf") 'perform the copy/overwrite
topparent:Pdfviewer1.Settings.Expr = old_file 'set the form object pdf back to what it was

Unless your product_id field is always completely filled you probably want

FileNameDest = alltrim(topparent.PRODUCT_ID.value)

[malsalcnc]

Re: file in use by PDF Viewer

Thanks Stan

Had tried something like that but got nowhere. your post encouraged me to keep going. Sometimes alpha syntax seems a bit obscure.

This worked.

Topparent wouldn't work so had to use form name.

The key was the wait as the file needed to unload before being changed

this_path=:a5.Get_Path()
bare_path=:a5.Get_Master_Path()
if len(alltrim(bare_path) ) = 0 then 'if zero, not shadowed
    shadowed =.F.
    app_path = this_path + chr(92)
else
    shadowed =.T.
    app_path = bare_path + chr(92)
end if

filenameSource = ui_get_file("Select File", "", defdir +"\*.pdf")
if filenameSource = "" then
	'user selected cancel, so end script
	end
end if

FileNameDest = topparent.PRODUCT_ID.value
PathNameDest = app_path + "PDF_Files\Autopdf\\"

old_file = topparent:Pdfviewer1.Settings.Expr 'capture the original file name
:product:Pdfviewer1.Settings.Expr = quote("c:\test\nopdf.pdf","\"") 'set the form object pdf to a dummy value

:product:pdfviewer1.refresh()

XBASIC_WAIT_FOR_IDLE()

file.copy(filenameSource,PathNameDest + filenameDest+ ".pdf")

:product:Pdfviewer1.Settings.Expr = old_file 'set the form object pdf back to what it was

:product:pdfviewer1.refresh()

[Stan Mathews]

Re: file in use by PDF Viewer

Glad to be of some assistance.

Timing is often an issue. I was testing with small pdf files so the mileage was different. Can't imagine why the topparent was an issue.