Есть проект на VB.NET, работает с Acrobat SDK, решает задачу преобразования профилей.
- Код: Выделить всё
Dim App = CreateObject("AcroExch.App")
Dim PDDoc = CreateObject("AcroExch.PDDoc")
PDDoc.Open(SamplePDF)
App.Hide()
Dim jso = PDDoc.GetJSObject
Dim doc = jso.app.openDoc(SamplePDF)
For i = 0 To 99
Dim target = doc.getColorConvertAction
target.matchAttributesAny = -1
target.matchSpaceTypeAny = Not target.constants.spaceFlags.AlternateSpace
target.matchIntent = target.constants.renderingIntents.Any
target.convertProfile = "Apple RGB"
target.convertIntent = target.constants.renderingIntents.Document
target.embed = False
target.preserveBlack = False
target.useBlackPointCompensation = True
target.action = target.constants.actions.Convert
Dim Arr1() As Object = New Object() {target}
Dim Arr2() As Object = New Object() {}
doc.colorConvertPage(i, Arr1, Arr2)
Thread.Sleep(100)
Debug.Print(i)
Next i
doc.saveAs(SamplePDF)
Thread.Sleep(1000)
doc.closeDoc(True)
PDDoc.Close()
App.Exit()
PDDoc = Nothing
App = Nothing
Иногда Акробат отваливается
Хотелось бы авторитетных мнений по обработке/предотвращению ошибки.