Ghostscript et PDF

Version imprimable

Ghostscript et PDF

Bonjour,
Je tente de convertir un pdf en txt.
J'utilise les unités GhostTools.pas et gsapi.pas dans mon projet.
CF ce post: https://stackoverflow.com/questions/...89424#45689424

La procédure à appeler est:

Code:

procedure PDS2TXT(input : AnsiString; output: AnsiString);

Je ne retourne rien avec ce code: (qui compile sans erreur) :calim2:
Code:

1 2 3 4 5 6 7 8 procedure TForm1.Button1Click(Sender: TObject); begin opendialog1.Execute(); memo1.Lines.Append(opendialog1.FileName); PDF2TXT.input:=opendialog1.FileName; PDF2TXT.output:='test'; PDF2TXT.Form1.Update; end;
Par contre quand j'utilise ce code, j,ai une erreur '.' attendu mais '(' trouvé :weird:
Code:

1 2 3 PDF2TXT.input:=opendialog1.FileName; PDF2TXT.output:='test'; PDF2TXT(input,output) //'.' attendu mais '(' trouvé
Merci pour vos suggestions ;)
Phil

Bonjour,

Il pourrait être édifiant d'ajouter au Memo la ligne d'arguments envoyée à la gsapi.

Je tenterais bien aussi un :
Code:

1 2 3 4 5 6 7 8 9 10 11 with OpenDialog1 do begin if Execute then begin S:=FileName; Memo1.Lines.Add(S); PDF2TXT.input:=S; PDF2TXT.output:='test'; Form1.Update; end; end;

18/08/2017, 00h19
PhilLU

Merci Tourlourou, mais malheureusement celà ne génère rien :-(

Voici le code appelé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure PDF2TXT(input : AnsiString; output: AnsiString);
var   ExitCode:integer;
  instance: Pointer;
      Arg: array of PAnsiChar;
begin
  ExitCode := gsapi_new_instance(instance, nil);
  if ExitCode < 0 then
    raise Exception.Create('Impossible to open an instance of ghostscript. Error ExitCode: '+IntToStr(ExitCode));
  try
    SetLength(Arg, 5);
    Arg[0] := PAnsiChar('-dBATCH');
    Arg[1] := PAnsiChar('-dNOPAUSE');
    Arg[2] := PAnsiChar('-sDEVICE=txtwrite');
    Arg[3] := PAnsiChar('-sOutputFile='+ output + '.txt' );
    Arg[4] := PAnsiChar(input);
 
    ExitCode := gsapi_init_with_args(instance, Length(Arg), @Arg[0]);
    if ExitCode < 0 then raise Exception.Create('ERROR: init_args: '+IntToStr(ExitCode));
    gsapi_exit(instance);
  finally
    gsapi_delete_instance(instance);
  end;
end;

La dernière version de gsdll32.dll est présente dans le dossier de l'exécutable, ainsi que Ghosttools.dcu et gsapi.dcu

Le code compile bien mais aucun fichier n'est généré... :calim2:

Merci pour vos idées ;)

Que donne l'affichage des arguments ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure PDF2TXT(input : AnsiString; output: AnsiString);
var   ExitCode:integer;
  instance: Pointer;
      Arg: array of PAnsiChar;
begin
  ExitCode := gsapi_new_instance(instance, nil);
  if ExitCode < 0 then
    raise Exception.Create('Impossible to open an instance of ghostscript. Error ExitCode: '+IntToStr(ExitCode));
  try
    SetLength(Arg, 5);
    Arg[0] := PAnsiChar('-dBATCH');
    Arg[1] := PAnsiChar('-dNOPAUSE');
    Arg[2] := PAnsiChar('-sDEVICE=txtwrite');
    Arg[3] := PAnsiChar('-sOutputFile='+ output + '.txt' );
    Arg[4] := PAnsiChar(input);
 
// pê pas le code exact... mais l'idée y est !
msg:=nil;
esp:=' ';
for i:=0 to 4 do begin msg:=Strcat(msg, Arg[i]); msg:=Strcat(msg,esp); end;
ShowMessage(msg);
 
    ExitCode := gsapi_init_with_args(instance, Length(Arg), @Arg[0]);
    if ExitCode < 0 then raise Exception.Create('ERROR: init_args: '+IntToStr(ExitCode));
    gsapi_exit(instance);
  finally
    gsapi_delete_instance(instance);
  end;
end;

22/08/2017, 21h56
PhilLU

Bonsoir Tourlourou,
Malheureusement je n'arrive pas à faire tourner mon appli avec cette procédure.
Elle est déjà contenue dans l'unité GhostTools.pas
Peux-tu m'éclairer?

Merci pour ton aide,
PhilLu

Et que donne ceci ?

Code:

1
2
3
4
5
6
7
with OpenDialog1 do
begin
  if Execute then
  begin
    S:=FileName;
    PDF2TXT(S, 'test');
  end;

30/08/2017, 16h37
Hermite
Bonjour.
La procédure à appeler est PDF2TXT ou PDS2TXT ?

Dans le premier cas, il y a donc une procédure et un objet avec le même nom. J'imagine alors qu'il y a conflit, ou alors l'unité qui contient la procédure n'est pas déclarée dans tes uses, donc quand tu appelles la procédure, elle n'est pas trouvée.

Dans le second cas, il y a une coquille dans ton code sur l'appel de la procédure (un F à la place d'un S).

Dans tous les cas avoir à la suite deux lignes de code comme ceci
Code:

1 2 PDF2TXT.methode PDF2TXT(Arg, Arg)
est très troublant.