Discussion :

[Bruno13]

Bonjour à tous,

voici mon probleme, je ne sais pas comment faire 2 ou 3 petites choses ! à savoir :
- Comment puis-je implementer la reconnaissance/conversion des PDF et des RTF en sachant que j'ai les filtres à ma disposition, l'install proposée par Delphi pour le format PDF ne fonctionne pas dans mon prog, le retour est vide !!! Pour les RTF, en revanche j'ai que la dll, j'ai essayé de renseigner la clé de registre :

Code :

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

1
2
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\ContentIndex
dans DLLsToRegister

mais toujours rien !?

J'ai chez moi et chez quelques'uns de mes amis la conversion Doc, XLS, XLD, PPT et PPS qui fonctionne. Ils sont sous XP et chez d'autres aussi sous XP cela ne fonctionne pas.

Comment puis je faire en sorte que cela fonctionne chez tout le monde ?
En sachant que d'aprés ce que j'ai lu, il n'est pas necessaire d'avoir un catalogue IIS fabriqué !?


Merci à tous pour votre aide,

PS : voici le bout de mon code, juste un bouton go sur une fiche
PS2 : le fichier est commenté là où j'ai mes problemes.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SPSumInf, SPFilter;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var info: TSummaryInformation;
    stream : TMemoryStream;
    c : PChar;
begin
  info:=nil;
  // ceci avec un doc, xls, xld, ppt et pps plante à chaque fois 
  // quelque soit le fichier. L'erreur est dans le fichier SPSumInf.pas
  GetSummaryInformation('c:\f.doc', Info);
  showmessage(Info.Title);
 
 // fonctionne pas pour PDF et RTF !!!
 Stream:=TMemoryStream.Create;
 Try
  GetFileContentsFromIFilter('c:\a.pdf', stream);
  Stream.Seek(0, soFromBeginning);
  c:=Stream.Memory;
  showmessage(c); // le showmessage est vide
  // Le pas à pas va bien chercher le fichier pdffilt.dll
// mais à un moment j'ai une fonction qui renvoie None_OK
 Finally
   Stream.free;
 End;
 
end;
 
end.

Amicalement,
Bruno

[Bruno13]

up