Discussion :

[cincap]

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

[ALWEBER]

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

[cincap]

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

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

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

[Jipété]

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 ?

[cincap]

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

[cincap]

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