Microsoft MVP성태의 닷넷 이야기
글쓴 사람
정성태 (techsharer at outlook.com)
홈페이지
첨부 파일


XBAP을 호스팅하고 있는 인터넷 익스플로러 인터페이스 구하기


이에 대한 방법을 웹 검색해 보면 다음과 같은 훌륭한 자료를 구할 수 있습니다.

"Scripting out" of an XBAP 
; http://blogs.msdn.com/changov/archive/2009/03/01/scripting-out-of-an-xbap.aspx

그런데, 왠지 한 가지 마음에 안드는 부분이 있습니다. 바로 SHDocVw 개체를 참조 추가해야 한다는 것인데요. 차라리 이 정도 기능이라면 단순하게 PInvoke.net 사이트에서 관련 인터페이스를 추가하는 것만으로도 쉽게 해결될 수 있기 때문입니다.

이를 위해서 OLECMDID, OLECMDF, tagREADYSTATE, OLECMDEXECOPT enum 값들과 IWebBrowser2에 대한 인터페이스 정의를 pinvoke.net 웹 사이트에서 복사해 왔습니다. 그다음 HTML 웹 페이지에 올라가는 Page 개체에서 웹 브라우저 인터페이스 포인터를 구해오는 것은 위의 글을 쓴 "Chango V"가 공개한 소스코드 "ScriptInteropDemo.zip" 파일의 것을 거의 수정 없이 다음과 같이 쓸 수 있습니다.

using System;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Interop;
using System.Runtime.InteropServices;

namespace WpfBrowserApplication1
{
    /// <summary>
    /// Interaction logic for Page1.xaml
    /// </summary>
    public partial class Page1 : Page
    {
        static readonly Guid SID_SWebBrowserApp = new Guid("0002DF05-0000-0000-C000-000000000046");

        public Page1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, RoutedEventArgs e)
        {
            IntPtr clientSitePtr = Marshal.GetIUnknownForObject(BrowserInteropHelper.ClientSite);
            Guid spGuid = typeof(IServiceProvider).GUID;
            IntPtr spPtr;
            Marshal.QueryInterface(clientSitePtr, ref spGuid, out spPtr);
            IServiceProvider sp = (IServiceProvider)Marshal.GetObjectForIUnknown(spPtr);
            Marshal.Release(spPtr);

            Guid serviceGuid = SID_SWebBrowserApp;
            Guid iid = typeof(IWebBrowser2).GUID;
            IntPtr ppvObject = sp.QueryService(ref serviceGuid, ref iid);
            try
            {
                IWebBrowser2 webBrowser = (IWebBrowser2)Marshal.GetObjectForIUnknown(ppvObject);

                object url = "https://www.sysnet.pe.kr";
                object missing = Missing.Value;
                webBrowser.Navigate2(ref url, ref missing, ref missing, ref missing, ref missing);
            }
            finally
            {
                Marshal.Release(ppvObject);
            }
        }
    }
}

첨부한 프로젝트는 위의 소스 코드를 담고 있습니다.



[이 토픽에 대해서 여러분들과 의견을 공유하고 싶습니다. 틀리거나 미흡한 부분 또는 의문 사항이 있으시면 언제든 댓글 남겨주십시오.]







[최초 등록일: ]
[최종 수정일: 7/7/2021]

Creative Commons License
이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.
by SeongTae Jeong, mailto:techsharer at outlook.com

비밀번호

댓글 작성자
 




... 181  182  183  184  185  [186]  187  188  189  190  191  192  193  194  195  ...
NoWriterDateCnt.TitleFile(s)
341정성태9/16/200620135    답변글 디버깅 기술: 5.15. [내용 예약]
342정성태9/16/200637697    답변글 디버깅 기술: 5.16. ASP.NET 디버깅 환경 구성 [1]파일 다운로드1
306정성태2/13/200717204기타: 15. .NET 이 생산성이 높다는 증거(!)
304정성태7/21/200619150VS.NET IDE: 41. 하위 폴더의 모든 프로젝트의 출력물을 제거 (Clean)
305정성태7/21/200618815    답변글 VS.NET IDE: 41.1. 하위 폴더의 모든 프로젝트의 출력물을 제거 (Clean) [1]
303정성태7/20/200616868Team Foundation Server: 12. 사용자 계정 재생성에 따른 Version Control 영향
302정성태8/21/200618423Team Foundation Server: 11. TFS Team Build와 VC++ Project 설정
299정성태7/23/200618872개발 환경 구성: 5. VMWare - VM 생성 화면 캡쳐
300정성태7/15/200623291    답변글 개발 환경 구성: 5.1. VMWare 오류 유형 - The handle is invalid.
301정성태7/18/200618279    답변글 개발 환경 구성: 5.2. VMWare - 사용 후기.
298정성태7/14/200618673개발 환경 구성: 4. VMWare Server를 64bit 운영체제에 설치 시 주의 사항 [2]
296정성태7/10/200627977.NET Framework: 73. [ASP.NET] HTC(DHTML Control Behavior)를 WebResource.axd로 제공하는 방법 [3]
295정성태7/1/200621149VC++: 25. Microsoft National Language Support Downlevel APIs 1.0 사용 방법파일 다운로드1
294정성태6/30/200617723.NET Framework: 72. XSDObjectGen.EXE 기능 개선
293정성태6/29/200619481Team Foundation Server: 10. TFS 버전 컨트롤(TFVC)에 참여시킨 프로젝트의 로컬 경로를 옮기는 방법
290정성태6/26/200616832Team Foundation Server: 9. HTTPS를 통한 Team Server 접근 - 두 번째 이야기 [1]
291정성태6/26/200618173    답변글 Team Foundation Server: 9.1. [선행 작업] HTTPS 를 통한 Team Server 접근 - 두번째 이야기 [1]
292정성태6/26/200617914    답변글 Team Foundation Server: 9.2. TF30177 오류 발생
307정성태8/3/200619577    답변글 Team Foundation Server: 9.3. Team Server 접근 이름을 바꾸는 방법 [1]파일 다운로드1
308정성태2/18/200719225        답변글 Team Foundation Server: 9.4. Team Server HTTPS 접근 완료. ^^ [1]
288정성태6/26/200634107오류 유형: 10. error MSB6006: "aspnet_merge.exe" exited with code 1
286정성태6/23/200622222웹: 4. 웹 사이트 식별자(Identifier) 값 변경
285정성태6/20/200622503오류 유형: 9. [TFS] Report 관련 서비스를 조회할 때 rsErrorImpersonatingUser 오류 메시지 발생 [1]
284정성태6/19/200620220VS.NET IDE: 40. FxCop - IDE 에서 제공해 주는 SuppressMessage 코드
283정성태1/19/200721082Team Foundation Server: 8. 소스 세이프에서 TFS SourceControl 로 마이그레이션 [2]
279정성태12/27/200626440개발 환경 구성: 3. VS.NET 원격 디버깅 [1]
... 181  182  183  184  185  [186]  187  188  189  190  191  192  193  194  195  ...