procedure TForm1.btnClickUrlClick(Sender: TObject);
var
J:integer;
spDisp: IDispatch;
IDoc1: IHTMLDocument2;
ielc: IHTMLElementCollection ;
ihtml:IHTMLElement;
iane:IHTMLAncho...
1
对于网页这种连接 我们可以用如下方式实现填写内容。
var
o: Olevariant;
all: IHTMLElementCollection;
item: IHTMLElement;
begin
o := WebBrowser1.oleobject.document.all.item('xxx', 0);
o.value:='myValue';...
webbrowser1.silent:=true; //屏蔽脚本错误
使用WebBrowser控件时,如果在WebBrowser控件中加载的页面存在脚本错误,程序会弹出一个脚本错误的对话框,这个对话框的弹出可能影响程序的进一步运行,如果加载的页面恰好是别人做的(这是最常见的情况),只能选择将该脚本错误屏蔽掉。
屏蔽方法是设置该WebBrowser控件的ScriptE...
procedure TForm1.WebBrowser2NewWindow2(ASender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
begin
ppDisp:=WebBrowser3;
end;...
doc : Variant;
doc:=WebBrowser2.Document;//读取网页内容
memo1.lines.text :=doc.body.innerhtml;...
原文:http://topic.csdn.net/t/20050525/15/4034712.html
//添加一个TApplicationEvents,然后添加下列事件响应代码:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
{... |
|