问个究级问题：关于使用浏览器控件

skywind 2003-12-22 10:53:05

程序中使用了，浏览器控件，在主窗口中开辟出一快地方来显示
本地的web页面,当用户点击页面中某图片时，需要外部主程序作出反映。
不知道怎么弄法？？大家就命，语言随便，C#/delphi/或者C++Builder
谁能提供一种或者两种的方法，感激不尽。下面是具有交互性的一个
html代码：

<html>
<head>
<title>demo</title>
</head>
<body>
<a href="varex:0103">查看计算机状态</a>
</body>
</html>
大家帮忙啊，就是哪个连接 varex:0103之类的，大家帮想下办法嘛。
到底该如何实现

...全文

95 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

wangxd 2004-01-25

打赏
举报

就是在beforenavigate2中判断，根据url可以在你的主程序中做各种处理

citytramper 2004-01-25

打赏
举报

webbrowse 不是有个beforenavigate2事件吗

在那里面处理，有url，flag,postdata,headers,
还有一个cancel 把cancel设为true这次链接就不会执行了，你可以自己在这里处理了

lgqTiger 2004-01-24

打赏
举报

帮你顶！

superyys 2004-01-15

打赏
举报

onmousedown事件能截取到吗?
如果不行,就HOOK吧!

Iamfish(呆鱼) ( ) 的方法应该可行吧

Iamfish 2004-01-15

打赏
举报

<a href="document.title='CMD_POPUPMENU:123'">查看计算机状态</a>

我以前的解决方法是：改变文档的title。title的内容是自己定义好的命令。
然后在WebBrowser1TitleChange中处理:

procedure TfrmViewPicture.WebBrowser1TitleChange(Sender: TObject;
const Text: WideString);
begin

DoScriptCMD(Text);

end;

procedure TfrmViewPicture.DoScriptCMD(cmdText: string);
var
proNo:string;
slCMDList:TStringList;
CMD:string;
p:TPoint;
begin

slCMDList:=TStringList.Create();
slCMDList.Add('CMD_SHOWITEM:');
slCMDList.Add('CMD_POPUPMENU:');

CMD:=UpperCase(LeftStr(cmdText,pos(':',cmdText)));
case slCMDList.IndexOf(CMD) of
0:
begin

if FOldTitle=cmdText then
begin
FOldTitle:='';
exit;
end;
FOldTitle:=cmdText;

proNo:=RightStr(cmdText,Length(cmdText)-pos(':',cmdText));
if frmProducts=nil then
Application.CreateForm(TfrmProducts,frmProducts);
frmProducts.Show();
frmProducts.WindowState:=wsNormal;
frmProducts.Update();
frmProducts.aq_ADOQuery.Close();
frmProducts.aq_ADOQuery.SQL.Text:='select * from Products where proNo='''+proNo+'''';
frmProducts.aq_ADOQuery.Open();
end;
1:
begin
FItemNo:=RightStr(cmdText,Length(cmdText)-pos(':',cmdText));
GetCursorPos(P);
PopupMenu1.Popup(P.X,P.Y);
end;
2:
begin
end;
end;

end;

xiangwangz 2004-01-15