Discussion :

[Petzouille57]

Bonjour

J'aimerai pouvoir selectionner dans un webbrowser des paragraphes de texte ou même l'intégralité du texte de la page web mais contrairement aux memo ou au richedit il n'y a pas de fonction copytoclipboard. Existe t'il une autre fonction de webbrowser me permettant de reccuperer le texte dans un memo?

Merci d'avance
Steph

[Sub0]

Essaye ceci :

Code :

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

PostMessage(WebBrowser1.Handle, WM_COPY, 0, 0);

[yoco9]

Essaye ça :

Code :

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

WebBrowser.OleObject.Document.Body.InnerText

[Petzouille57]

Le postmessage n'est il pas en rapport avec l'envoi d'email? Si ce n'est pas le cas serait il possible d'avoir plus d'expliquation.

Pour le innertext ça marche bien, néanmoins il permet uniquement de copier l'integralité du texte et non une selection.

[Jipété]

Le postmessage n'est il pas en rapport avec l'envoi d'email?

Oh la la la la...

serait il possible d'avoir plus d'explication

F1 est ton ami, mon pote. Donc tu tapes PostMessage, tu cliques dessus, tu fais F1 et tu vas chercher un cachet d'aspirine !

Allez, courage !
--
jp

[Bruno13]

Essai cela aussi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TChild.CopytoUserKeyWordsgroup1Click(Sender: TObject);
var
  document: IHTMLDocument2;
  selectionObj: IHTMLSelectionObject;
  selectionRange: IHtmlTxtRange;
  selectedText: String;
begin
  document        := WbBrowser.Document as IHTMLDocument2;
  selectionObj    := document.selection;
  selectionRange  := selectionObj.CreateRange as IHtmlTxtRange;
  selectedText    := selectionRange.text;
  showmessage(selectedText);
end;