Discussion :

[chekkal]

bonjour à tous,

je voudrais recuperer des images d'une ou plusieurs pages d'un fichier word pour les identifier pour un accée à partir de delphi comme le fait youtube par exple.

[SergioMaster]

ou une recherche dans le forum Delphi puisque le sujet a déjà été abordé dans diverses discussions comme le prouve cette image.
une "solution"

AMHA il y a plusieurs solutions OLE ou peut-être des composants tiers (i.e Winsoft Office Component Suite) nécessitant qu'office soit installé,
pour un "comme le fait youtube" j'imagine que webbrowser est la solution

[chekkal]

Bonjour,

C'est pas ça que je veut faire, je veux seulement récupérer l'image d'une des pages du fichier et le mettre dans un Timage.

[SergioMaster]

Alors peut-être que le composant TJamFilePreview de la suite ShellBrowser sera t-il correspondre à ce besoin ?
Si ce n'est que la première page, il y a aussi les thumbnails stockés dans C:\Users\<utilisateur>\AppData\Local\Microsoft\Windows\Explorer, encore faudra t-il trouvé un moyen de les extraire des .db (ce ne sont pas des fichiers SQLite mais des Compound File Binary Format (CFBF), structure propre à Microsoft

[chekkal]

Bonjour,

j'ai pensé à faire une capture d'ecran sur la page

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
 
var
  bitmap: TBitmap;
  desktopHandle: THandle;
  deviceContext: HDC;
begin
 
 w1 := CreateOleObject('word.Application');
         W1.WindowState:=wdWindowStateNormal;
W1.Visible := True;
W1.Activate;
 
  desktopHandle := GetDesktopWindow; // Récupération du handle du bureau
  deviceContext := GetDC(desktopHandle); // Récupération du contexte de périphérique du bureau
 
  bitmap := TBitmap.Create; // Création d'une image bitmap
    bitmap.width := screen.width; // Ajustement de la taille de l'image
    bitmap.height := screen.height; // pour qu'elle corresponde à celle du bureau
 
    BitBlt(bitmap.canvas.Handle, 0, 0, bitmap.width, bitmap.height,
      deviceContext, 0, 0, SRCCOPY); // Copie du bureau dans l'image bitmap

mais je récupère l'image du bureau avant que ms-word récupère le focus

[popo]

Si ton document Word est un DOCX, tu peux l'attaquer en le considérant comme une collection de fichiers XML (selon la norme Open XML).
Si tu en as le courage, tu peux l'attaquer comme le fait Bruno Sonnino dans cet exemple qui montre simplement le principe
https://blogs.msmvps.com/bsonnino/20...s-with-delphi/

Pour le réaliser tu devras te pencher sur la documentation de Open XML;
https://docs.microsoft.com/en-us/ope...1-3c63cea830a4
ou encore
http://officeopenxml.com/anatomyofOOXML.php
Et en particulier ce qui concerne les objets Drawing et ImagePart

Avec C#, il existe une librairie prête à l'emploi et gratuite.
En Delphi, tu peux essayer du coté de Direct Office mais ce sera payant
https://torry.net/pages.php?id=224

[ShaiLeTroll]

mais je récupère l'image du bureau avant que ms-word récupère le focus

Avec un FindWindow, tu peux récupérer la fenêtre du Word

une version très simplifié

Code :

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

1
2
3
4
 
Sleep(100);
WordCaption := w1.Caption;
SetForegroundWindow(FindWindow(nil, PChar(WordCaption)));

En réalité, faut faire un truc genre Repeat Sleep(1) until not FindWindow;

Ainsi le Word sera actif puis

Code :

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

deviceContext := GetDC(FindWindow(nil, PChar(WordCaption)));

Tu peux pousser le vice à ne récupérer que le handle RichEdit60W (le numéro change selon la version de Word)

[ShaiLeTroll]

j'imagine que webbrowser est la solution

Surement via OLE WebPagePreview doit fournir ce qu'il faut mais pour cela faut lire la documentation

Alors peut-être que le composant TJamFilePreview de la suite ShellBrowser sera t-il correspondre à ce besoin ?

A noter aussi le IPreviewHandler qui permet depuis le Shell View d'obtenir l'aperçu, c'est les API derrière l'Explorateur de Fichier qui fait cela nativement.
Un démo Hosting Preview Handlers in Delphi VCL Applications
Cela fait la même chose que le composant TJamFilePreview


Merci