Ouvrir un fichier .doc ou .excel avec Delphi

Version imprimable

02/08/2008, 16h55
cincap

Ouvrir un fichier *.doc ou *.excel avec Delphi

Bonjour à toutes et à tous,

Est t'il possible avec Delphi d'ouvrir un fichier *.doc et l'afficher dans un Timage, sans ouvrir Word.

Même chôse pour Excel.

Je n'ai rien trouver sur le net à part un composant pour D4 donc difficulté pour l'installer dans D6 puisqu'il demande le fichier *.pas qui n'est pas fourni avec.

Merci d'avance si quelqu'un à une piste,

@+,

Cincap
02/08/2008, 17h53
ALWEBER

Ta demande me laisse un peu perplexe !
Tu voudrais afficher l'image d'une page d'un document word dans une image ?

En effet

En effet, on pourrait utiliser le presse papier et l'afficher dans un timage genre ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 // Le clipboard contient une image (metafile)
    CF_METAFILEPICT, CF_ENHMETAFILE:
      with TImage.Create(self) do
      try
        Parent:= pnlView; // mon panel
        Align:= alClient;
        center:= true;
        Picture.Metafile.Assign(ClipBoard);
        AdjustGraphicSize(Width, Height, Picture.Graphic);
        im1.Picture.Assign(ClipBoard); // mon image
      except
        Free;
        pnlView.Caption:= 'Erreur lors de la récupération du metafile.';
      end;

J'obtiens bien la copie de mon document *.doc du pressepapier dans le Timage.

Mais j'aimerai sauver ce résultat en jpg, le fichier jpg reste vide avec ce code :

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
 
procedure TMainForm.Bsav1Click(Sender: TObject);
var
    Ext : string;
    i : integer;
begin
 { initialisation }
 
 
SPD2.DefaultExt := GraphicExtension(TBitmap);
 with SPD2 do begin
     Filter     := 'Images Jpeg (*.Jpg;*.Jpeg)|*.jpg';
     DefaultExt := '.jpg';
     if not execute then exit else
        case FilterIndex of
1 : with TJPEGImage.Create do
                 try
                   CompressionQuality  := 80; {75..85 : best ratio Size/Quality}
                   ProgressiveEncoding := True; {True : good for web or slow computer}
                   Assign(im1.picture);
                   SaveToFile(ChangeFileExt(FileName,'.jpg'));
                 finally
                   Free;
                 end;
      end; {case}
  end; {with}
 
end;

à mon avis, il y a un conflit avec Tbitmap et Tpicture.

@+,

Cincap

02/08/2008, 23h32
Jipété
Citation:

Envoyé par cincap

J'obtiens bien la copie de mon document *.doc du pressepapier dans le Timage.

Qu'est-ce que tu as mis dans le Presse-papier ?
- une copie d'écran (ALT PRINTSCREEN) du document ouvert dans Word ?
- le texte du document (Menu Édition, "Sélectionner tout / Copier") ouvert dans Word ?
Dans les deux cas le document est ouvert dans Word et je ne vois pas trop comment il pourrait en être autrement, or tu nous dis dans ton premier post "sans ouvrir Word".

Tu peux mieux t'expliquer ?
03/08/2008, 00h26
cincap

le texte du document (Menu Édition, "Sélectionner tout / Copier") ouvert dans Word ?

En fait, le document doc est ouvert par Word puis copié dans le pressepapier ensuite avec l'application Delphi ce document est visible dans le Timage.

Tout cela fonctionne.

Reste à utiliser ce qui est dans le Timage et le sauvegarder en jpg.

C'est la que cela coince.

@+,

Cincap
03/08/2008, 15h06
cincap

Tout est ok

Voila, j'ai trouvé l'erreur dans mon code partant du principe que l'image jpg était bien créée mais vide, il s'agissait d'une erreur au niveau de l'assign.

Merci à tous,

@+,

Cincap

Ouvrir un fichier *.doc ou *.excel avec Delphi

Ouvrir un fichier .doc ou .excel avec Delphi