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;