Получить URL от OnNewWindow2. С++

@Avrilfun41 · Регистрация: 01.11.2010

Author24 — интернет-сервис помощи студентам

Задача такая: Есть TPageControl, на нем добавляются TTabSheet с одним TWebBrowser и TEdit (для ввода url). При нажатии на ссылку, которая должна открыться в новом окне -> она открыватся в новой TTabSheet. Нужно в TEdit передать url этой новой страницы.

Пробовал вот так:

.hpp

C++

1 2	void __fastcall funcOnNavigateComplete2 (TObject ASender, const IDispatch pDisp, OleVariant &URL);

.cpp

C++

void __fastcall TForm1::funcOnNavigateComplete2 (TObject *ASender,
    const IDispatch *pDisp, OleVariant &URL)
{
//  To do: Передать в Caption и Edit новой вкладки URL открытой страницы.
    WideString url = TWebBrowser(ASender).LocationName;
    FPage->ActivePage->Caption = TWebBrowser(ASender).LocationName;
}

Ругается:
First chance exception at $76F7FBAE. Exception class EAccessViolation with message 'Access violation at address 201C9008 in module 'vcl100.bpl'. Read of address 00000000'.

В чем может быть проблема?

Добавлено через 1 час 37 минут
Решение:

C++

void __fastcall TForm1::funcOnNavigateComplete2 (TObject *ASender,
    const IDispatch *pDisp, OleVariant &URL)
{
    TWebBrowser& wb = *static_cast<TWebBrowser*>(ASender);
    FPage->ActivePage->Caption = wb.LocationName;
 
    //To do: добавить передачу .LocationURL в Edit новой вкладки.
}

	06.11.2010, 15:14