The following code snippet illustrates how one might add an
image and then delete it if the image color space is CMYK.
Set theDoc = Server.CreateObject("ABCpdf12.Doc")
theID1 = theDoc.AddImageFile("c:\mypics\mypic.jpg", 1)
theID2 = theDoc.GetInfo(theID1, "XObject")
theComps = theDoc.GetInfo(theID2, "Components")
If theComps = 4 Then theDoc.Delete(theID1)
theDoc.Save "c:\mypdfs\docdelete.pdf"

docdelete.pdf
|