WINFORM开发
星梦枫
这个作者很懒,什么都没留下…
展开
-
直接向WebBrowser写入html代码
StrStream:TStringStream; SetNoteStr: string; begin SetNoteStr :='xxxxxxxxxxxxxx'; StrStream:=TStringStream.Create(SetNoteStr); WebBrowser1.Navigate('about:blank'); try Str原创 2013-02-27 17:22:05 · 1280 阅读 · 0 评论 -
WebBrowser判断页面是否下载结束
方法1:procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin if WebBrowser1.Application = pDisp then showmessage('页面已全部下载完毕')end; 说明转载 2013-02-27 17:22:47 · 715 阅读 · 0 评论 -
Webbrowser新开窗口事件
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);var NewWindow: TForm2;begin //exit; NewWindow:= TForm2.Create(nil); NewWin原创 2013-02-27 17:23:31 · 395 阅读 · 0 评论 -
Webbrowser获取页面中所有frame
frames:=wb.OleObject.document.frames; for i:=0 to frames.length do memo1.lines.Add(frames[i].document.body.innerHTML);原创 2013-02-27 17:24:05 · 1522 阅读 · 0 评论 -
WebBrowser调用网页中已知对象
src := WebBrowser1.OleObject.Document.getElementByID('img1').src 该方法其实就是javascript中的 getElementByID原创 2013-02-27 17:24:36 · 572 阅读 · 0 评论 -
WebBrowser执行网页中的函数
tmp := 'currID = getNextID(currID)'+#13#10; Form1.WebBrowser1.OleObject.Document.parentWindow.execScript(tmp,'JavaScript'); 调用函数的方法就是execScript接口,同样,如果函数不存在,或者运行错误也会触发脚本错误异常原创 2013-02-27 17:25:08 · 594 阅读 · 0 评论 -
WebBrowser获得网页中变量值
htm中 程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID 值得说明的是,变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个异常事件,即变量currID不存在原创 2013-02-27 17:25:45 · 512 阅读 · 0 评论