Q&A

  • ActiveX Form에서 javascrip 호출은 어떻게 하는지...
Activex form에서 버튼을 클릭시
Actviex form이 박혀 있는 웹브라우저에 있는 아래의 자바스크립을
호출 하려고 합니다..
게시판 검색해서 찾아봤는데...
잘 이해가 되지 않더군요....
답변주시면 감사하겠습니다.

<script language="javascript" >
  function SubmitForm()
  {
      alert('test');
  }
</script>
2  COMMENTS
  • Profile
    최용일 2004.10.19 04:22
    안녕하세요. 최용일입니다.

    게시판에는 주로 TWebBrowser를 썼을때의 방법이 적혀져 있지만... ActiveForm도 마찬가지입니다. 브라우저 상에서 동작하기 때문에...

    아래와 같이 해보세요...

    uses
        ......, SHDocVW, MSHTML;
    var
        ClientSite: IOleClientSite;
        ServiceProvider: IServiceProvider;
        WebBrowserApp: iwebbrowserApp;
        HTMLDocument2: IHTMLDocument2;
        HTMLWindow2: IHTMLWindow2;
    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
                        HTMLDocument2 := WebBrowserApp.Document as IHTMLDocument2;
                        HTMLWindow2 := HTMLDocument2.ParentWindow;
                        HTMLWindow2.ExecScript('SubmitForm()','javascript');
                    end;
                end;
            end;
        end;
    end;

  • Profile
    카리스마 2004.10.19 21:14
    천사같은 용일님 감사...
    항상 많은 도움을 받고 있습니다만..
    이렇게..
    빠트리지 않고...
    님의 노하우를 제공해 주시니...
    항상 감사합니다..