Question

我需要获取与图像相关联的链接。正如您在下面的代码中看到的，我有一个TWebBrowser组件的自定义。我拦截鼠标点击WebBrowser视图。

当前代码适用于常见链接，但是对于图像的情况，当我点击图像时，我无法获得href链接。

当我点击图片时，我收到链接href =“https://vimeo.com/194387045”

我可以去其他任何方式吗？

<p>&nbsp;</p>
<p><a href="https://vimeo.com/194387045" target="_blank">
<img src="http://172.16.0.16/static/comunica/436dde8236d078cff2dc76deaa113dbb" 
alt="" /></a></p>

方式：

Procedure TJBWebBrowser.ValidateLinkClick;
Var
  LElement: IHTMLElement;
  LLink, LTag: String;
  LCancel: Boolean;
  LDocument: IHTMLDocument2;
Begin

  LDocument := IHTMLDocument2(Document);

  If Not Assigned(LDocument) Then
    Exit;

  LCancel := False;
  LElement := LDocument.parentWindow.event.srcElement;
  LTag := Trim(LowerCase(LElemento.tagName));

  If LTag = 'a' Then
    LLink := Trim(LElement.getAttribute('href', 0));

  If Assigned(FOnURLClick) Then
    FOnURLClick(Self, LLink, LCancel);

  If (LLink <> EmptyStr) And (Not LCancel) Then
    ShellExecute(0, Nil, PChar(LLink), Nil, Nil, SW_SHOWNORMAL);
End;

Answer 1

我找到了解决方案，我怀疑。

感谢大家的帮助。

按照更改后的代码：

while($row = mysqli_fetch_array($result));
echo $row['price'];

TWebBrowser：当我点击链接图片时获取链接href

1 个答案: