Accueil > Programmes > Delphi > WebBrowser > Copier le conteu d’un WebBrowser dans le Presse papier
Delphi
Copier le conteu d’un WebBrowser dans le Presse papier
WEBBROWSER CLIPBOARD
dimanche 11 septembre 2011, par
Il est très facile de recopier un Mémo ou un RichEdit dans le presse papier par leurs propriétés intégrées
SelectAll ; |
CopyToCliBoard |
Or le composant WebBrowser n’intègre pas cette propriété.
MANIP
WebBrowser_CopyToClipBoard
////////////////////////////////////////////////////////////////////////////////
Procedure WebBrowser_CopyToClipBoard( WebBrowser : TWebBrowser );
{ Copie le contenu de la page Web dans le presse papier }
////////////////////////////////////////////////////////////////////////////////
Begin
Try
with WebBrowser do BEGIN
SetFocus;
// select the entire document
ExecWB (OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT);
// copy the text to Clipboard
ExecWB (OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT);
// clear the selection
ExecWB (OLECMDID_CLEARSELECTION, OLECMDEXECOPT_DONTPROMPTUSER);
END;
Except
On E:Exception Do
ShowMessage('ERR:JC_WEB|WebBrowser_CopyToClipBoard =>'+E.Message);
end;
End;
uses
ShDocVw {WebBrowser} ,
variants {EmptyParam},
SysUtils,
Dialogs
;