線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1801
推到 Plurk!
推到 Facebook!

求解 WebBrowser 触发网页脚本的 Onmousedown 事件

尚未結案
senven7
一般會員


發表:2
回覆:1
積分:0
註冊:2010-07-08

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-07-08 15:58:47 IP:221.234.xxx.xxx 訂閱
请教各位高手,小弟最近遇到一个难题,用delphi来实现 WebBrowser 触发网页脚本的  'file://c:/1.htm' 的实现方式不清楚。论坛会把forbidden替换成我题上的那个。代码也是,大家看清楚。
編輯記錄
senven7 重新編輯於 2010-07-08 16:00:37, 註解 無‧
senven7 重新編輯於 2010-07-08 16:01:53, 註解 無‧
senven7 重新編輯於 2010-07-08 16:11:32, 註解 無‧
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2010-07-08 16:56:15 IP:210.242.xxx.xxx 未訂閱
看這篇有沒有幫助:

How to Execute a JavaScript Code on a TWebBrowser Document

http://delphi.about.com/od/adptips2006/qt/wb_execscript.htm

uses MSHTML_TLB, SHDocVw;

procedure ExecuteScript(doc: IHTMLDocument2; script: string; language: string) ;
begin
if doc <> nil then
begin
if doc.parentWindow <> nil then
doc.parentWindow.ExecScript(script, Olevariant(language)) ;
end;
end;

Usage (in some Button OnClick event handler, for example):

var
script : string;
begin
//locate the first element with ID attribute = "main" and show its tag

script := 'var elemMain = document.getElementById("main") ; if (elemMain != null) { alert(elemMain.tagName) ; }';

ExecuteScript(EmbeddedWB1.Document as IHTMLDocument2, script, 'javascript')
end;
編輯記錄
hagar 重新編輯於 2010-07-08 16:57:12, 註解 無‧
senven7
一般會員


發表:2
回覆:1
積分:0
註冊:2010-07-08

發送簡訊給我
#3 引用回覆 回覆 發表時間:2010-07-09 13:29:50 IP:113.141.xxx.xxx 訂閱
谢谢版主,不是太能看懂,不过没关系,这两天忙其它项目,这个暂时停下来了。后期我再花时间看看,如果解决的办法,会再跟大家交流。
系統時間:2017-12-16 20:59:24
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!