java窗口中嵌套activex_D语言调用ActiveX（在窗口中嵌入ActiveX）

Dear 丶 2022-11-03 04:29 183阅读 0赞

privateimport std.stdio;privateimport std.string;privateimport win32.ole2;privateimport win32.com.OAIDL;privateimport win32.com.OLEIDL;privateimport win32.com.EXDISP;privateimport win32.com.MSHTMHST;char\[\] ClassName="Test Wnd Class";staticconstIID IID\_IWebBrowser2=\{0xD30C1661,0xCDAF,0x11d0, \[0x8A,0x3E,0x0,0xC0,0x4F,0xC9,0xE2,0x6E\]\};staticconstCLSID CLSID\_WebBrowser=\{0x8856F961,0x340A,0x11D0, \[0xA9,0x6B,0x0,0xC0,0x4F,0xD7,0x05,0xA2\]\};staticconstIID IID\_IDocHostUIHandler=\{0xbd3f23c0,0xd43e,0x11cf, \[0x89,0x3b,0x0,0xaa,0x0,0xbd,0xce,0x1a\]\};extern(C)voidgc\_init();extern(C)voidgc\_term();extern(C)void\_minit();extern(C)void\_moduleCtor();extern(C)void\_moduleDtor();extern(C)void\_moduleUnitTests();extern(Windows)intWinMain(HINSTANCE hInstance,

HINSTANCE hPrevInstance,

LPSTR lpCmdLine,intnCmdShow)

\{intresult;

gc\_init();//initialize garbage collector\_minit();//initialize module constructor tabletry\{

\_moduleCtor();//call module constructors\_moduleUnitTests();//run unit tests (optional)result=myWinMain(hInstance, hPrevInstance, lpCmdLine, nCmdShow);

\_moduleDtor();//call module destructors\}catch(Object o)//catch any uncaught exceptions\{

MessageBoxA(null, cast(char\*)o.toString(),"Error",

MB\_OK|MB\_ICONEXCLAMATION);

result=0;//failed\}

gc\_term();//run finalizers; terminate garbage collectorreturnresult;

\}//A running count of how many windows we have open that contain a browser objectuintWindowCount=0;//This is used by DisplayHTMLStr(). It can be global because we never change it.staticconstSAFEARRAYBOUND ArrayBound=\{1,0\};

IOleObject g\_browserObject=null;classMyStorage : IStorage

