Discussion :

[bidochon]

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 :

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

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[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 ...

[bidochon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[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.

[Bruno13]

Bonjour Bidochon,

J'ai une erreur sur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
...
AcroAVDoc.Exit;
...

Il semble que le Exit n'existe pas sur l'objet.

Une idée ?

Amicalement,
Bruno