Discussion :

[SkYsO]

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 :

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

[Soulama]

essaye le TWebBrowser, il peut afficher bocou de type de fichier.
@+

[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

[Soulama]

Salut,
essaye ca:

Code :

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

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.
@+

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

[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