Q&A

  • ActiveXForm을 특정 사이트에만 이용이 가능하게 하는법?
자바 애플릿의 경우 documentbaseURL 같은 함수가 있어서 해당 애플릿이 특정 사이트 특정 페이지에서만 사용이 가능하도록 할 수 있는데 ActveXForm에서는 그와 같은 기능이 없는지 궁금합니다.
2  COMMENTS
  • Profile
    최용일 2002.07.11 23:52
    안녕하세요. 최용일입니다.

    IWebBrowser2인터페이스 얻으셔서 URL구해가지고 비교해서 특정 사이트가 아니면 동작안하도록 하시면 될거 같네요...

    uses
        ......, shdocvw;
    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);
                         // URL비교해서 특정사이트 아니면 작동안하게...
                    end;
                end;
            end;
        end;
    end;

    ^^ 항상 즐코하세요...

  • Profile
    임성원 2002.07.17 18:35
    답변에 감사합니다.
    해보니 잘 작동하더군요.
    대단히 감사합니다.