zoukankan      html  css  js  c++  java

  • delphi中webbrowser的用法

    1. WebBrowser1.GoHome; //到浏览器默认主页  
    2. WebBrowser1.Refresh; //刷新  
    3. WebBrowser1.GoBack; //后退  
    4. WebBrowser1.GoForward; //前进  
    5. WebBrowser1.Navigate('...'); //打开指定页面  
    6. WebBrowser1.Navigate('about:blank'); //打开空页面  
    7. //打开空页面, 并写入...  
    8.   
    9. WebBrowser1.Navigate('about:<head><title>标题</title><body>页面内容</body>');  
    10. //读取网页脚本中的变量:  
    11.   
    12. procedure TForm1.Button1Click(Sender: TObject);  
    13. var  
    14. s: string;  
    15. i: Integer;  
    16. begin  
    17. s := WebBrowser1.OleObject.document.Script.str;  
    18. i := WebBrowser1.OleObject.document.Script.num;  
    19. ShowMessage(s); //Hello  
    20. ShowMessage(IntToStr(i)); //99  
    21.   
    22. //也可以这样读:  
    23. s := WebBrowser1.OleObject.document.parentWindow.str;  
    24. i := WebBrowser1.OleObject.document.parentWindow.num;  
    25. ShowMessage(s); //Hello  
    26. ShowMessage(IntToStr(i)); //99  
    27. end;  
    29. //调用网页脚本中的函数:  
    30.   
    31. procedure TForm1.Button1Click(Sender: TObject);  
    32. begin  
    33. WebBrowser1.OleObject.document.parentWindow.MB(); //HTML-Js  
    34.   
    35. //如需指定脚本语言, 需要:  
    36. WebBrowser1.OleObject.document.parentWindow.execScript('MB()','JavaScript'); //HTML-Js  
    37. end;  
    39.   
    40. //判断网页及内部框架网页是否全部下载完毕  
    41.   
    42. procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;  
    43. const pDisp: IDispatch; var URL: OleVariant);  
    44. begin  
    45. if   not(<span style="font-family: Arial, Helvetica, sans-serif;">WebBrowser1</span>.Busy)   then    
    46.   ShowMessage('下载完毕');   
    47. end;  
    48.   
    49. //改变背景色或背景图片:  
    50. WebBrowser1.OleObject.document.body.bgcolor := '#FF0000';  
    51. WebBrowser1.OleObject.document.body.background := '...图片地址';  
    52. //操作有 ID 标签的对象:  
    53. var  
    54. s: string;  
    55. begin  
    56. s := WebBrowser1.OleObject.document.getElementByIdx_x('span1').innerText;  
    57. ShowMessage(s); //这是 span1 标签中的内容  
    58.   
    59. //或者:  
    60. s := WebBrowser1.OleObject.document.parentWindow.span1.innerText;  
    61. ShowMessage(s); //这是 span1 标签中的内容  
    62.   
    63. //隐藏它:  
    64. WebBrowser1.OleObject.document.parentWindow.span1.style.display := 'none';  
    65. end;  
    67. //获取网页源代码  
    68. var  
    69. s: string;  
    70. begin  
    71. s := WebBrowser1.OleObject.document.body.innerHTML; //body内的所有代码  
    72. s := WebBrowser1.OleObject.document.body.outerHTML; //body内的所有代码, 包含body标签  
    73. s := WebBrowser1.OleObject.document.documentElement.innerHTML; //html内的所有代码  
    74. end;  
    75. </pre><pre name="code" class="delphi"><span style="color: rgb(73, 73, 73); font-family: simsun; font-size: 14px; line-height: 21px;">Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterHtml);</span>  
    76.   
    77. //获取网页全部源代码  
    78. uses ActiveX;  
    79. var  
    80. ms: TMemoryStream;  
    81. begin  
    82. if not Assigned(WebBrowser1.Document) then Exit;  
    83. ms := TMemoryStream.Create;  
    84. (WebBrowser1.Document as IPersistStreamInit).Save(TStreamAdapter.Create(ms), True);  
    85. ms.Position := 0;  
    86. Memo1.Lines.LoadFromStream(ms, TEncoding.UTF8);  
    87. // Memo1.Lines.LoadFromStream(ms, TEncoding.Default); {GB2312 等双字节}  
    88. ms.Free;  
    89. end;  
    90. //WebBrowser 中的右键菜单  
    91.   
    92. //先要添加ApplicationEvents1,指定其Message事件  
    93.   
    94. //屏蔽右键菜单  
    95. procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);  
    96. begin  
    97. with Msg do  
    98. begin  
    99. if not IsChild(WebBrowser1.Handle, hWnd) then Exit;  
    100. Handled := (message = WM_RBUTTONDOWN) or (message = WM_RBUTTONUP) or (message = WM_CONTEXTMENU);  
    101. end;  
    102. end;  
    103.   
    104. //替换右键菜单  
    105. procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);  
    106. var mPoint: TPoint;  
    107. begin  
    108. if IsChild(WebBrowser1.Handle, Msg.Hwnd) and  
    109. ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then  
    110. begin  
    111. GetCursorPos(mPoint); //得到光标位置  
    112. PopupMenu1.Popup(mPoint.X, mPoint.Y); //弹出popupmenu1的菜单  
    113. Handled:=True;  
    114. end;  
    115. end;  
    116. //新页面写入  
    117. begin  
    118. WebBrowser1.Navigate('about:blank');  
    119. WebBrowser1.OleObject.Document.Writeln('ok');  
    120. end;  
    121.   
    122. //从流中写入:  
    123. var  
    124. ms: TMemoryStream;  
    125. begin  
    126. ms := TMemoryStream.Create;  
    127. Memo1.Lines.SaveToStream(ms);  
    128. ms.Position := 0;  
    129. (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));  
    130. ms.Free;  
    131. end;  
    132.   
    133. //禁止提示脚步错误  
    134. procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;  
    135. const pDisp: IDispatch; var URL: OleVariant);  
    136. begin  
    137. WebBrowser1.Silent := True;  
    138. end;  
    139. </pre><pre name="code" class="delphi">方法二  
    140. TWebBrowser的OnDownloadComplete事件里面执行  
    141. (WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript('window.onerror=function(){return true}','JavaScript');  
    142.   
    143. </pre><pre name="code" class="delphi">//禁止弹出窗口  
    144. procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;  
    145. var Cancel: WordBool);  
    146. begin  
    147. Cancel := True;  
    148. end;  
    149. </pre><pre name="code" class="delphi">//使WebBrowser获得焦点  
    150. 　　TWebBrowser非常特殊，它从TWinControl继承来的SetFocus方法并不能使得它所twebbrows setfocu 方法包含的文档获得焦点，从而不能立即使用Internet Explorer本身具有得internet explor 使用快捷键，解决方法如下：<  
    151. 　　procedure TForm1.SetFocusToDoc;  
    152. 　　begin  
    153. 　　　if WebBrowser1.Document <> nil then  
    154. 　　　　with WebBrowser1.Application as Ioleobject do  
    155. 　　　　　DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle, GetClientRect);  
    156. 　　end;  
    157. 　　除此之外，我还找到一种更简单的方法，这里一并列除此之外这里并列出：  
    158. 　　if WebBrowser1.Document <> nil then  
    159. 　　　IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).focus  
    160. 　　刚找到了更简单的方法，也许是最简单的：  
    161. 　　if WebBrowser1.Document <> nil then  
    162. 　　　IHTMLWindow4(WebBrowser1.Document).focus  
    163. 　　还有，需要判断文档是否获得焦点这样来做：  
    164. 　　if IHTMLWindow4(WebBrowser1.Document).hasfocus then  
    165. </pre><pre name="code" class="delphi">  
    166. //查找内容  
    167. 　　查找对话框可以在文档获得焦点的时候通过按键Ctrl-F对话框焦点按键来调出，程序中则调用IOleCommandTarget对象的成员函数Exec执行OLECMDID_FIND操作olecmdid 操作执行来调用，下面给出的方法是如何在程序中用代码来做出文下面方法如何字选择，即你可以自己设计查找对话框。  
    168. 　　　Var  
    169. 　　　　Doc: IHtmlDocument2;  
    170. 　　　　TxtRange: IHtmlTxtRange;  
    171. 　　　begin  
    172. 　　　　Doc :=WebBrowser1.Document as IHtmlDocument2;  
    173. 　　　　Doc.SelectAll;　　　　//此处为简写，选择全部文档的方法selectal 方法文档请参见第三条命令操作  
    174. 　　　　　　　　　　　　　　　　//这句话尤为重要，因重要尤为为IHtmlTxtRange对象的方法能够操作的前提是  
    175. 　　　　　　　　　　　　　　　　//Document已经有一个文字选document 文字一个择区域。由于接着执行下面的语句，所以不会  
    176. 　　　　　　　　　　　　　　　　//看到文档全选的过程看到过程文档。  
    177. 　　　　TxtRange :=Doc.Selection.CreateRange as IHtmlTxtRange;  
    178. 　　　　TxtRange.FindText('Text to be searched',0.0);  
    179. 　　　　TxtRange.Select;  
    180. 　　　end;  
    181. 　　还有，从Txt.Get_text可以得到当前选中的文字内容，某些得到文字当前时候是有用的。  
    182.   
    183. </pre><pre name="code" class="delphi">//点击“提交”按钮  
    184. 　　如同程序里每个窗体上有一个“缺省”按钮一样，Web一样按钮每个页面上的每个Form也有一个“缺省”按钮——即属性为“Submitsubmit form 按钮”的按钮，当用户按下回车键时就相当于鼠标单击了“Submitsubmit 回车键相当”。但是TWebBrowser似乎并不响应回车键，并且，即使把包含TWebBrowser的twebbrows 回车键似乎窗体的KeyPreview设为True，在窗体的KeyPress事件里还是不能截获用户向keypreview keypress 事件TWebBrowser发出的按键。  
    185. 　　我的解决办法是用ApplicatinEvents构件或者自己编写Tapplication对象的OnMessage事onmessag tapplic 构件件，在其中判断消息类型，对键盘消息做出响应。至于点至于响应判断击“提交”按钮，可以通过分析网页源代码的方法来实现源代码网页方法，不过我找到了更为简单快捷的方法，有两种，第一种是更为不过方法我自己想出来的，另一种是别人写的代码，这里都提供给自己这里出来大家，以做参考。  
    186. 　　A、用SendKeys函数向WebBrowser发送回车键  
    187. 　　　 在Delphi5光盘上的Info/Extras/SendKeys目录下有一个SndKey32.pas文件，sendkei delphi sndkei其中包含了两个函数SendKeys和AppActivate，我们可以用SendKeys函数来向WebBrowser发appactiv webbrows sendkei送回车键，我现在用的就是这个方法，使用很简单，在WebBrowserwebbrows 回车键使用获得焦点的情况下（不要求WebBrowser所包含的文档获得焦点），webbrows 焦点包含用一条语句即可：  
    188. 　　　Sendkeys('~',true);// press RETURN key  
    189. 　　　SendKeys函数的详细参数说明等，均包含在SndKey32.pas文件中sendkei sndkei 参数。  
    190. 　　B、在OnMessage事件中将接受到的键盘消息传递给WebBrowser。  
    191. 　　　Procedure TForm1.ApplicationEvents1Message(var Msg: TMsg; var Handled: Boolean);  
    192. 　　　{fixes the malfunction of some keys within webbrowser control}  
    193. 　　　const  
    194. 　　　　StdKeys = [VK_TAB, VK_RETURN]; { standard keys }  
    195. 　　　　ExtKeys = [VK_DELETE, VK_BACK, VK_LEFT, VK_RIGHT]; { extended keys }  
    196. 　　　　fExtended = $01000000; { extended key flag }  
    197. 　　　begin  
    198. 　　　　Handled := False;  
    199. 　　　　with Msg do  
    200. 　　　　if ((Message >= WM_KEYFIRST) and (Message <= WM_KEYLAST)) and  
    201. 　　　　　((wParam in StdKeys) or  
    202. 　　　　　{$IFDEF VER120}(GetKeyState(VK_CONTROL) < 0) or {$ENDIF}  
    203. 　　　　　(wParam in ExtKeys) and  
    204. 　　　　　((lParam and fExtended) = fExtended)) then  
    205. 　　　　try  
    206. 　　　　　if IsChild(Handle, hWnd) then { handles all browser related messages }  
    207. 　　　　　begin  
    208. 　　　　　　with {$IFDEF VER120}Application_{$ELSE}Application{$ENDIF} as  
    209. 　　　　　　　　IOleInPlaceActiveObject do  
    210. 　　　　　　　Handled := TranslateAccelerator(Msg) = S_OK;  
    211. 　　　　　　　if not Handled then  
    212. 　　　　　　　begin  
    213. 　　　　　　　　Handled := True;  
    214. 　　　　　　　　TranslateMessage(Msg);  
    215. 　　　　　　　　DispatchMessage(Msg);  
    216. 　　　　　　　end;  
    217. 　　　　　　　end;  
    218. 　　　　except  
    219. 　　　　end;  
    220. 　　　end; // MessageHandler  
    221. </pre><pre name="code" class="delphi">  
    222. </pre><pre name="code" class="delphi">10、提取网页中所有链接  
    223. 　　这个方法来自大富翁论坛hopfield朋友的对一个问题的回答hopfield 自大问题，我本想自己试验，但总是没成功。  
    224. 　　Var  
    225. 　　　doc:IHTMLDocument2;  
    226. 　　　all:IHTMLElementCollection;  
    227. 　　　len,I:integer;  
    228. 　　　item:OleVariant;  
    229. 　　begin  
    230. 　　　doc:=WebBrowser1 .Document as IHTMLDocument2;  
    231. 　　　all:=doc.Get_links;　　　　　　　　　　　　　//doc.Links亦可  
    232. 　　　len:=all.length;  
    233. 　　　for I:=0 to len-1 do begin  
    234. 　　　　item:=all.item(I,varempty);　　　　　　　　//EmpryParam亦可  
    235. 　　　　memo1.lines.add(item.href);  
    236. 　　　end;  
    237. 　　end;  
    238. -----------------------------------------------------------------------------------  
    239. 11、设置TWebBrowser的编码  
    240. 　　为什么我总是错过很多机会？其实早就该想到的，但为什么错过想到是一念之差，便即天壤之别。当时我要是肯再多考虑一下一念之差天壤之别当时，多试验一下，这就不会排到第１１条了。下面给出一个下面试验一个函数，搞定，难以想象的简单。  
    241. 　　Procedure SetCharSet(AWebBrowser: TWebBrowser; ACharSet: String);  
    242. 　　var  
    243. 　　　RefreshLevel: OleVariant;  
    244. 　　Begin  
    245. 　　　IHTMLDocument2(AWebBrowser.Document).Set_CharSet(ACharSet);  
    246. 　　　RefreshLevel :=7;　　　　　　　　　　　　　　//这个7应该从这个应该注册表来，帮助有Bug。  
    247. 　　　AWebBrowser.Refresh2(RefreshLevel);  
    248. 　　End;  
    249.   
    250. </pre><pre name="code" class="delphi">9．将页面中显示的内容全部选中,然后粘贴到Word文档中.  
    251. WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT);//全选网页  
    252. WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT);     //复制网页  
    253. WordDocu.Range.Paste;            //word文档粘贴  
    254. WebBrowser1.ExecWB(OLECMDID_UNDO, OLECMDEXECOPT_DODEFAULT);    //取消全选  
    255. 注:WebBrowser的Document属性值和WordDocument的Document属性值必须都不为nil.  
    256. 10．如何解决网页不响应回车事件  
    257. public  
    258.     { Public declarations }  
    259.     procedure MsgHandle(var Msg :TMsg; var Handled :Boolean);  
    260. end;  
    261. var  
    262. Form1: TForm1;  
    263. FOleInPlaceActiveObject :IOleInPlaceActiveObject;  
    264. implementation  
    265. {$R *.DFM}  
    266. procedure TForm1.MsgHandle(var Msg :TMsg; var Handled :Boolean);  
    267. var  
    268. iOIPAO :IOleInPlaceActiveObject;  
    269. Dispatch :IDispatch;  
    270. begin  
    271. if WebBrowser1 =nil then  
    272. begin  
    273. Handled :=False;  
    274. Exit;  
    275. end;  
    276. Handled :=(IsDialogMessage(WebBrowser1.Handle, Msg) =True);  
    277. if (Handled) and (not WebBrowser1.Busy) then  
    278. begin  
    279. if FOleInPlaceActiveObject =nil then  
    280. begin  
    281.    Dispatch :=WebBrowser1.Application;  
    282.    if Dispatch <>nil then  
    283.    begin  
    284.     Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO);  
    285.     if iOIPAO <>nil then  
    286.      FOleInPlaceActiveObject :=iOIPAO;  
    287.    end;  
    288. end;  
    289. end;  
    290. if FOleInPlaceActiveObject <>nil then  
    291. if ((Msg.message =WM_KEYDOWN) or (Msg.Message =WM_KEYUP)) and ((Msg.wParam =VK_BACK) or (Msg.wParam =VK_LEFT) or (Msg.wParam =VK_RIGHT)) then  
    292. else  
    293.    FOleInPlaceActiveObject.TranslateAccelerator(Msg);  
    294. end;  
    295. procedure TForm1.FormCreate(Sender: TObject);  
    296. begin  
    297. Application.OnMessage :=MsgHandle;  
    298. end;  
    299. procedure TForm1.FormDestroy(Sender: TObject);  
    300. begin  
    301. FOleInPlaceActiveObject :=nil;  
    302. end;  
    303.   
    304. </pre><pre name="code" class="delphi">//在WebBrowser加载html页面完成后,在页面顶端插入HTML代码  
    305. procedure TForm1.Button1Click(Sender: TObject);  
    306. var  
    307. Range: IHTMLTxtRange;  
    308. begin  
    309. Range := ((WebBrowser1.Document as IHTMLDocument2).body as  
    310.     IHTMLBodyElement).createTextRange;  
    311. Range.collapse(False);  
    312. Range.pasteHTML('<br/><b>Hello!</b>');  
    313. end;  
    314. <p>  
    315.       
    316.   
    317.       
    318. </p>  
  • 相关阅读:
    ryzen nvidia hackintosh
    mysql count 主键之坑
    git命令
    MYSQL 注释
    yaf twig配置
    1.YAF 的安装
    yaf nginx 设置
    ubuntu 16 阿里云 vsftpd
    win10下 homestead 安装
    活动调度
  • 原文地址：https://www.cnblogs.com/baoer-666/p/5985555.html
Copyright © 2011-2022 走看看