delphi export pdf to html [приостановлено]

Я сделал программное обеспечение, которое обеспечивает экспорт файла pdf на html-страницу.

Я использую язык программирования Delphi, чтобы сделать это со следующим кодом, если Acrobat DC Pro был установлен на компьютере:

{$R *.dfm}  
{$TYPEDADDRESS OFF}  
var  
  objAcroApp: AcroApp;  
  objAcroAVDoc: AcroAVDoc;  
  objAcroPDDoc: AcroPDDoc;  
  objJSO: Variant;  
  boResult: Boolean;  

procedure TForm1.Button2Click(Sender: TObject);  
var  
  workPath : string;  
begin  
  workPath:= 'c:temp';  
  objAcroApp := CreateOleObject('AcroExch.App');  
  objAcroAVDoc := CreateOleObject('AcroExch.AVDoc');  
  boResult := objAcroAVDoc.Open(workPath + 'test.pdf', '');  
  objAcroPDDoc := objAcroAVDoc.GetPDDoc;  
  objJSO := objAcroPDDoc.GetJSObject;  
  boResult := objJSO.SaveAs(workPath + 'test.html', 'com.adobe.acrobat.html');  
  boResult := objAcroAVDoc.Close(true);  
  boResult := objAcroApp.Exit;  
  objJSO := Unassigned;  
  objAcroPDDoc := Unassigned;  
  objAcroAVDoc := Unassigned;  
  objAcroApp := Unassigned;  
end;  

Но, таким образом, я должен купить Acrobat DC Pro для каждого клиента.

Знаете ли вы другой способ выполнения процесса?

Спасибо за помощь.

html,delphi,pdf,

-1

Ответов: 0

delphi export pdf to html [приостановлено]

Я сделал программное обеспечение, которое обеспечивает экспорт файла pdf на html-страницу.

Я использую язык программирования Delphi, чтобы сделать это со следующим кодом, если Acrobat DC Pro был установлен на компьютере:

{$R *.dfm}  
{$TYPEDADDRESS OFF}  
var  
  objAcroApp: AcroApp;  
  objAcroAVDoc: AcroAVDoc;  
  objAcroPDDoc: AcroPDDoc;  
  objJSO: Variant;  
  boResult: Boolean;  

procedure TForm1.Button2Click(Sender: TObject);  
var  
  workPath : string;  
begin  
  workPath:= 'c:temp';  
  objAcroApp := CreateOleObject('AcroExch.App');  
  objAcroAVDoc := CreateOleObject('AcroExch.AVDoc');  
  boResult := objAcroAVDoc.Open(workPath + 'test.pdf', '');  
  objAcroPDDoc := objAcroAVDoc.GetPDDoc;  
  objJSO := objAcroPDDoc.GetJSObject;  
  boResult := objJSO.SaveAs(workPath + 'test.html', 'com.adobe.acrobat.html');  
  boResult := objAcroAVDoc.Close(true);  
  boResult := objAcroApp.Exit;  
  objJSO := Unassigned;  
  objAcroPDDoc := Unassigned;  
  objAcroAVDoc := Unassigned;  
  objAcroApp := Unassigned;  
end;  

Но, таким образом, я должен купить Acrobat DC Pro для каждого клиента.

Знаете ли вы другой способ выполнения процесса?

Спасибо за помощь.

0-1HTML, Дельфы, PDF,
Похожие вопросы