Hola mi nombre es Juan, tengo un problema con las librerías de Acrobat_TLB.pas estoy intentando hacer funcionar esta función (oJSO.SaveAs('MyNewDOC.doc')
y no consigo que funcione.
Alguien sabe cual es el problema?
Gracias de antemano.
Este es el código:
uses
Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,ShellApi,tlhelp32,
Psapi, FileCtrl,Vcl.OleCtnrs,System.Win.ComObj;
procedure TFormConversor.Button10Click(Sender: TObject);
var
oAApp: Variant;
oAVDoc: Variant;
oJSO: Variant;
oPDDoc: Variant;
begin
//Acrobat_TLB.pas
oAApp := CreateOleObject('AcroExch.App');
oAVDoc := CreateOleObject('AcroExch.AVDoc');
if oAVDoc.Open(''MyNewPDF', '') then
begin
oPDDoc := oAVDoc.GetPDDoc;
oJSO := oPDDoc.GetJSObject; //GetJSOObject;
oJSO.SaveAs('MyNewDOC.doc');
//function Save(nType: Smallint; const sFullPath: WideString): WordBool; safecall;
oJSO.CloseDoc;
end;
oAApp.Exit;
oJSO := VarNull;
oPDDoc := VarNull;
oAVDoc := VarNull;
oAApp := VarNull;
end;