Discussion :

[PhilLU]

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 :

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

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

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

Code :

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

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é

Code :

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

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

Merci pour vos suggestions
Phil

[tourlourou]

Bonjour,

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

Je tenterais bien aussi un :

Code :

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

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;

[PhilLU]

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

[PhilLU]

Voici le code appelé:

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

Merci pour vos idées

[tourlourou]

Que donne l'affichage des arguments ?

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
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;

[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

[tourlourou]

Et que donne ceci ?

Code :

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

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

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

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

1
2
PDF2TXT.methode
PDF2TXT(Arg, Arg)

est très troublant.