| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать на какой адрес будет переход? [D7, XP]

html ©   (2009-02-03 12:40:00) 

Всем привет!
На форме есть два TWebBrouser
кликаю на первом:
procedure TfMain.WebBrowser1NewWindow2(Sender: TObject;
 var ppDisp: IDispatch; var Cancel: WordBool);
var
 MousePos: TPoint;
 HtmlElement: IHTMLElement;
 ImgElement: IHTMLIMGElement;
 AnchorElement: IHTMLAnchorElement;
 iHTMLDoc: IHtmlDocument2;
begin
 FCurrentLink := '';
 if Supports(WebBrowser1.Document, IHtmlDocument2, iHTMLDoc) then
 begin
   if GetCursorPos(MousePos) then
   begin
     MousePos := WebBrowser1.ScreenToClient(MousePos);
     HtmlElement := iHTMLDoc.ElementFromPoint(MousePos.X, MousePos.Y);
     if Assigned(HtmlElement) then
     begin
       try
         HtmlElement.QueryInterface(IHTMLIMGElement, imgElement);
         if Assigned(imgElement) then
           FCurrentLink := ImgElement.href;
         HtmlElement.QueryInterface(IHTMLAnchorElement, AnchorElement);
         if Assigned(AnchorElement) then
           FCurrentLink := AnchorElement.href;
       except
       end;
     end;
   end;
 end; //}
 ppDisp := WebBrowser2.ControlInterface;
end;

В обработчике OnDocumentComplite WebBrouser2 проверяю

procedure TfMain.WebBrowser2DocumentComplete(Sender: TObject;
 const pDisp: IDispatch; var URL: OleVariant);
begin
 if (FCurrentLink <> string(URL)) then
   Exit;
...

так вот, в первой процедуре не всегда определяется ссылка, на которую происходит переход. Какие еще интерфейся надо сюда вставить:
HtmlElement.QueryInterface(???, );

или можно сделать как-нибудь по другому?

---

html   (2009-02-03 13:22:00) [1]

обед, что ли?

---

Наверх