Message erreur sur variant [PDF -> TEXT]

Version imprimable

Bonjour,
je viens de trouver quelques lignes de code qui permettent de transformer un pdf en text, mais voila j'ai une erreur qui apparait et je ne voit pas comment trouver une solution a ce probleme.
L'erreur apparait au niveau du AVDoc.Open(APDFFileName,''); avec comme message :

Citation:

violation d'acces a l'adresse 0048D583 dans le module project1.exe. Lecture de l'adresse 00000000

Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Uses ... ComObj ... ; procedure TForm1.PDF2Text(APDFFileName, ATextFileName: TFileName); var App,AVDoc:Variant; begin App:=CreateOleObject('AcroExch.App'); AVDoc:=App.GetActiveDoc;//doc handle AVDoc.Open(APDFFileName,''); App.MenuItemExecute('Edit'); App.MenuItemExecute('SelectAll'); App.MenuItemExecute('Edit'); App.MenuItemExecute('Copy'); Memo1.PasteFromClipboard; Memo1.Lines.SaveToFile(ATextFileName); App.Exit; end;

19/06/2007, 18h41
ShaiLeTroll

AVDoc ne serait pas à nil car si tu ouvres l'appli, et qu'il n'y a de document ouvert, puisque le open est fait après ... GetActiveDoc ne peut pas envoyer de doc actif ... c'est le chat qui se mord la queue ...

Merci ShaiLeTroll pour ta preponse.
Bon finallement je m'en suis sortit, ca fonctionne, je laisse le bout de code si cela interresse du monde.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.PDF2Text(APDFFileName, ATextFileName: TFileName);
var  AcroApp,AcroAVDoc:Variant;
begin
  try
    AcroApp := CreateOleObject('AcroExch.App');
    AcroAVDoc := CreateOleObject('AcroExch.AVDoc');
    AcroAVDoc.Open(APDFFileName, '');
    if AcroAVDoc.IsValid then
    begin
      AcroApp.MenuItemExecute('Edit');  //select all and copy to clipboard
      AcroApp.MenuItemExecute('SelectAll');
      AcroApp.MenuItemExecute('Edit');
      AcroApp.MenuItemExecute('Copy');
      Memo1.PasteFromClipboard;
      Memo1.Lines.SaveToFile(ATextFileName);
    end;
  finally
    AcroAVDoc.exit;
    VarClear(AcroAVDoc);
    VarClear(AcroApp);
  end;
end;

18/09/2007, 09h28
Tcheby

Je m'excuse si il ne faut pas remonter des vieux posts mais là j'ai des lacunes :?

Je recherche le moyen d'accéder au contenu texte d'un fichier PDF. La méthode proposée ci dessus me semble convenir parfaitement malheureusement mes connaissances sur l'OLE sont limitées.
Je voudrais savoir comment connaitre le nom de l'Automation qui va bien pour gérer le PDF.
Y'a t'il une manip à faire avant d'utiliser ce bout de code ?

Merci de votre aide.
04/01/2008, 18h37
Bruno13
Bonjour Bidochon,

J'ai une erreur sur la ligne :
Code:

1 2 3 ... AcroAVDoc.Exit; ...
Il semble que le Exit n'existe pas sur l'objet.

Une idée ?

Amicalement,
Bruno