Discussion :

[pascal07]

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

[ALWEBER]

Effectivement

Code :

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

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 :

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

[pascal07]

Bonjour

Effectivement

Code :

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

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 :

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

[pascal07]

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

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

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

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