ActiveForm에서 아래와 같이 하시면 IWebBrowser2인터페이스를 얻을 수 있습니다.
var
ClientSite: IOleClientSite;
WebBrowserApp: IWebBrowserApp;
ServiceProvider: IServiceProvider;
WebBrowser2: IWebBrowser2;
begin
if (ComObject as IOleObject).GetClientSite(ClientSite) = S_OK then
begin
if (ClientSite <> nil) then
begin
ClientSite.QueryInterface(IServiceProvider, ServiceProvider);
if (ServiceProvider <> nil) then
begin
ServiceProvider.QueryService( IWebBrowserApp, IWebBrowserApp, WebBrowserApp);
if (WebBrowserApp <> nil) then
begin
WebBrowser2 := IWebBrowser2(WebBrowserApp);
ShowMessage(WebBrowser2.Get_LocationURL);
// WebBrowser2가지고 작업하시면 됩니다...
end;
end;
end;
end;
end;
ActiveForm에서 아래와 같이 하시면 IWebBrowser2인터페이스를 얻을 수 있습니다.
var
ClientSite: IOleClientSite;
WebBrowserApp: IWebBrowserApp;
ServiceProvider: IServiceProvider;
WebBrowser2: IWebBrowser2;
begin
if (ComObject as IOleObject).GetClientSite(ClientSite) = S_OK then
begin
if (ClientSite <> nil) then
begin
ClientSite.QueryInterface(IServiceProvider, ServiceProvider);
if (ServiceProvider <> nil) then
begin
ServiceProvider.QueryService( IWebBrowserApp, IWebBrowserApp, WebBrowserApp);
if (WebBrowserApp <> nil) then
begin
WebBrowser2 := IWebBrowser2(WebBrowserApp);
ShowMessage(WebBrowser2.Get_LocationURL);
// WebBrowser2가지고 작업하시면 됩니다...
end;
end;
end;
end;
end;
^^ 항상 즐코하세요...