\{this()in\{writefln ("In MyStorage.this");\}out\{writefln ("Out MyStorage.this");\}

body\{

\}~this()in\{writefln ("In MyStorage.~this");\}out\{writefln ("Out MyStorage.~this");\}

body\{

HRESULT QueryInterface(IID\*riid,void\*\*pvObject)in\{writefln ("In MyStorage.QueryInterface");\}out\{writefln ("Out MyStorage.QueryInterface");\}

body\{returnE\_NOTIMPL;

ULONG AddRef ()in\{writefln ("In MyStorage.AddRef");\}out\{writefln ("Out MyStorage.AddRef");\}

body \{return1;

ULONG Release ()in\{writefln ("In MyStorage.Release");\}out\{writefln ("Out MyStorage.Release");\}

body \{return1;

HRESULT CreateStream( OLECHAR\*pwcsName, DWORD grfMode, DWORD reserved1, DWORD reserved2, IStream\*ppstm)in\{writefln ("In MyStorage.CreateStream");\}out\{writefln ("Out MyStorage.CreateStream");\}

body \{returnE\_NOTIMPL;

HRESULT OpenStream( OLECHAR\*pwcsName,void\*reserved1, DWORD grfMode, DWORD reserved2, IStream\*ppstm)in\{writefln ("In MyStorage.OpenStream");\}out\{writefln ("Out MyStorage.OpenStream");\}

body \{returnE\_NOTIMPL;

HRESULT CreateStorage( OLECHAR\*pwcsName, DWORD grfMode, DWORD reserved1, DWORD reserved2, IStorage\*ppstg)in\{writefln ("In MyStorage.CreateStorage");\}out\{writefln ("Out MyStorage.CreateStorage");\}

body \{returnE\_NOTIMPL;

HRESULT OpenStorage( OLECHAR\*pwcsName, IStorage pstgPriority, DWORD grfMode, SNB snbExclude, DWORD reserved, IStorage\*ppstg )in\{writefln ("In MyStorage.OpenStorage");\}out\{writefln ("Out MyStorage.OpenStorage");\}

body \{returnE\_NOTIMPL;

HRESULT CopyTo( DWORD ciidExclude, IID\*rgiidExclude, SNB snbExclude, IStorage pstgDest )in\{writefln ("In MyStorage.CopyTo");\}out\{writefln ("Out MyStorage.CopyTo");\}

body \{returnE\_NOTIMPL;

HRESULT MoveElementTo( OLECHAR\*pwcsName, IStorage pstgDest, OLECHAR\*pwcsNewName, DWORD grfFlags )in\{writefln ("In MyStorage.MoveElementTo");\}out\{writefln ("Out MyStorage.MoveElementTo");\}

body \{returnE\_NOTIMPL;

HRESULT Commit( DWORD grfCommitFlags )in\{writefln ("In MyStorage.Commit");\}out\{writefln ("Out MyStorage.Commit");\}

body \{returnE\_NOTIMPL;

HRESULT Revert()in\{writefln ("In MyStorage.Revert");\}out\{writefln ("Out MyStorage.Revert");\}

body \{returnE\_NOTIMPL;

HRESULT EnumElements( DWORD reserved1,void\*reserved2, DWORD reserved3, IEnumSTATSTG\*ppenum)in\{writefln ("In MyStorage.EnumElements");\}out\{writefln ("Out MyStorage.EnumElements");\}

body \{returnE\_NOTIMPL;

HRESULT DestroyElement( OLECHAR\*pwcsName )in\{writefln ("In MyStorage.DestroyElement");\}out\{writefln ("Out MyStorage.DestroyElement");\}

body \{returnE\_NOTIMPL;

HRESULT RenameElement( OLECHAR\*pwcsOldName, OLECHAR\*pwcsNewName )in\{writefln ("In MyStorage.RenameElement");\}out\{writefln ("Out MyStorage.RenameElement");\}

body \{returnE\_NOTIMPL;

HRESULT SetElementTimes( OLECHAR\*pwcsName, FILETIME\*pctime, FILETIME\*patime, FILETIME\*pmtime )in\{writefln ("In MyStorage.SetElementTimes");\}out\{writefln ("Out MyStorage.SetElementTimes");\}

body \{returnE\_NOTIMPL;

HRESULT SetClass( REFCLSID clsid )in\{writefln ("In MyStorage.SetClass");\}out\{writefln ("Out MyStorage.SetClass");\}

body \{returnS\_OK;

HRESULT SetStateBits( DWORD grfStateBits, DWORD grfMask )in\{writefln ("In MyStorage.SetStateBits");\}out\{writefln ("Out MyStorage.SetStateBits");\}

body \{returnE\_NOTIMPL;

HRESULT Stat( STATSTG\*pstatstg, DWORD grfStatFlag )in\{writefln ("In MyStorage.Stat");\}out\{writefln ("Out MyStorage.Stat");\}

body \{returnE\_NOTIMPL;

\}boolcompare(IID\*iid1, IID\*iid2)

\{return!memcmp(iid1, iid2, IID.sizeof);

\}classOleInPlaceSite : IOleInPlaceSite, IOleInPlaceFrame, IOleClientSite, IDocHostUIHandler

\{private:

HWND hWnd;public:this(HWND hwnd)in\{writefln ("In OleInPlaceSite.this");\}out\{writefln ("Out OleInPlaceSite.this");\}

body \{this.hWnd=hwnd;

\}~this()in\{writefln ("In OleInPlaceSite.~this");\}out\{writefln ("Out OleInPlaceSite.~this");\}

body \{

\}protected:

ULONG AddRef ()in\{writefln ("In OleInPlaceSite.AddRef");\}out\{writefln ("Out OleInPlaceSite.AddRef");\}

body \{return1;

ULONG Release ()in\{writefln ("In OleInPlaceSite.Release");\}out\{writefln ("Out OleInPlaceSite.Release");\}

body \{return1;

HRESULT QueryInterface (IID\*riid,void\*\*ppvObject)in\{writefln ("In OleInPlaceSite.QueryInterface");\}out\{writefln ("Out OleInPlaceSite.QueryInterface");\}

body \{if(compare(riid,&IID\_IUnknown))\*ppvObject=cast(IUnknown)this;elseif(compare(riid,&IID\_IOleClientSite))\*ppvObject=cast(IOleClientSite)this;elseif(compare(riid,&IID\_IOleInPlaceSite))

writefln ("Ole In Place Site");\*ppvObject=cast(IOleInPlaceSite)this;

\}//else if (compare(riid, &IID\_IOleInPlaceFrame))//\*ppvObject = cast(IOleInPlaceFrame)this;elseif(compare(riid,&IID\_IDocHostUIHandler))\*ppvObject=cast(IDocHostUIHandler)this;elsereturnE\_NOINTERFACE;returnS\_OK;

\}//IOleInPlaceFrameHRESULT InsertMenus( HMENU hmenuShared, LPOLEMENUGROUPWIDTHS lpMenuWidths )in\{writefln ("In OleInPlaceSite.InsertMenus");\}out\{writefln ("Out OleInPlaceSite.InsertMenus");\}

body\{returnE\_NOTIMPL;

HRESULT SetMenu( HMENU hmenuShared, HOLEMENU holemenu, HWND hwndActiveObject )in\{writefln ("In OleInPlaceSite.SetMenu");\}out\{writefln ("Out OleInPlaceSite.SetMenu");\}

body\{returnS\_OK;

HRESULT RemoveMenus( HMENU hmenuShared )in\{writefln ("In OleInPlaceSite.RemoveMenus");\}out\{writefln ("Out OleInPlaceSite.RemoveMenus");\}

body\{returnE\_NOTIMPL;

HRESULT SetStatusText( LPCOLESTR pszStatusText )in\{writefln ("In OleInPlaceSite.SetStatusText");\}out\{writefln ("Out OleInPlaceSite.SetStatusText");\}

body\{returnS\_OK;

HRESULT TranslateAccelerator( LPMSG lpmsg, WORD wID )in\{writefln ("In OleInPlaceSite.TranslateAccelerator");\}out\{writefln ("Out OleInPlaceSite.TranslateAccelerator");\}

body\{returnE\_NOTIMPL;

\}//IOleInPlaceUIWindowHRESULT GetBorder( LPRECT lprectBorder )in\{writefln ("In OleInPlaceSite.GetBorder");\}out\{writefln ("Out OleInPlaceSite.GetBorder");\}

body\{returnE\_NOTIMPL;

HRESULT RequestBorderSpace( LPCBORDERWIDTHS pborderwidths )in\{writefln ("In OleInPlaceSite.RequestBorderSpace");\}out\{writefln ("Out OleInPlaceSite.RequestBorderSpace");\}

body\{returnE\_NOTIMPL;

HRESULT SetBorderSpace( LPCBORDERWIDTHS pborderwidths )in\{writefln ("In OleInPlaceSite.SetBorderSpace");\}out\{writefln ("Out OleInPlaceSite.SetBorderSpace");\}

body\{returnE\_NOTIMPL;

HRESULT SetActiveObject( IOleInPlaceActiveObject pActiveObject, LPCOLESTR pszObjName )in\{writefln ("In OleInPlaceSite.SetActiveObject");\}out\{writefln ("Out OleInPlaceSite.SetActiveObject");\}

body\{returnS\_OK;

\}//IOleWindowHRESULT GetWindow( HWND\*phwnd )in\{writefln ("In OleInPlaceSite.GetWindow");\}out\{writefln ("Out OleInPlaceSite.GetWindow");\}

body\{\*phwnd=hWnd;returnS\_OK;

HRESULT ContextSensitiveHelp( BOOL fEnterMode )in\{writefln ("In OleInPlaceSite.ContextSensitiveHelp");\}out\{writefln ("Out OleInPlaceSite.ContextSensitiveHelp");\}

body\{returnE\_NOTIMPL;

\}//IOleInPlaceFrameHRESULT CanInPlaceActivate()in\{writefln ("In OleInPlaceSite.CanInPlaceActivate");\}out\{writefln ("Out OleInPlaceSite.CanInPlaceActivate");\}

body\{returnS\_OK;

HRESULT OnInPlaceActivate()in\{writefln ("In OleInPlaceSite.OnInPlaceActivate");\}out\{writefln ("Out OleInPlaceSite.OnInPlaceActivate");\}

body\{returnS\_OK;

HRESULT OnUIActivate()in\{writefln ("In OleInPlaceSite.OnUIActivate");\}out\{writefln ("Out OleInPlaceSite.OnUIActivate");\}

body\{returnS\_OK;

HRESULT GetWindowContext( IOleInPlaceFrame\*ppFrame, IOleInPlaceUIWindow\*ppDoc, LPRECT lprcPosRect, LPRECT lprcClipRect, LPOLEINPLACEFRAMEINFO lpFrameInfo )in\{writefln ("In OleInPlaceSite.GetWindowContext");\}out\{writefln ("Out OleInPlaceSite.GetWindowContext");\}

body\{\*ppFrame=cast(IOleInPlaceFrame)this;\*ppDoc=null;//Fill in some other info for the browserlpFrameInfo.cb=lpFrameInfo.sizeof;

lpFrameInfo.fMDIApp=FALSE;

lpFrameInfo.hwndFrame=hWnd;

lpFrameInfo.haccel=null;

lpFrameInfo.cAccelEntries=0;returnS\_OK;

HRESULT Scroll( SIZE scrollExtant )in\{writefln ("In OleInPlaceSite.Scroll");\}out\{writefln ("Out OleInPlaceSite.Scroll");\}

body\{returnE\_NOTIMPL;

HRESULT OnUIDeactivate( BOOL fUndoable )in\{writefln ("In OleInPlaceSite.OnUIDeactivate");\}out\{writefln ("Out OleInPlaceSite.OnUIDeactivate");\}

body\{returnS\_OK;

HRESULT OnInPlaceDeactivate()in\{writefln ("In OleInPlaceSite.OnInPlaceDeactivate");\}out\{writefln ("Out OleInPlaceSite.OnInPlaceDeactivate");\}

body\{returnS\_OK;

HRESULT DiscardUndoState()in\{writefln ("In OleInPlaceSite.DiscardUndoState");\}out\{writefln ("Out OleInPlaceSite.DiscardUndoState");\}

body\{returnE\_NOTIMPL;

HRESULT DeactivateAndUndo()in\{writefln ("In OleInPlaceSite.DeactivateAndUndo");\}out\{writefln ("Out OleInPlaceSite.DeactivateAndUndo");\}

body\{returnE\_NOTIMPL;

HRESULT OnPosRectChange( LPCRECT lprcPosRect )in\{writefln ("In OleInPlaceSite.OnPosRectChange");\}out\{writefln ("Out OleInPlaceSite.OnPosRectChange");\}

body\{

IOleInPlaceObject    inplace;if(!g\_browserObject.QueryInterface(&IID\_IOleInPlaceObject, cast(void\*\*)&inplace))

\{//Give the browser the dimensions of where it can draw.inplace.SetObjectRects(lprcPosRect, lprcPosRect);

inplace.Release();

\}returnS\_OK;

\}//IDocHostUIHandlerHRESULT ShowContextMenu( DWORD dwID, POINT\*ppt, IUnknown pcmdtReserved, IDispatch pdispReserved)in\{writefln ("In OleInPlaceSite.ShowContextMenu");\}out\{writefln ("Out OleInPlaceSite.ShowContextMenu");\}

body \{returnS\_OK;

HRESULT GetHostInfo( DOCHOSTUIINFO\*pInfo )in\{writefln ("In OleInPlaceSite.GetHostInfo");\}out\{writefln ("Out OleInPlaceSite.GetHostInfo");\}

body \{

pInfo.cbSize=DOCHOSTUIINFO.sizeof;

pInfo.dwFlags=DOCHOSTUIFLAG\_NO3DBORDER;

pInfo.dwDoubleClick=DOCHOSTUIDBLCLK\_DEFAULT;return(S\_OK);

HRESULT ShowUI( DWORD dwID, IOleInPlaceActiveObject pActiveObject, IOleCommandTarget pCommandTarget, IOleInPlaceFrame pFrame, IOleInPlaceUIWindow pDoc )in\{writefln ("In OleInPlaceSite.ShowUI");\}out\{writefln ("Out OleInPlaceSite.ShowUI");\}

body \{returnS\_OK;

HRESULT HideUI()in\{writefln ("In OleInPlaceSite.HideUI");\}out\{writefln ("Out OleInPlaceSite.HideUI");\}

body\{returnS\_OK;

HRESULT UpdateUI()in\{writefln ("In OleInPlaceSite.UpdateUI");\}out\{writefln ("Out OleInPlaceSite.UpdateUI");\}

body\{returnS\_OK;

HRESULT EnableModeless( BOOL fEnable )in\{writefln ("In OleInPlaceSite.EnableModeless");\}out\{writefln ("Out OleInPlaceSite.EnableModeless");\}

body\{returnS\_OK;

HRESULT OnDocWindowActivate( BOOL fActivate )in\{writefln ("In OleInPlaceSite.OnDocWindowActivate");\}out\{writefln ("Out OleInPlaceSite.OnDocWindowActivate");\}

body\{returnS\_OK;

HRESULT OnFrameWindowActivate( BOOL fActivate )in\{writefln ("In OleInPlaceSite.OnFrameWindowActivate");\}out\{writefln ("Out OleInPlaceSite.OnFrameWindowActivate");\}

body\{returnS\_OK;

HRESULT ResizeBorder( LPCRECT prcBorder, IOleInPlaceUIWindow pUIWindow, BOOL fRameWindow )in\{writefln ("In OleInPlaceSite.ResizeBorder");\}out\{writefln ("Out OleInPlaceSite.ResizeBorder");\}

body\{returnS\_OK;

HRESULT TranslateAccelerator( LPMSG lpMsg, GUID\*pguidCmdGroup, DWORD nCmdID )in\{writefln ("In OleInPlaceSite.TranslateAccelerator");\}out\{writefln ("Out OleInPlaceSite.TranslateAccelerator");\}

body\{returnS\_FALSE;

HRESULT GetOptionKeyPath( LPOLESTR\*pchKey, DWORD dw )in\{writefln ("In OleInPlaceSite.GetOptionKeyPath");\}out\{writefln ("Out OleInPlaceSite.GetOptionKeyPath");\}

body\{returnS\_FALSE;

HRESULT GetDropTarget( IDropTarget pDropTarget, IDropTarget\*ppDropTarget )in\{writefln ("In OleInPlaceSite.GetDropTarget");\}out\{writefln ("Out OleInPlaceSite.GetDropTarget");\}

body\{returnS\_FALSE;

HRESULT GetExternal( IDispatch\*ppDispatch )in\{writefln ("In OleInPlaceSite.GetExternal");\}out\{writefln ("Out OleInPlaceSite.GetExternal");\}

body\{\*ppDispatch=null;returnS\_FALSE;

HRESULT TranslateUrl( DWORD dwTranslate, OLECHAR\*pchURLIn, OLECHAR\*\*ppchURLOut )in\{writefln ("In OleInPlaceSite.TranslateUrl");\}out\{writefln ("Out OleInPlaceSite.TranslateUrl");\}

body\{\*ppchURLOut=null;returnS\_FALSE;

HRESULT FilterDataObject( IDataObject pDO, IDataObject\*ppDORet )in\{writefln ("In OleInPlaceSite.FilterDataObject");\}out\{writefln ("Out OleInPlaceSite.FilterDataObject");\}

body\{\*ppDORet=null;returnS\_FALSE;

\}//IStorageHRESULT CreateStream( OLECHAR\*pwcsName, DWORD grfMode, DWORD reserved1, DWORD reserved2, IStream\*ppstm)in\{writefln ("In OleInPlaceSite.CreateStream");\}out\{writefln ("Out OleInPlaceSite.CreateStream");\}

body\{returnE\_NOTIMPL;

HRESULT OpenStream( OLECHAR\*pwcsName,void\*reserved1, DWORD grfMode, DWORD reserved2, IStream\*ppstm)in\{writefln ("In OleInPlaceSite.OpenStream");\}out\{writefln ("Out OleInPlaceSite.OpenStream");\}

body\{returnE\_NOTIMPL;

HRESULT CreateStorage( OLECHAR\*pwcsName, DWORD grfMode, DWORD reserved1, DWORD reserved2, IStorage\*ppstg)in\{writefln ("In OleInPlaceSite.CreateStorage");\}out\{writefln ("Out OleInPlaceSite.CreateStorage");\}

body\{returnE\_NOTIMPL;

HRESULT OpenStorage( OLECHAR\*pwcsName, IStorage pstgPriority, DWORD grfMode, SNB snbExclude, DWORD reserved, IStorage\*ppstg )in\{writefln ("In OleInPlaceSite.OpenStorage");\}out\{writefln ("Out OleInPlaceSite.OpenStorage");\}

body\{returnE\_NOTIMPL;

HRESULT CopyTo( DWORD ciidExclude, IID\*rgiidExclude, SNB snbExclude, IStorage pstgDest )in\{writefln ("In OleInPlaceSite.CopyTo");\}out\{writefln ("Out OleInPlaceSite.CopyTo");\}

body\{returnE\_NOTIMPL;

HRESULT MoveElementTo( OLECHAR\*pwcsName, IStorage pstgDest, OLECHAR\*pwcsNewName, DWORD grfFlags )in\{writefln ("In OleInPlaceSite.MoveElementTo");\}out\{writefln ("Out OleInPlaceSite.MoveElementTo");\}

body\{returnE\_NOTIMPL;

HRESULT Commit( DWORD grfCommitFlags )in\{writefln ("In OleInPlaceSite.Commit");\}out\{writefln ("Out OleInPlaceSite.Commit");\}

body\{returnE\_NOTIMPL;

HRESULT Revert()in\{writefln ("In OleInPlaceSite.Revert");\}out\{writefln ("Out OleInPlaceSite.Revert");\}

body\{returnE\_NOTIMPL;

HRESULT EnumElements( DWORD reserved1,void\*reserved2, DWORD reserved3, IEnumSTATSTG\*ppenum)in\{writefln ("In OleInPlaceSite.EnumElements");\}out\{writefln ("Out OleInPlaceSite.EnumElements");\}

body\{returnE\_NOTIMPL;

HRESULT DestroyElement( OLECHAR\*pwcsName )in\{writefln ("In OleInPlaceSite.DestroyElement");\}out\{writefln ("Out OleInPlaceSite.DestroyElement");\}

body\{returnE\_NOTIMPL;

HRESULT RenameElement( OLECHAR\*pwcsOldName, OLECHAR\*pwcsNewName )in\{writefln ("In OleInPlaceSite.RenameElement");\}out\{writefln ("Out OleInPlaceSite.RenameElement");\}

body\{returnE\_NOTIMPL;

HRESULT SetElementTimes( OLECHAR\*pwcsName, FILETIME\*pctime, FILETIME\*patime, FILETIME\*pmtime )in\{writefln ("In OleInPlaceSite.SetElementTimes");\}out\{writefln ("Out OleInPlaceSite.SetElementTimes");\}

body\{returnE\_NOTIMPL;

HRESULT SetClass( REFCLSID clsid )in\{writefln ("In OleInPlaceSite.SetClass");\}out\{writefln ("Out OleInPlaceSite.SetClass");\}

body\{returnS\_OK;

HRESULT SetStateBits( DWORD grfStateBits, DWORD grfMask )in\{writefln ("In OleInPlaceSite.SetStateBits");\}out\{writefln ("Out OleInPlaceSite.SetStateBits");\}

body\{returnE\_NOTIMPL;

HRESULT Stat( STATSTG\*pstatstg, DWORD grfStatFlag )in\{writefln ("In OleInPlaceSite.Stat");\}out\{writefln ("Out OleInPlaceSite.Stat");\}

body\{returnE\_NOTIMPL;

\}//IOleClientSiteHRESULT SaveObject()in\{writefln ("In OleInPlaceSite.SaveObject");\}out\{writefln ("Out OleInPlaceSite.SaveObject");\}

body\{returnE\_NOTIMPL;

HRESULT GetMoniker( DWORD dwAssign, DWORD dwWhichMoniker, IMoniker\*ppmk )in\{writefln ("In OleInPlaceSite.GetMoniker");\}out\{writefln ("Out OleInPlaceSite.GetMoniker");\}

body\{returnE\_NOTIMPL;

HRESULT GetContainer( IOleContainer\*ppContainer )in\{writefln ("In OleInPlaceSite.GetContainer");\}out\{writefln ("Out OleInPlaceSite.GetContainer");\}

body\{\*ppContainer=null;returnE\_NOINTERFACE;

HRESULT ShowObject()in\{writefln ("In OleInPlaceSite.ShowObject");\}out\{writefln ("Out OleInPlaceSite.ShowObject");\}

body\{returnS\_OK;

HRESULT OnShowWindow( BOOL fShow )in\{writefln ("In OleInPlaceSite.OnShowWindow");\}out\{writefln ("Out OleInPlaceSite.OnShowWindow");\}

body\{returnE\_NOTIMPL;

HRESULT RequestNewObjectLayout()in\{writefln ("In OleInPlaceSite.RequestNewObjectLayout");\}out\{writefln ("Out OleInPlaceSite.RequestNewObjectLayout");\}

body\{returnE\_NOTIMPL;

\}/\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* UnEmbedBrowserObject() \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

\* Called to detach the browser object from our host window, and free its

\* resources, right before we destroy our window.

\* hwnd =        Handle to the window hosting the browser object.

\* NOTE: The pointer to the browser object must have been stored in the

\* window's USERDATA field. In other words, don't call UnEmbedBrowserObject().

\* with a HWND that wasn't successfully passed to EmbedBrowserObject().\*/voidUnEmbedBrowserObject(HWND hwnd)

\{//Retrieve the browser object's pointer we stored in our window's GWL\_USERDATA when//we initially attached the browser object to this window.if(g\_browserObject!=null)

\{//Unembed the browser object, and release its resources.g\_browserObject.Close(OLECLOSE.OLECLOSE\_NOSAVE);

g\_browserObject.Release();return;

assert (false);

\}enum\{

WEBPAGE\_GOBACK,

WEBPAGE\_GOFORWARD,

WEBPAGE\_GOHOME,

WEBPAGE\_SEARCH,

WEBPAGE\_REFRESH,

WEBPAGE\_STOP

\}/\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* DoPageAction() \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

\* Implements the functionality of a "Back". "Forward", "Home", "Search",

\* "Refresh", or "Stop" button.

\* hwnd =        Handle to the window hosting the browser object.

\* action =        One of the following:

\*                0 = Move back to the previously viewed web page.

\*                1 = Move forward to the previously viewed web page.

\*                2 = Move to the home page.

\*                3 = Search.

\*                4 = Refresh the page.

\*                5 = Stop the currently loading page.

\* NOTE: EmbedBrowserObject() must have been successfully called once with the

\* specified window, prior to calling this function. You need call

\* EmbedBrowserObject() once only, and then you can make multiple calls to

\* this function to display numerous pages in the specified window.\*/voidDoPageAction(HWND hwnd, DWORD action)

IWebBrowser2    webBrowser2;//We want to get the base address (ie, a pointer) to the IWebBrowser2 object embedded within the browser//object, so we can call some of the functions in the former's table.if(!g\_browserObject.QueryInterface(&IID\_IWebBrowser2, cast(void\*\*)&webBrowser2))

\{//Ok, now the pointer to our IWebBrowser2 object is in 'webBrowser2', and so its VTable is//webBrowser2->lpVtbl.//Call the desired functionswitch(action)

\{caseWEBPAGE\_GOBACK:

\{//Call the IWebBrowser2 object's GoBack function.webBrowser2.GoBack();break;

\}caseWEBPAGE\_GOFORWARD:

\{//Call the IWebBrowser2 object's GoForward function.webBrowser2.GoForward();break;

\}caseWEBPAGE\_GOHOME:

\{//Call the IWebBrowser2 object's GoHome function.webBrowser2.GoHome();break;

\}caseWEBPAGE\_SEARCH:

\{//Call the IWebBrowser2 object's GoSearch function.webBrowser2.GoSearch();break;

\}caseWEBPAGE\_REFRESH:

\{//Call the IWebBrowser2 object's Refresh function.webBrowser2.Refresh();

\}caseWEBPAGE\_STOP:

\{//Call the IWebBrowser2 object's Stop function.webBrowser2.Stop();

\}//Release the IWebBrowser2 object.webBrowser2.Release();

\}longDisplayHTMLPage(HWND hwnd, wchar\[\] webPageName)

IWebBrowser2    webBrowser2;

VARIANT            myURL;if(!g\_browserObject.QueryInterface(&IID\_IWebBrowser2, cast(void\*\*)&webBrowser2))

myURL.n1.n2.vt=VT\_BSTR;

myURL.n1.n2.n3.bstrVal=webPageName;if(!myURL.n1.n2.n3.bstrVal)

webBrowser2.Release();return(-6);

webBrowser2.Navigate2(&myURL,null,null,null,null);

webBrowser2.Release();

writefln ("display html page success");return(0);

writefln ("display html page failed");return(-5);

\}voidResizeBrowser(HWND hwnd, DWORD width, DWORD height)

IWebBrowser2    webBrowser2;if(!g\_browserObject.QueryInterface(&IID\_IWebBrowser2, cast(void\*\*)&webBrowser2))

webBrowser2.Put\_Width(width);

webBrowser2.Put\_Height(height);

webBrowser2.Release();

\}longEmbedBrowserObject(HWND hwnd)

IWebBrowser2        webBrowser2;

RECT                rect;

IStorage            storage=newMyStorage;

IOleClientSite         \_iOleClientSite=newOleInPlaceSite(hwnd);if(!OleCreate(cast(REFCLSID)&CLSID\_WebBrowser, cast(REFIID)&IID\_IOleObject, OLERENDER.OLERENDER\_DRAW,null, \_iOleClientSite, storage, cast(void\*\*)&g\_browserObject))

writefln("create ole object success");

g\_browserObject.SetHostNames("My Host Name"w,null);

GetClientRect(hwnd,&rect);//Let browser object know that it is embedded in an OLE container.if(!OleSetContainedObject(g\_browserObject, TRUE))

writefln("set contained object success");if(!g\_browserObject.DoVerb(OLEIVERB\_SHOW,null, \_iOleClientSite,-1, hwnd,&rect))

writefln("do verb success");if(!g\_browserObject.QueryInterface(&IID\_IWebBrowser2, cast(void\*\*)&webBrowser2))

writefln("query IID\_IWebBrowser2 interface success");

webBrowser2.Put\_Left(0);

webBrowser2.Put\_Top(0);

webBrowser2.Put\_Width(rect.right);

webBrowser2.Put\_Height(rect.bottom);

webBrowser2.Release();//Successreturn(0);

\}else\{

writefln("query IID\_IWebBrowser2 interface failed");

\}else\{

writefln("do verb failed");

\}else\{

writefln("set contained object failed");

writefln("embed failed");//Something went wrong!UnEmbedBrowserObject(hwnd);return(-3);

\}return(-2);

\}/\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* WindowProc() \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

\* Our message handler for our window to host the browser.\*/extern(Windows)

LRESULT WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)

\{switch(uMsg)

\{caseWM\_SIZE:

\{//Resize the browser object to fit the window//ResizeBrowser(hwnd, LOWORD(lParam), HIWORD(lParam));return(0);

\}caseWM\_CREATE:

\{//Embed the browser object into our host window. We need do this only//once. Note that the browser object will start calling some of our//IOleInPlaceFrame and IOleClientSite functions as soon as we start//calling browser object functions in EmbedBrowserObject().if(EmbedBrowserObject(hwnd))return(-1);//Another window created with an embedded browser object++WindowCount;//Successreturn(0);

\}caseWM\_DESTROY:

\{//Detach the browser object from this window, and free resources.UnEmbedBrowserObject(hwnd);//One less window--WindowCount;//If all the windows are now closed, quit this appif(!WindowCount) PostQuitMessage(0);return(TRUE);

\}default:return(DefWindowProc(hwnd, uMsg, wParam, lParam));

\}/\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* WinMain() \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

\* C program entry point.

\* This creates a window to host the web browser, and displays a web

\* page.\*/intmyWinMain(HINSTANCE hInstance, HINSTANCE hInstNULL, LPSTR lpszCmdLine,intnCmdShow)

MSG            msg;//Initialize the OLE interface. We do this once-only.if(OleInitialize(null)==S\_OK)

WNDCLASSEX        wc;//Register the class of our window to host the browser. 'WindowProc' is our message handler//and 'ClassName' is the class name. You can choose any class name you want.wc.cbSize=WNDCLASSEX.sizeof;

wc.hInstance=hInstance;

wc.lpfnWndProc=&WindowProc;

wc.lpszClassName=&ClassName\[0\];

RegisterClassEx(&wc);//Create a window. NOTE: We embed the browser object duing our WM\_CREATE handling for//this window.msg.hwnd=CreateWindowEx(0, ClassName,"An HTML string", WS\_OVERLAPPEDWINDOW,

CW\_USEDEFAULT,0, CW\_USEDEFAULT,0,

HWND\_DESKTOP,null, hInstance,null);if(msg.hwnd==null)

writefln ("create window failed");

OleUninitialize();return-2;

\}//For this window, display a URL. This could also be a HTML file on disk such as "c:\\\\myfile.htm".DisplayHTMLPage(msg.hwnd,"http://www.microsoft.com");//Show the window.ShowWindow(msg.hwnd, nCmdShow);

UpdateWindow(msg.hwnd);//Do a message loop until WM\_QUIT.while(GetMessage(&msg,null,0,0))

TranslateMessage(&msg);

DispatchMessage(&msg);

\}//Free the OLE library.OleUninitialize();return(0);

writefln("Can't open OLE!");return(-1);