TWebBrowser: copier QUE la sélection + tracer en pas à pas

Version imprimable

17/01/2020, 10h14
pascal07

TWebBrowser: copier QUE la sélection + tracer en pas à pas

Bonjour à tous

J'utilise TwebBrowser sous Delphi 10.3. ( Tokyo ) je bloque sur un point, malgré des heures de tests / recherche sur le net...

je cherche à :

1 - Copier la sélection ( et QUE la sélection, tout j'y arrive ) du TWebBrowser dans le presse papier.
Ou avoir accès à la sélection en tant que String...

2 - Si on fait un clic droit dans le TWebBrowser, un menu contextuel apparait. Il comporte un sous menu COPIER qui fait ce que je voudrais...( = copier QUE la sélection )
Mais comment "suivre en pas à pas " ce qu'il fait ?
Pour voir comment c'est et éventuellement faire " pareil ".
TWebBrowser étant un composant basé sur IE, est ce possible ?

A noter que le le code que l'on trouve en 2 mn sur le net, pour copier la sélection:
webBrowser1.Document.ExecCommand("Copy", false, null);
Edit1.Text := Clipboard.AsString;
ne se compile pas :
[dcc32 Erreur] DialHTMLJournal.pas(965): E2003 Identificateur non déclaré : 'ExecCommand'

==> ne compile pas, ça doit dépendre des versions de Delphi ( ? )

Merci par avance

Effectivement

Code:

1
2
3
 
  Memo1.Clear ;
  Memo1.PasteFromClipboard;

passe bien.
regarde éventuellement de ce côté la. Je vais continuer de chercher dans mes archives

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
use activeX
var
  ms1 : tmemoryStream ;
begin
  ms1 := TmemoryStream.Create ;
  ms1.Position := 0  ;
  try
    Application.ProcessMessages;
    if Assigned(webbrowser1.Document) then
      (webbrowser1.Document as IPersistStreamInit).Save
      (TStreamAdapter.Create(ms1),true);
    ms1.saveToFile ('x.txt') ;
  finally
    ms1.Free;
  end;
end;

Bonjour
Citation:
Envoyé par ALWEBER
Effectivement
Code:

1 2 3 Memo1.Clear ; Memo1.PasteFromClipboard;
passe bien.

===> ?? Je n'ai pas de composant TMemo. Hors sujet...

regarde éventuellement de ce côté la. Je vais continuer de chercher dans mes archives
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 use activeX var ms1 : tmemoryStream ; begin ms1 := TmemoryStream.Create ; ms1.Position := 0 ; try Application.ProcessMessages; if Assigned(webbrowser1.Document) then (webbrowser1.Document as IPersistStreamInit).Save (TStreamAdapter.Create(ms1),true); ms1.saveToFile ('x.txt') ; finally ms1.Free; end; end;
==> je vais tester ...à suivre, mais passer par un TMemoryStream...compliqué des fois Delphi...

Merci, Pascal

OK trouvé

voila la solution proposée sur un autre forum par Jean, ça marche nickel
Merci, Pascal 07300

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function CopySelectedHtmlToText(MyWebBrowser : TWebBrowser) : string;
var  document: IHTMLDocument2;
  selectionObj: IHTMLSelectionObject;
  selectionRange: IHtmlTxtRange;
begin
  document := MyWebBrowser.Document as IHTMLDocument2;
  selectionObj := document.selection;
  selectionRange := selectionObj.CreateRange as IHtmlTxtRange;
  Result := selectionRange.text;
end;
 
 
Function CopySelectedHtmlToHtml(MyWebBrowser : TWebBrowser) : string;
 
var  document: IHTMLDocument2;
  selectionObj: IHTMLSelectionObject;
  selectionRange: IHtmlTxtRange;
begin
  document := MyWebBrowser.Document as IHTMLDocument2;
  selectionObj := document.selection;
  selectionRange := selectionObj.CreateRange as IHtmlTxtRange;
  Result := selectionRange.htmlText;
end;

il est possible qu'il faille rajouter

Code:

1
2
3
4
initialization
  OleInitialize(nil);
finalization
  OleUninitialize;