I have a problem deleting an image file after editing it. Here's what I do to edit (add text) to the multi page tiff:
- Code: Select all
Procedure pAddVernr Integer iVernr
String sVernr sFilePath sPDFDir sImage
Integer iPicStatus iImage iWidth iLength
Boolean bOK bMultiPage
Move ("Vernr: " + (String(iVernr))) to sVernr
Move (Length(sVernr)) to iLength
Get ComGetNativeImage of oGdViewer1 to iImage
Get ComTiffIsMultiPage of oGdImaging1 iImage to bMultiPage
If (bMultiPage) Begin
Get psCurrentImage of oLREB0100 to sImage
Get ComCreateImageFromFile of oGdImaging1 sImage to iImage
End
Get ComGetWidth of oGdImaging1 to iWidth
Get ComDrawText of oGdImaging1 sVernr 1350 5 14 OLEFontStyleBold OLEBlack "ARIAL" False to iPicStatus
Get ComSetNativeImage of oGdViewer1 iImage to iPicStatus
Get psPDFDir of oLREB0100 to sPDFDir
Move (String(iVernr)) to sVernr
Move (Trim(sPDFDir)) to sPDFDir
If ((Pos(":", sPDFDir)) or (Pos("\\", sPDFDir))) Begin
Move (sPDFDir + "\" + sVernr + ".pdf") to sFilePath
End
Else Move (sPathDatabase + sPDFDir + sVernr + ".pdf") to sFilePath
If (bMultiPage) Begin
Get ComPdfCreateFromMultipageTIFFEx of oGdImaging1 iImage sFilePath "" "" "" "" "" OLEPdfEncryptionNone OLEPdfRightUndefined "" "" to iPicStatus
Get ComTiffCloseNativeMultiPage of oGdImaging1 to iPicStatus
Get ComCloseImage of oGdImaging1 iImage to iPicStatus
End
End_Procedure
I then try to remove the tiff file (as I have saved it as a pdf):
- Code: Select all
Procedure pDelete
String sImage sTest
Boolean bFileExist bOK
Integer iPicStatus
Get psCurrentImage of oLREB0100 to sImage
File_Exist sImage bFileExist
Send ComCloseImage of oGdViewer1
If (bFileExist) Get vDeleteFile sImage to bOK
Set psCurrentImage of oLREB0100 to ""
Send pUpdateList of oList1
Send OnChange of oList1
End_Procedure
I cannot delte the tiff file here, it seems it is being held by one of the GD objects, I have tried to release it but does not succeed. Can you please help me?
sincerely
/Leif Angestam
