TWebBrowser中点击超链接在指定窗口中打开页面

点击WebBrowser超链接时,如果不做任何处理,将会直接调用IE打开对应的页面,如果想在Delphi的窗口中打开超链接所对应的页面则需要进行简单的处理.
方法如下:
1 新建主窗口:TMainForm,在主窗口中放置一个TWebBrowser控件:WebBrowserMain,用于显示网页主页面(点击此页面中的超链接将在新Delphi窗口中打开超链接页面);
2 再另外新建一个Delphi窗口或对话框:TReadForm,并在其中添加一个WebBrowser控件:WebBrowserRead,用于显示超链接页面;
3 在主窗口WebBrowserMain控件的 OnNewWindow2 事件中添加下面的代码:
procedure TMainForm.WebBrowserMainNewWindow2(ASender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  FrmRead : TReadForm;
begin
  FrmRead := TFrmRead.Create(Self);
  ppDisp := FrmRead.WebBrowserRead.DefaultInterface;
  FrmRead.Show;
end;
4 完成.
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
好的,我可以帮你解答。首先,你可以使用 Delphi 自带的 TWebBrowser 组件来加载网页,然后使用正则表达式或 HTML 解析器来提取图片链接,最后使用 TImage 组件显示图片。以下是一个简单的示例代码: ```delphi procedure TForm1.Button1Click(Sender: TObject); var i: Integer; img: TImage; links: TStringList; begin links := TStringList.Create; try // 加载网页 WebBrowser1.Navigate(Edit1.Text); while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages; // 提取图片链接 ExtractImageLinks(WebBrowser1.OleObject.Document, links); // 显示图片 for i := 0 to links.Count - 1 do begin img := TImage.Create(ScrollBox1); img.Parent := ScrollBox1; img.Top := i * 100; img.Left := 0; img.Width := ScrollBox1.ClientWidth; img.Height := 100; img.Picture.LoadFromFile(links[i]); end; finally links.Free; end; end; procedure TForm1.ExtractImageLinks(const Doc: IDispatch; Links: TStrings); var HTMLDoc: IHTMLDocument2; Img: IHTMLImgElement; ImgColl: IHTMLElementCollection; i: Integer; begin HTMLDoc := Doc as IHTMLDocument2; ImgColl := HTMLDoc.images; for i := 0 to ImgColl.Length - 1 do begin Img := ImgColl.item(i, EmptyParam) as IHTMLImgElement; Links.Add(Img.src); end; end; ``` 在上面的代码,`WebBrowser1` 是一个 TWebBrowser 组件,`Edit1` 是一个 TEdit 组件,用于输入网页地址,`ScrollBox1` 是一个 TScrollBox 组件,用于显示图片。`ExtractImageLinks` 过程用于提取图片链接,其 `Doc` 参数是 TWebBrowser.OleObject.Document,`Links` 参数是一个 TStringList 类型的变量,用于保存图片链接。注意,这个过程的 `IHTMLDocument2` 和 `IHTMLImgElement` 是需要使用 MSHTML 单元才能访问的接口。 希望这个示例能够帮助到你。如果还有其他问题,请继续提问。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值