Discussion :

[ARDILLER]

Bonjour à tous.

Je recherche comment récupérer la sélection (le texte sélectionné) dans une page web externe à mon application (laquelle s'éxécute en tache de fond).
En sachant que je connais :
1- La classe du contrôle ("Internet Explorer_Server").
2- Le Handle du contrôle.

Quel(s) message(s) puis-je lui envoyer pour récupérer la sélection (sous forme de string ou de TStringList) ?

Toute aide sera la bienvenue..
D'avance merci.
Amicalement,
Claude.

Ps: J'aurais la même question pour les documents Word, Pdf, et Delphi :-).

[Gilbert Geyer]

Suggestion : Le texte étant sélectionné sur la page manuellement à la souris, poursuivre avec la combinaison de touches-clavier Ctrl+C qui envoie la sélection dans le presse-papier puis récupérer le contenu du presse-papier d'une manière ou d'une autre.

Exemple 1 : Après sélection et envoi dans le presse-papier je réactive Word et avec Ctrl+V ou le bouton correspondant je colle le pp dans Word ce qui permet de récupérer le texte ET les images.

Exemple 2 : Après sélection et envoi dans le presse-papier je réactive mon appli Delphi et avec Ctrl+V ou un bouton(*) correspondant je colle le pp dans un TRichEdit et cela me récupère le texte sans les images mais au format RTF ce qui est bigrement mieux qu'une string ou une TStringList.

(*): avec RichEdit1.PasteFromClipboard;

[ARDILLER]

Merci de ta réponse, Gilbert Geyer.
Utiliser le presse-papier est une chose à laquelle j'avais pensé, mais cela impliquait de créer un ersatz de Clipboard afin de mettre temporairement son contenu avant de la restituer une fois le traitement des informations terminé (et ce quelque soient les données qui y seraient contenues).
De plus, mon application ne comporte pas de Forme ou de composants, seulement des fonctions de comparaisons de chaines ou de listes de chaines.
Je pense qu'on doit pouvoir utiliser une API afin de demander au contrôle focalisé le texte sélectionné en cours (comme doit le faire Windows JUSTE AVANT de la transférer dans le presse-papier).
Si quelqu'un a déjà travaillé sur ce problème, toute indication serait la bienvenue.
Amicalement,
Claude.

[Kaféine]

Salut,

Apparement si je comprend bien tu veux récupérer la selection faite sur une page web d'un internet explorer.

Je trouve ton problème interessant et c'est pourquoi je t'expose mon approche.

résumé des étapes (3) de mon approche:
Dans un premier temps, je récupère toutes les fenêtres dispo et je m'interesse au fenêtre Internet Explorer.
une fois trouvée je récupère son document et je renvois la selection dans son document si il y en a une et on l'affiche dans un memo

...mon application (laquelle s'éxécute en tache de fond)

pour simplifier on va coller un simple TTimer plutot qu'un thread


Allez go: nouvelle application avec un timer et un memo

on aura besoin des unités SHDocVw et MSHTML dans notre clause uses.

1) on doit récupérer les fenetres d'IE.

pour ca on declare une variable du type IShellWindow:

Code :

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

1
2
3
4
5
 
TForm1 = class(TForm)
 (...)
  private
    SW: IShellWindows;

et evidement on l'instancie de le create de la form et on la vire dans le destroy

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SW := CoShellWindows.Create;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  SW := nil;
end;

a ce stade on a toutes les fenetre du Shell tanpis on prendra la 1ere IE trouve dans le timer

2) une fois que l'on a la fenetre on recupere la selection via son document html
et on renvoi cette selectin dans une stringlist.

c'est précisement l'objet de cette fonction

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
 
function TForm1.RecupSelection(const Disp: IDispatch): TStrings;
var
  WB: IWebBrowser2;
  lHtml: IHTMLDocument2;
  lSel: IHTMLSelectionObject;
  lRange: IHTMLTxtRange;
begin
  Result := TStringList.Create;
  if Disp <> nil then
  begin
    if not Supports(Disp, IWebBrowser2) then Exit;
    WB := Disp as IWebBrowser2;
 
    if not Supports(WB.Document, IHTMLDocument2) then Exit;
    lHtml := WB.Document as IHTMLDocument2;
 
    lSel := lHtml.selection;
 
    if lSel <> nil then
    begin
      if lSel.type_ = 'Text' then
      begin
        lRange := lSel.createRange as IHTMLTxtRange;
        if (lRange <> nil) and (Length(Trim(LRange.text)) > 0) then
          Result.Text := LRange.text;
      end;
    end;
  end;
end;

elle est assez explicite je pense.

3) ok c'est cool maintenant on va afficher la selection en temps reel sur le memo
avec un rafraichissement à chaque seconde du timer

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
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: integer;
  WB: IWebBrowser2;
begin
  WB := nil;
  for i := 0 to SW.Count - 1 do
  begin
    if Supports(SW.Item(i), IWebBrowser2) then
    begin
      WB := SW.Item(i) as IWebBrowser2;
      mmoSelect.Lines := RecupSelection(WB);
    end;
  end;
end;

en fait ici on regarde toutes les fenetres et on prend la selection de la 1ere IE
on recupere la selection et on l'affiche dans memo.

voila c'est fini :mouarf:

pour tester: lancer le prog, avec une instance d'ie et faite une selection sur ie et comme par magie :mouarf: la selection apparait dans le memo

amélioration possible:
coller la liste des fenetre du shell dans une listbox afin de selection celle que l'on veut traiter. et pleins d'autres encore ;)

[ARDILLER]

Merci, Kaféine.
Je viens de tester ton code, et j'obtiens le message d'erreur suivant à la création de la Form (ligne: "SW := CoShellWindows.Create;"):

Code :

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

CoInitialize n'a pas été appelé, ClassID: {...Nombres ici...}.

Saurais-tu d'où cela pourrait venir ?
Coinitialize n'est pas dans les untiés courantes d'un projet, ni dans les deux qui ont été rajoutées.
Amicalement,
Claude.

EDITION: Solution trouvée, il suffit d'ajouter l'Unité "ActiveX" dans la clause Uses de l'unité.
Soultion trouvée ici:

http://www.developpez.com/delphi/faq/?page=ado

Le code de Kaféine fonctionne parfaitement.
Merci à toi, Kaféine, et à vous tous pour votre interêt.
Amicalement,
Claude.

[Kaféine]

Bizarre j'ai pas ce probleme

ajoute dans les uses : Activex

et

Code :

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

1
2
3
 
initialization
  CoInitialize(nil);

[Kaféine]

ok cool

[ARDILLER]

Merci encore et timing parfait ... :-).
Amicalement,
Claude.