Afficher un aperçu de document (word, excel, pdf, html, autre) dans une form

Version imprimable

Bonjour à tous,

j'ai dans mon application plusieurs liens vers des documents de tout types. Des classeurs Xls, des words, des Pdf et d'autre encore.

Pour le moment j'arrive à afficher les words et excel dans un panel avec un objet Olevariant. Mais cela est assez long.

Exemple de procédure :

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
30
31
32
33
34
35
36
37
38
39
40
Function Integrer_fichier(var h : THandle ; var Appli_OLE : Olevariant ; fichier_source : string ; panel : TPanel) : boolean;
var texte : string;
    Attrs : integer;
    t: DWORD;
begin
  result := false;
  Attrs := FileGetAttr(fichier_source); // récupère les attributs du fichier
  if (Attrs and $00000001) <> 0 then FileSetAttr(fichier_source, Attrs - $00000001);         // enlève la lecture seule
  Appli_OLE.Workbooks.open(fichier_source,,false);
  h := 0;
  t:= GetTickCount;
  texte := 'Microsoft Excel - ' + leftStr(extractfilename(fichier_source),length(extractfilename(fichier_source)) - 4);//extractfilename(fichier_source);
  while (h = 0) and (GetTickCount - t < TimeOut) do
  begin
    h:= FindWindow(nil, PChar(texte));
    Application.ProcessMessages;
  end;
 
 
  if h = 0 then
  begin
    h := 0;
    t:= GetTickCount;
    texte := 'Microsoft Excel - ' + extractfilename(fichier_source);
    while (h = 0) and (GetTickCount - t < TimeOut) do
    begin
      h:= FindWindow(nil, PChar(texte));
      Application.ProcessMessages;
    end;
  end;
 
  if h <> 0 then
  begin
    // On change le parent de la fenêtre par notre panel (par exemple)
    Windows.SetParent(h, panel.Handle);
    FileSetAttr(fichier_source, $00000001); // Mise en lecture seule
    Appli_OLE.visible:=true;
    result := true;
  end;
end;

Je voulais savoir s'il existe une méthode simple pour afficher n'importe quel fichier de n'importe quel type dans un panel avec une taille précise.

Merci de vos réponses ;)

05/09/2006, 16h46
Soulama

essaye le TWebBrowser, il peut afficher bocou de type de fichier.
@+
05/09/2006, 17h04
SkYsO

je ne connait pas trop ce composant.

Mais par exemple avec un fichier excel on procéderait comment ?
car un navigate demande de l'enregistrer ou de l'ouvrir mais ne me permet pas de l'afficher dans mon webbrowser dans mon panel

merci ;)

Salut,
essaye ca:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  Dlg: TopenDialog ;
begin
  Dlg:= TopenDialog.Create(nil) ;
  Try
    if Dlg.Execute Then
      Br.Navigate(dlg.FileName);
  Finally
    Freeandnil(Dlg);
  End ;
end;

avec ce code jai reussi a ouvrir un doc excel sans probleme.
@+

07/09/2006, 08h20
SkYsO

salut,

en effet ça demande de l'ouvrir avec une boite de dialog qui te demander : enregistrer, ouvrir ou autre.
Mais ça ne me l'ouvre pas dans mon panel à chaque coup sans me demander de confirmation.
09/10/2009, 09h23
Toon74

Je me permet de faire un up, j'ai exactement le même problème : ouvrir un document (pdf pour moi) dans un composant, quel qu'il soit, en un seul clic dans ma liste box.

@SkYsO : désolé si je t'ai donné un faux espoir...

Merci de vos réponses
09/10/2009, 13h27
Franck SORIANO

Si tu veux afficher uniquement des PDF, le plus simple c'est de passer par l'ActiveX d'Acrobat Reader.

Si on veut afficher tout type de document, le plus simple c'est bien la méthode préconisée plus haut : Un WebBrowser, en faisant un navigate sur le fichier en question, ou encore d'utiliser le composant TOleContainer qui est prévu à cet effet.

Par contre en travaillant de cette façon, il n'y a pas de miracle : Pour afficher un Word, il faut que Word soit installé sur le poste, pour afficher un PDF, il faut qu'Acrobat Reader (ou un viewer équivalent compatible automation) soit installé...
Ce n'est pas le WebBrowser en lui même qui affiche le composant, il joue simplement le rôle de container OLE.
09/10/2009, 14h12
Toon74

Merci pour ces précisions, je vais faire des tests avec tout ca :)