unit KOLSHDocVW; { converted by TLB2KOL utility } // ************************************************************************ // // WARNING // ------- // The types declared in this file were generated from data read from a // Type Library. If this type library is explicitly or indirectly (via // another type library referring to this type library) re-imported, or the // 'Refresh' command of the Type Library Editor activated while editing the // Type Library, the contents of this file will be regenerated and all // manual modifications will be lost. // ************************************************************************ // // PASTLWTR : $Revision: 1.8 $ // File generated on 7/26/99 12:22:56 PM from Type Library described below. // *************************************************************************// // NOTE: // Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties // which return objects that may need to be explicitly created via a function // call prior to any access via the property. These items have been disabled // in order to prevent accidental use from within the object inspector. You // may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively // removing them from the $IFDEF blocks. However, such items must still be // programmatically created via a method of the appropriate CoClass before // they can be used. // ************************************************************************ // // Type Lib: C:\WINNT\System32\shdocvw.dll (1) // IID\LCID: {EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\0 // Helpfile: // DepndLst: // (1) v2.0 stdole, (C:\WINNT\System32\STDOLE2.TLB) // (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL) // Errors: // Hint: Member 'Type' of 'IWebBrowser' changed to 'Type_' // Hint: Parameter 'Type' of IWebBrowser.Type changed to 'Type_' // Hint: Parameter 'Property' of DWebBrowserEvents.PropertyChange changed to 'Property_' // Hint: Parameter 'Property' of IWebBrowserApp.PutProperty changed to 'Property_' // Hint: Parameter 'Property' of IWebBrowserApp.GetProperty changed to 'Property_' // Hint: Parameter 'Type' of IShellUIHelper.AddDesktopComponent changed to 'Type_' // Error creating palette bitmap of (TInternetExplorer) : Invalid GUID format // ************************************************************************ // {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. interface uses KOL, ActiveKOL, Windows, ActiveX, StdVCL; // *********************************************************************// // GUIDS declared in the TypeLibrary. Following prefixes are used: // Type Libraries : LIBID_xxxx // CoClasses : CLASS_xxxx // DISPInterfaces : DIID_xxxx // Non-DISP interfaces: IID_xxxx // *********************************************************************// const // TypeLibrary Major and minor versions SHDocVwMajorVersion = 1; SHDocVwMinorVersion = 1; LIBID_SHDocVw: TGUID = '{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}'; IID_IWebBrowser: TGUID = '{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}'; DIID_DWebBrowserEvents: TGUID = '{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}'; IID_IWebBrowserApp: TGUID = '{0002DF05-0000-0000-C000-000000000046}'; IID_IWebBrowser2: TGUID = '{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}'; DIID_DWebBrowserEvents2: TGUID = '{34A715A0-6587-11D0-924A-0020AFC7AC4D}'; CLASS_WebBrowser_V1: TGUID = '{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}'; CLASS_WebBrowser: TGUID = '{8856F961-340A-11D0-A96B-00C04FD705A2}'; // *********************************************************************// // Declaration of Enumerations defined in Type Library // *********************************************************************// // CommandStateChangeConstants constants type CommandStateChangeConstants = TOleEnum; const CSC_UPDATECOMMANDS = $FFFFFFFF; CSC_NAVIGATEFORWARD = $00000001; CSC_NAVIGATEBACK = $00000002; // OLECMDID constants type OLECMDID = TOleEnum; const OLECMDID_OPEN = $00000001; OLECMDID_NEW = $00000002; OLECMDID_SAVE = $00000003; OLECMDID_SAVEAS = $00000004; OLECMDID_SAVECOPYAS = $00000005; OLECMDID_PRINT = $00000006; OLECMDID_PRINTPREVIEW = $00000007; OLECMDID_PAGESETUP = $00000008; OLECMDID_SPELL = $00000009; OLECMDID_PROPERTIES = $0000000A; OLECMDID_CUT = $0000000B; OLECMDID_COPY = $0000000C; OLECMDID_PASTE = $0000000D; OLECMDID_PASTESPECIAL = $0000000E; OLECMDID_UNDO = $0000000F; OLECMDID_REDO = $00000010; OLECMDID_SELECTALL = $00000011; OLECMDID_CLEARSELECTION = $00000012; OLECMDID_ZOOM = $00000013; OLECMDID_GETZOOMRANGE = $00000014; OLECMDID_UPDATECOMMANDS = $00000015; OLECMDID_REFRESH = $00000016; OLECMDID_STOP = $00000017; OLECMDID_HIDETOOLBARS = $00000018; OLECMDID_SETPROGRESSMAX = $00000019; OLECMDID_SETPROGRESSPOS = $0000001A; OLECMDID_SETPROGRESSTEXT = $0000001B; OLECMDID_SETTITLE = $0000001C; OLECMDID_SETDOWNLOADSTATE = $0000001D; OLECMDID_STOPDOWNLOAD = $0000001E; OLECMDID_ONTOOLBARACTIVATED = $0000001F; OLECMDID_FIND = $00000020; OLECMDID_DELETE = $00000021; OLECMDID_HTTPEQUIV = $00000022; OLECMDID_HTTPEQUIV_DONE = $00000023; OLECMDID_ENABLE_INTERACTION = $00000024; OLECMDID_ONUNLOAD = $00000025; OLECMDID_PROPERTYBAG2 = $00000026; OLECMDID_PREREFRESH = $00000027; OLECMDID_SHOWSCRIPTERROR = $00000028; OLECMDID_SHOWMESSAGE = $00000029; OLECMDID_SHOWFIND = $0000002A; OLECMDID_SHOWPAGESETUP = $0000002B; OLECMDID_SHOWPRINT = $0000002C; OLECMDID_CLOSE = $0000002D; OLECMDID_ALLOWUILESSSAVEAS = $0000002E; OLECMDID_DONTDOWNLOADCSS = $0000002F; // OLECMDF constants type OLECMDF = TOleEnum; const OLECMDF_SUPPORTED = $00000001; OLECMDF_ENABLED = $00000002; OLECMDF_LATCHED = $00000004; OLECMDF_NINCHED = $00000008; OLECMDF_INVISIBLE = $00000010; OLECMDF_DEFHIDEONCTXTMENU = $00000020; // OLECMDEXECOPT constants type OLECMDEXECOPT = TOleEnum; const OLECMDEXECOPT_DODEFAULT = $00000000; OLECMDEXECOPT_PROMPTUSER = $00000001; OLECMDEXECOPT_DONTPROMPTUSER = $00000002; OLECMDEXECOPT_SHOWHELP = $00000003; // tagREADYSTATE constants type tagREADYSTATE = TOleEnum; const READYSTATE_UNINITIALIZED = $00000000; READYSTATE_LOADING = $00000001; READYSTATE_LOADED = $00000002; READYSTATE_INTERACTIVE = $00000003; READYSTATE_COMPLETE = $00000004; // ShellWindowTypeConstants constants type ShellWindowTypeConstants = TOleEnum; const SWC_EXPLORER = $00000000; SWC_BROWSER = $00000001; SWC_3RDPARTY = $00000002; SWC_CALLBACK = $00000004; // ShellWindowFindWindowOptions constants type ShellWindowFindWindowOptions = TOleEnum; const SWFO_NEEDDISPATCH = $00000001; SWFO_INCLUDEPENDING = $00000002; SWFO_COOKIEPASSED = $00000004; type RefreshConstants = TOleEnum; const REFRESH_NORMAL = 0; REFRESH_IFEXPIRED = 1; REFRESH_CONTINUE = 2; REFRESH_COMPLETELY = 3; type BrowserNavConstants = TOleEnum; const navOpenInNewWindow = $00000001; navNoHistory = $00000002; navNoReadFromCache = $00000004; navNoWriteToCache = $00000008; navAllowAutosearch = $00000010; navBrowserBar = $00000020; type // *********************************************************************// // Forward declaration of types defined in TypeLibrary // *********************************************************************// IWebBrowser = interface; IWebBrowserDisp = dispinterface; DWebBrowserEvents = dispinterface; IWebBrowserApp = interface; IWebBrowserAppDisp = dispinterface; IWebBrowser2 = interface; IWebBrowser2Disp = dispinterface; DWebBrowserEvents2 = dispinterface; // *********************************************************************// // Declaration of CoClasses defined in Type Library // (NOTE: Here we map each CoClass to its Default Interface) // *********************************************************************// WebBrowser_V1 = IWebBrowser; WebBrowser = IWebBrowser2; // *********************************************************************// // Declaration of structures, unions and aliases. // *********************************************************************// POleVariant1 = ^OleVariant; {*} // *********************************************************************// // Interface: IWebBrowser // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B} // *********************************************************************// IWebBrowser = interface(IDispatch) ['{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}'] procedure GoBack; safecall; procedure GoForward; safecall; procedure GoHome; safecall; procedure GoSearch; safecall; procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); safecall; procedure Refresh; safecall; procedure Refresh2(var Level: OleVariant); safecall; procedure Stop; safecall; function Get_Application: IDispatch; safecall; function Get_Parent: IDispatch; safecall; function Get_Container: IDispatch; safecall; function Get_Document: IDispatch; safecall; function Get_TopLevelContainer: WordBool; safecall; function Get_Type_: WideString; safecall; function Get_Left: Integer; safecall; procedure Set_Left(pl: Integer); safecall; function Get_Top: Integer; safecall; procedure Set_Top(pl: Integer); safecall; function Get_Width: Integer; safecall; procedure Set_Width(pl: Integer); safecall; function Get_Height: Integer; safecall; procedure Set_Height(pl: Integer); safecall; function Get_LocationName: WideString; safecall; function Get_LocationURL: WideString; safecall; function Get_Busy: WordBool; safecall; property Application: IDispatch read Get_Application; property Parent: IDispatch read Get_Parent; property Container: IDispatch read Get_Container; property Document: IDispatch read Get_Document; property TopLevelContainer: WordBool read Get_TopLevelContainer; property Type_: WideString read Get_Type_; property Left: Integer read Get_Left write Set_Left; property Top: Integer read Get_Top write Set_Top; property Width: Integer read Get_Width write Set_Width; property Height: Integer read Get_Height write Set_Height; property LocationName: WideString read Get_LocationName; property LocationURL: WideString read Get_LocationURL; property Busy: WordBool read Get_Busy; end; // *********************************************************************// // DispIntf: IWebBrowserDisp // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B} // *********************************************************************// IWebBrowserDisp = dispinterface ['{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}'] procedure GoBack; dispid 100; procedure GoForward; dispid 101; procedure GoHome; dispid 102; procedure GoSearch; dispid 103; procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); dispid 104; procedure Refresh; dispid -550; procedure Refresh2(var Level: OleVariant); dispid 105; procedure Stop; dispid 106; property Application: IDispatch readonly dispid 200; property Parent: IDispatch readonly dispid 201; property Container: IDispatch readonly dispid 202; property Document: IDispatch readonly dispid 203; property TopLevelContainer: WordBool readonly dispid 204; property Type_: WideString readonly dispid 205; property Left: Integer dispid 206; property Top: Integer dispid 207; property Width: Integer dispid 208; property Height: Integer dispid 209; property LocationName: WideString readonly dispid 210; property LocationURL: WideString readonly dispid 211; property Busy: WordBool readonly dispid 212; end; // *********************************************************************// // DispIntf: DWebBrowserEvents // Flags: (4112) Hidden Dispatchable // GUID: {EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B} // *********************************************************************// DWebBrowserEvents = dispinterface ['{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}'] procedure BeforeNavigate(const URL: WideString; Flags: Integer; const TargetFrameName: WideString; var PostData: OleVariant; const Headers: WideString; var Cancel: WordBool); dispid 100; procedure NavigateComplete(const URL: WideString); dispid 101; procedure StatusTextChange(const Text: WideString); dispid 102; procedure ProgressChange(Progress: Integer; ProgressMax: Integer); dispid 108; procedure DownloadComplete; dispid 104; procedure CommandStateChange(Command: Integer; Enable: WordBool); dispid 105; procedure DownloadBegin; dispid 106; procedure NewWindow(const URL: WideString; Flags: Integer; const TargetFrameName: WideString; var PostData: OleVariant; const Headers: WideString; var Processed: WordBool); dispid 107; procedure TitleChange(const Text: WideString); dispid 113; procedure FrameBeforeNavigate(const URL: WideString; Flags: Integer; const TargetFrameName: WideString; var PostData: OleVariant; const Headers: WideString; var Cancel: WordBool); dispid 200; procedure FrameNavigateComplete(const URL: WideString); dispid 201; procedure FrameNewWindow(const URL: WideString; Flags: Integer; const TargetFrameName: WideString; var PostData: OleVariant; const Headers: WideString; var Processed: WordBool); dispid 204; procedure Quit(var Cancel: WordBool); dispid 103; procedure WindowMove; dispid 109; procedure WindowResize; dispid 110; procedure WindowActivate; dispid 111; procedure PropertyChange(const Property_: WideString); dispid 112; end; // *********************************************************************// // Interface: IWebBrowserApp // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {0002DF05-0000-0000-C000-000000000046} // *********************************************************************// IWebBrowserApp = interface(IWebBrowser) ['{0002DF05-0000-0000-C000-000000000046}'] procedure Quit; safecall; procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); safecall; procedure PutProperty(const Property_: WideString; vtValue: OleVariant); safecall; function GetProperty(const Property_: WideString): OleVariant; safecall; function Get_Name: WideString; safecall; function Get_HWND: Integer; safecall; function Get_FullName: WideString; safecall; function Get_Path: WideString; safecall; function Get_Visible: WordBool; safecall; procedure Set_Visible(pBool: WordBool); safecall; function Get_StatusBar: WordBool; safecall; procedure Set_StatusBar(pBool: WordBool); safecall; function Get_StatusText: WideString; safecall; procedure Set_StatusText(const StatusText: WideString); safecall; function Get_ToolBar: SYSINT; safecall; procedure Set_ToolBar(Value: SYSINT); safecall; function Get_MenuBar: WordBool; safecall; procedure Set_MenuBar(Value: WordBool); safecall; function Get_FullScreen: WordBool; safecall; procedure Set_FullScreen(pbFullScreen: WordBool); safecall; property Name: WideString read Get_Name; property HWND: Integer read Get_HWND; property FullName: WideString read Get_FullName; property Path: WideString read Get_Path; property Visible: WordBool read Get_Visible write Set_Visible; property StatusBar: WordBool read Get_StatusBar write Set_StatusBar; property StatusText: WideString read Get_StatusText write Set_StatusText; property ToolBar: SYSINT read Get_ToolBar write Set_ToolBar; property MenuBar: WordBool read Get_MenuBar write Set_MenuBar; property FullScreen: WordBool read Get_FullScreen write Set_FullScreen; end; // *********************************************************************// // DispIntf: IWebBrowserAppDisp // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {0002DF05-0000-0000-C000-000000000046} // *********************************************************************// IWebBrowserAppDisp = dispinterface ['{0002DF05-0000-0000-C000-000000000046}'] procedure Quit; dispid 300; procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); dispid 301; procedure PutProperty(const Property_: WideString; vtValue: OleVariant); dispid 302; function GetProperty(const Property_: WideString): OleVariant; dispid 303; property Name: WideString readonly dispid 0; property HWND: Integer readonly dispid -515; property FullName: WideString readonly dispid 400; property Path: WideString readonly dispid 401; property Visible: WordBool dispid 402; property StatusBar: WordBool dispid 403; property StatusText: WideString dispid 404; property ToolBar: SYSINT dispid 405; property MenuBar: WordBool dispid 406; property FullScreen: WordBool dispid 407; procedure GoBack; dispid 100; procedure GoForward; dispid 101; procedure GoHome; dispid 102; procedure GoSearch; dispid 103; procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); dispid 104; procedure Refresh; dispid -550; procedure Refresh2(var Level: OleVariant); dispid 105; procedure Stop; dispid 106; property Application: IDispatch readonly dispid 200; property Parent: IDispatch readonly dispid 201; property Container: IDispatch readonly dispid 202; property Document: IDispatch readonly dispid 203; property TopLevelContainer: WordBool readonly dispid 204; property Type_: WideString readonly dispid 205; property Left: Integer dispid 206; property Top: Integer dispid 207; property Width: Integer dispid 208; property Height: Integer dispid 209; property LocationName: WideString readonly dispid 210; property LocationURL: WideString readonly dispid 211; property Busy: WordBool readonly dispid 212; end; // *********************************************************************// // Interface: IWebBrowser2 // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E} // *********************************************************************// IWebBrowser2 = interface(IWebBrowserApp) ['{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}'] procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); safecall; function QueryStatusWB(cmdID: OLECMDID): OLECMDF; safecall; procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; var pvaOut: OleVariant); safecall; procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; var pvarSize: OleVariant); safecall; function Get_ReadyState: tagREADYSTATE; safecall; function Get_Offline: WordBool; safecall; procedure Set_Offline(pbOffline: WordBool); safecall; function Get_Silent: WordBool; safecall; procedure Set_Silent(pbSilent: WordBool); safecall; function Get_RegisterAsBrowser: WordBool; safecall; procedure Set_RegisterAsBrowser(pbRegister: WordBool); safecall; function Get_RegisterAsDropTarget: WordBool; safecall; procedure Set_RegisterAsDropTarget(pbRegister: WordBool); safecall; function Get_TheaterMode: WordBool; safecall; procedure Set_TheaterMode(pbRegister: WordBool); safecall; function Get_AddressBar: WordBool; safecall; procedure Set_AddressBar(Value: WordBool); safecall; function Get_Resizable: WordBool; safecall; procedure Set_Resizable(Value: WordBool); safecall; property ReadyState: tagREADYSTATE read Get_ReadyState; property Offline: WordBool read Get_Offline write Set_Offline; property Silent: WordBool read Get_Silent write Set_Silent; property RegisterAsBrowser: WordBool read Get_RegisterAsBrowser write Set_RegisterAsBrowser; property RegisterAsDropTarget: WordBool read Get_RegisterAsDropTarget write Set_RegisterAsDropTarget; property TheaterMode: WordBool read Get_TheaterMode write Set_TheaterMode; property AddressBar: WordBool read Get_AddressBar write Set_AddressBar; property Resizable: WordBool read Get_Resizable write Set_Resizable; end; // *********************************************************************// // DispIntf: IWebBrowser2Disp // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E} // *********************************************************************// IWebBrowser2Disp = dispinterface ['{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}'] procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); dispid 500; function QueryStatusWB(cmdID: OLECMDID): OLECMDF; dispid 501; procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; var pvaOut: OleVariant); dispid 502; procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; var pvarSize: OleVariant); dispid 503; property ReadyState: tagREADYSTATE readonly dispid -525; property Offline: WordBool dispid 550; property Silent: WordBool dispid 551; property RegisterAsBrowser: WordBool dispid 552; property RegisterAsDropTarget: WordBool dispid 553; property TheaterMode: WordBool dispid 554; property AddressBar: WordBool dispid 555; property Resizable: WordBool dispid 556; procedure Quit; dispid 300; procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); dispid 301; procedure PutProperty(const Property_: WideString; vtValue: OleVariant); dispid 302; function GetProperty(const Property_: WideString): OleVariant; dispid 303; property Name: WideString readonly dispid 0; property HWND: Integer readonly dispid -515; property FullName: WideString readonly dispid 400; property Path: WideString readonly dispid 401; property Visible: WordBool dispid 402; property StatusBar: WordBool dispid 403; property StatusText: WideString dispid 404; property ToolBar: SYSINT dispid 405; property MenuBar: WordBool dispid 406; property FullScreen: WordBool dispid 407; procedure GoBack; dispid 100; procedure GoForward; dispid 101; procedure GoHome; dispid 102; procedure GoSearch; dispid 103; procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); dispid 104; procedure Refresh; dispid -550; procedure Refresh2(var Level: OleVariant); dispid 105; procedure Stop; dispid 106; property Application: IDispatch readonly dispid 200; property Parent: IDispatch readonly dispid 201; property Container: IDispatch readonly dispid 202; property Document: IDispatch readonly dispid 203; property TopLevelContainer: WordBool readonly dispid 204; property Type_: WideString readonly dispid 205; property Left: Integer dispid 206; property Top: Integer dispid 207; property Width: Integer dispid 208; property Height: Integer dispid 209; property LocationName: WideString readonly dispid 210; property LocationURL: WideString readonly dispid 211; property Busy: WordBool readonly dispid 212; end; // *********************************************************************// // DispIntf: DWebBrowserEvents2 // Flags: (4112) Hidden Dispatchable // GUID: {34A715A0-6587-11D0-924A-0020AFC7AC4D} // *********************************************************************// DWebBrowserEvents2 = dispinterface ['{34A715A0-6587-11D0-924A-0020AFC7AC4D}'] procedure StatusTextChange(const Text: WideString); dispid 102; procedure ProgressChange(Progress: Integer; ProgressMax: Integer); dispid 108; procedure CommandStateChange(Command: Integer; Enable: WordBool); dispid 105; procedure DownloadBegin; dispid 106; procedure DownloadComplete; dispid 104; procedure TitleChange(const Text: WideString); dispid 113; procedure PropertyChange(const szProperty: WideString); dispid 112; procedure BeforeNavigate2(const pDisp: IDispatch; var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant; var Cancel: WordBool); dispid 250; procedure NewWindow2(var ppDisp: IDispatch; var Cancel: WordBool); dispid 251; procedure NavigateComplete2(const pDisp: IDispatch; var URL: OleVariant); dispid 252; procedure DocumentComplete(const pDisp: IDispatch; var URL: OleVariant); dispid 259; procedure OnQuit; dispid 253; procedure OnVisible(Visible: WordBool); dispid 254; procedure OnToolBar(ToolBar: WordBool); dispid 255; procedure OnMenuBar(MenuBar: WordBool); dispid 256; procedure OnStatusBar(StatusBar: WordBool); dispid 257; procedure OnFullScreen(FullScreen: WordBool); dispid 258; procedure OnTheaterMode(TheaterMode: WordBool); dispid 260; end; // *********************************************************************// // OLE Control Proxy class declaration // Control Name : TWebBrowser_V1 // Help String : WebBrowser Control // Default Interface: IWebBrowser // Def. Intf. DISP? : No // Event Interface: DWebBrowserEvents // TypeFlags : (34) CanCreate Control // *********************************************************************// TWebBrowser_V1BeforeNavigate = procedure(Sender: TObject; const URL: WideString; Flags: Integer; const TargetFrameName: WideString; var PostData: OleVariant; const Headers: WideString; var Cancel: WordBool) of object; TWebBrowser_V1NavigateComplete = procedure(Sender: TObject; const URL: WideString) of object; TWebBrowser_V1StatusTextChange = procedure(Sender: TObject; const Text: WideString) of object; TWebBrowser_V1ProgressChange = procedure(Sender: TObject; Progress: Integer; ProgressMax: Integer) of object; TWebBrowser_V1CommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object; TWebBrowser_V1NewWindow = procedure(Sender: TObject; const URL: WideString; Flags: Integer; const TargetFrameName: WideString; var PostData: OleVariant; const Headers: WideString; var Processed: WordBool) of object; TWebBrowser_V1TitleChange = procedure(Sender: TObject; const Text: WideString) of object; TWebBrowser_V1FrameBeforeNavigate = procedure(Sender: TObject; const URL: WideString; Flags: Integer; const TargetFrameName: WideString; var PostData: OleVariant; const Headers: WideString; var Cancel: WordBool) of object; TWebBrowser_V1FrameNavigateComplete = procedure(Sender: TObject; const URL: WideString) of object; TWebBrowser_V1FrameNewWindow = procedure(Sender: TObject; const URL: WideString; Flags: Integer; const TargetFrameName: WideString; var PostData: OleVariant; const Headers: WideString; var Processed: WordBool) of object; TWebBrowser_V1Quit = procedure(Sender: TObject; var Cancel: WordBool) of object; TWebBrowser_V1PropertyChange = procedure(Sender: TObject; const Property_: WideString) of object; PWebBrowser_V1 = ^TWebBrowser_V1; TWebBrowser_V1 = object(TOleCtl) private FOnBeforeNavigate: TWebBrowser_V1BeforeNavigate; FOnNavigateComplete: TWebBrowser_V1NavigateComplete; FOnStatusTextChange: TWebBrowser_V1StatusTextChange; FOnProgressChange: TWebBrowser_V1ProgressChange; FOnDownloadComplete: TOnEvent; FOnCommandStateChange: TWebBrowser_V1CommandStateChange; FOnDownloadBegin: TOnEvent; FOnNewWindow: TWebBrowser_V1NewWindow; FOnTitleChange: TWebBrowser_V1TitleChange; FOnFrameBeforeNavigate: TWebBrowser_V1FrameBeforeNavigate; FOnFrameNavigateComplete: TWebBrowser_V1FrameNavigateComplete; FOnFrameNewWindow: TWebBrowser_V1FrameNewWindow; FOnQuit: TWebBrowser_V1Quit; FOnWindowMove: TOnEvent; FOnWindowResize: TOnEvent; FOnWindowActivate: TOnEvent; FOnPropertyChange: TWebBrowser_V1PropertyChange; FIntf: IWebBrowser; function GetControlInterface: IWebBrowser; protected procedure CreateControl; procedure InitControlData; virtual; function Get_Application: IDispatch; function Get_Parent: IDispatch; function Get_Container: IDispatch; function Get_Document: IDispatch; public procedure GoBack; procedure GoForward; procedure GoHome; procedure GoSearch; procedure Navigate(const URL: WideString); overload; procedure Navigate(const URL: WideString; var Flags: OleVariant); overload; procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload; procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant); overload; procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); overload; procedure Refresh; procedure Refresh2; overload; procedure Refresh2(var Level: OleVariant); overload; procedure Stop; property ControlInterface: IWebBrowser read GetControlInterface; property DefaultInterface: IWebBrowser read GetControlInterface; property Application: IDispatch index 200 read GetIDispatchProp; property Parent: IDispatch index 201 read GetIDispatchProp; property Container: IDispatch index 202 read GetIDispatchProp; property Document: IDispatch index 203 read GetIDispatchProp; property TopLevelContainer: WordBool index 204 read GetWordBoolProp; property Type_: WideString index 205 read GetWideStringProp; property LocationName: WideString index 210 read GetWideStringProp; property LocationURL: WideString index 211 read GetWideStringProp; property Busy: WordBool index 212 read GetWordBoolProp; // published property TabStop; property Align; property DragCursor; property DragMode; property ParentShowHint; property PopupMenu; property ShowHint; property TabOrder; property Visible; property OnDragDrop; property OnDragOver; property OnEndDrag; property OnEnter; property OnExit; property OnStartDrag; property OnBeforeNavigate: TWebBrowser_V1BeforeNavigate read FOnBeforeNavigate write FOnBeforeNavigate; property OnNavigateComplete: TWebBrowser_V1NavigateComplete read FOnNavigateComplete write FOnNavigateComplete; property OnStatusTextChange: TWebBrowser_V1StatusTextChange read FOnStatusTextChange write FOnStatusTextChange; property OnProgressChange: TWebBrowser_V1ProgressChange read FOnProgressChange write FOnProgressChange; property OnDownloadComplete: TOnEvent read FOnDownloadComplete write FOnDownloadComplete; property OnCommandStateChange: TWebBrowser_V1CommandStateChange read FOnCommandStateChange write FOnCommandStateChange; property OnDownloadBegin: TOnEvent read FOnDownloadBegin write FOnDownloadBegin; property OnNewWindow: TWebBrowser_V1NewWindow read FOnNewWindow write FOnNewWindow; property OnTitleChange: TWebBrowser_V1TitleChange read FOnTitleChange write FOnTitleChange; property OnFrameBeforeNavigate: TWebBrowser_V1FrameBeforeNavigate read FOnFrameBeforeNavigate write FOnFrameBeforeNavigate; property OnFrameNavigateComplete: TWebBrowser_V1FrameNavigateComplete read FOnFrameNavigateComplete write FOnFrameNavigateComplete; property OnFrameNewWindow: TWebBrowser_V1FrameNewWindow read FOnFrameNewWindow write FOnFrameNewWindow; property OnQuit: TWebBrowser_V1Quit read FOnQuit write FOnQuit; property OnWindowMove: TOnEvent read FOnWindowMove write FOnWindowMove; property OnWindowResize: TOnEvent read FOnWindowResize write FOnWindowResize; property OnWindowActivate: TOnEvent read FOnWindowActivate write FOnWindowActivate; property OnPropertyChange: TWebBrowser_V1PropertyChange read FOnPropertyChange write FOnPropertyChange; end; // *********************************************************************// // OLE Control Proxy class declaration // Control Name : TWebBrowser // Help String : WebBrowser Control // Default Interface: IWebBrowser2 // Def. Intf. DISP? : No // Event Interface: DWebBrowserEvents2 // TypeFlags : (34) CanCreate Control // *********************************************************************// TWebBrowserStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object; TWebBrowserProgressChange = procedure(Sender: TObject; Progress: Integer; ProgressMax: Integer) of object; TWebBrowserCommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object; TWebBrowserTitleChange = procedure(Sender: TObject; const Text: WideString) of object; TWebBrowserPropertyChange = procedure(Sender: TObject; const szProperty: WideString) of object; TWebBrowserBeforeNavigate2 = procedure(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant; var Cancel: WordBool) of object; TWebBrowserNewWindow2 = procedure(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool) of object; TWebBrowserNavigateComplete2 = procedure(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant) of object; TWebBrowserDocumentComplete = procedure(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant) of object; TWebBrowserOnVisible = procedure(Sender: TObject; Visible: WordBool) of object; TWebBrowserOnToolBar = procedure(Sender: TObject; ToolBar: WordBool) of object; TWebBrowserOnMenuBar = procedure(Sender: TObject; MenuBar: WordBool) of object; TWebBrowserOnStatusBar = procedure(Sender: TObject; StatusBar: WordBool) of object; TWebBrowserOnFullScreen = procedure(Sender: TObject; FullScreen: WordBool) of object; TWebBrowserOnTheaterMode = procedure(Sender: TObject; TheaterMode: WordBool) of object; PWebBrowser = ^TWebBrowser; TWebBrowser = object(TOleCtl) private FOnStatusTextChange: TWebBrowserStatusTextChange; FOnProgressChange: TWebBrowserProgressChange; FOnCommandStateChange: TWebBrowserCommandStateChange; FOnDownloadBegin: TOnEvent; FOnDownloadComplete: TOnEvent; FOnTitleChange: TWebBrowserTitleChange; FOnPropertyChange: TWebBrowserPropertyChange; FOnBeforeNavigate2: TWebBrowserBeforeNavigate2; FOnNewWindow2: TWebBrowserNewWindow2; FOnNavigateComplete2: TWebBrowserNavigateComplete2; FOnDocumentComplete: TWebBrowserDocumentComplete; FOnQuit: TOnEvent; FOnVisible: TWebBrowserOnVisible; FOnToolBar: TWebBrowserOnToolBar; FOnMenuBar: TWebBrowserOnMenuBar; FOnStatusBar: TWebBrowserOnStatusBar; FOnFullScreen: TWebBrowserOnFullScreen; FOnTheaterMode: TWebBrowserOnTheaterMode; FIntf: IWebBrowser2; function GetControlInterface: IWebBrowser2; protected procedure CreateControl; procedure InitControlData; virtual; function Get_Application: IDispatch; function Get_Parent: IDispatch; function Get_Container: IDispatch; function Get_Document: IDispatch; public procedure GoBack; procedure GoForward; procedure GoHome; procedure GoSearch; procedure Navigate(const URL: WideString); overload; procedure Navigate(const URL: WideString; var Flags: OleVariant); overload; procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload; procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant); overload; procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); overload; procedure Refresh; procedure Refresh2; overload; procedure Refresh2(var Level: OleVariant); overload; procedure Stop; procedure Quit; procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); procedure PutProperty(const Property_: WideString; vtValue: OleVariant); function GetProperty(const Property_: WideString): OleVariant; procedure Navigate2(var URL: OleVariant); overload; procedure Navigate2(var URL: OleVariant; var Flags: OleVariant); overload; procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant); overload; procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant); overload; procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); overload; function QueryStatusWB(cmdID: OLECMDID): OLECMDF; procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload; procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant); overload; procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; var pvaOut: OleVariant); overload; procedure ShowBrowserBar(var pvaClsid: OleVariant); overload; procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant); overload; procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; var pvarSize: OleVariant); overload; property ControlInterface: IWebBrowser2 read GetControlInterface; property DefaultInterface: IWebBrowser2 read GetControlInterface; property Application: IDispatch index 200 read GetIDispatchProp; property Parent: IDispatch index 201 read GetIDispatchProp; property Container: IDispatch index 202 read GetIDispatchProp; property Document: IDispatch index 203 read GetIDispatchProp; property TopLevelContainer: WordBool index 204 read GetWordBoolProp; property Type_: WideString index 205 read GetWideStringProp; property LocationName: WideString index 210 read GetWideStringProp; property LocationURL: WideString index 211 read GetWideStringProp; property Busy: WordBool index 212 read GetWordBoolProp; property Name: WideString index 0 read GetWideStringProp; property HWND: Integer index -515 read GetIntegerProp; property FullName: WideString index 400 read GetWideStringProp; property Path: WideString index 401 read GetWideStringProp; property ReadyState: TOleEnum index -525 read GetTOleEnumProp; // published property TabStop; property Align; property DragCursor; property DragMode; property ParentShowHint; property PopupMenu; property ShowHint; property TabOrder; property OnDragDrop; property OnDragOver; property OnEndDrag; property OnEnter; property OnExit; property OnStartDrag; property Visible: WordBool index 402 read GetWordBoolProp write SetWordBoolProp stored False; property StatusBar: WordBool index 403 read GetWordBoolProp write SetWordBoolProp stored False; property StatusText: WideString index 404 read GetWideStringProp write SetWideStringProp stored False; property ToolBar: Integer index 405 read GetIntegerProp write SetIntegerProp stored False; property MenuBar: WordBool index 406 read GetWordBoolProp write SetWordBoolProp stored False; property FullScreen: WordBool index 407 read GetWordBoolProp write SetWordBoolProp stored False; property Offline: WordBool index 550 read GetWordBoolProp write SetWordBoolProp stored False; property Silent: WordBool index 551 read GetWordBoolProp write SetWordBoolProp stored False; property RegisterAsBrowser: WordBool index 552 read GetWordBoolProp write SetWordBoolProp stored False; property RegisterAsDropTarget: WordBool index 553 read GetWordBoolProp write SetWordBoolProp stored False; property TheaterMode: WordBool index 554 read GetWordBoolProp write SetWordBoolProp stored False; property AddressBar: WordBool index 555 read GetWordBoolProp write SetWordBoolProp stored False; property Resizable: WordBool index 556 read GetWordBoolProp write SetWordBoolProp stored False; property OnStatusTextChange: TWebBrowserStatusTextChange read FOnStatusTextChange write FOnStatusTextChange; property OnProgressChange: TWebBrowserProgressChange read FOnProgressChange write FOnProgressChange; property OnCommandStateChange: TWebBrowserCommandStateChange read FOnCommandStateChange write FOnCommandStateChange; property OnDownloadBegin: TOnEvent read FOnDownloadBegin write FOnDownloadBegin; property OnDownloadComplete: TOnEvent read FOnDownloadComplete write FOnDownloadComplete; property OnTitleChange: TWebBrowserTitleChange read FOnTitleChange write FOnTitleChange; property OnPropertyChange: TWebBrowserPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnBeforeNavigate2: TWebBrowserBeforeNavigate2 read FOnBeforeNavigate2 write FOnBeforeNavigate2; property OnNewWindow2: TWebBrowserNewWindow2 read FOnNewWindow2 write FOnNewWindow2; property OnNavigateComplete2: TWebBrowserNavigateComplete2 read FOnNavigateComplete2 write FOnNavigateComplete2; property OnDocumentComplete: TWebBrowserDocumentComplete read FOnDocumentComplete write FOnDocumentComplete; property OnQuit: TOnEvent read FOnQuit write FOnQuit; property OnVisible: TWebBrowserOnVisible read FOnVisible write FOnVisible; property OnToolBar: TWebBrowserOnToolBar read FOnToolBar write FOnToolBar; property OnMenuBar: TWebBrowserOnMenuBar read FOnMenuBar write FOnMenuBar; property OnStatusBar: TWebBrowserOnStatusBar read FOnStatusBar write FOnStatusBar; property OnFullScreen: TWebBrowserOnFullScreen read FOnFullScreen write FOnFullScreen; property OnTheaterMode: TWebBrowserOnTheaterMode read FOnTheaterMode write FOnTheaterMode; end; implementation uses KOLComObj; {$J+} procedure TWebBrowser_V1.InitControlData; const CEventDispIDs: array [0..16] of DWORD = ( $00000064, $00000065, $00000066, $0000006C, $00000068, $00000069, $0000006A, $0000006B, $00000071, $000000C8, $000000C9, $000000CC, $00000067, $0000006D, $0000006E, $0000006F, $00000070); CControlData: TControlData2 = ( ClassID: '{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}'; EventIID: '{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}'; EventCount: 17; EventDispIDs: @CEventDispIDs; LicenseKey: nil (*HR:$80040154*); Flags: $00000000; Version: 401); begin ControlData := @CControlData; TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnBeforeNavigate) - Cardinal(@Self); end; procedure TWebBrowser_V1.CreateControl; procedure DoCreate; begin FIntf := IUnknown(OleObject) as IWebBrowser; end; begin if FIntf = nil then DoCreate; end; function TWebBrowser_V1.GetControlInterface: IWebBrowser; begin CreateControl; Result := FIntf; end; function TWebBrowser_V1.Get_Application: IDispatch; begin Result := DefaultInterface.Get_Application; end; function TWebBrowser_V1.Get_Parent: IDispatch; begin Result := DefaultInterface.Get_Parent; end; function TWebBrowser_V1.Get_Container: IDispatch; begin Result := DefaultInterface.Get_Container; end; function TWebBrowser_V1.Get_Document: IDispatch; begin Result := DefaultInterface.Get_Document; end; procedure TWebBrowser_V1.GoBack; begin DefaultInterface.GoBack; end; procedure TWebBrowser_V1.GoForward; begin DefaultInterface.GoForward; end; procedure TWebBrowser_V1.GoHome; begin DefaultInterface.GoHome; end; procedure TWebBrowser_V1.GoSearch; begin DefaultInterface.GoSearch; end; procedure TWebBrowser_V1.Navigate(const URL: WideString); begin DefaultInterface.Navigate(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam); end; procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant); begin DefaultInterface.Navigate(URL, Flags, EmptyParam, EmptyParam, EmptyParam); end; procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); begin DefaultInterface.Navigate(URL, Flags, TargetFrameName, EmptyParam, EmptyParam); end; procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant); begin DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, EmptyParam); end; procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); begin DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, Headers); end; procedure TWebBrowser_V1.Refresh; begin DefaultInterface.Refresh; end; procedure TWebBrowser_V1.Refresh2; begin DefaultInterface.Refresh2(EmptyParam); end; procedure TWebBrowser_V1.Refresh2(var Level: OleVariant); begin DefaultInterface.Refresh2(Level); end; procedure TWebBrowser_V1.Stop; begin DefaultInterface.Stop; end; procedure TWebBrowser.InitControlData; const CEventDispIDs: array [0..17] of DWORD = ( $00000066, $0000006C, $00000069, $0000006A, $00000068, $00000071, $00000070, $000000FA, $000000FB, $000000FC, $00000103, $000000FD, $000000FE, $000000FF, $00000100, $00000101, $00000102, $00000104); CControlData: TControlData2 = ( ClassID: '{8856F961-340A-11D0-A96B-00C04FD705A2}'; EventIID: '{34A715A0-6587-11D0-924A-0020AFC7AC4D}'; EventCount: 18; EventDispIDs: @CEventDispIDs; LicenseKey: nil (*HR:$80040154*); Flags: $00000000; Version: 401); begin ControlData := @CControlData; TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnStatusTextChange) - Cardinal(@Self); end; procedure TWebBrowser.CreateControl; procedure DoCreate; begin FIntf := IUnknown(OleObject) as IWebBrowser2; end; begin if FIntf = nil then DoCreate; end; function TWebBrowser.GetControlInterface: IWebBrowser2; begin CreateControl; Result := FIntf; end; function TWebBrowser.Get_Application: IDispatch; begin Result := DefaultInterface.Get_Application; end; function TWebBrowser.Get_Parent: IDispatch; begin Result := DefaultInterface.Get_Parent; end; function TWebBrowser.Get_Container: IDispatch; begin Result := DefaultInterface.Get_Container; end; function TWebBrowser.Get_Document: IDispatch; begin Result := DefaultInterface.Get_Document; end; procedure TWebBrowser.GoBack; begin DefaultInterface.GoBack; end; procedure TWebBrowser.GoForward; begin DefaultInterface.GoForward; end; procedure TWebBrowser.GoHome; begin DefaultInterface.GoHome; end; procedure TWebBrowser.GoSearch; begin DefaultInterface.GoSearch; end; procedure TWebBrowser.Navigate(const URL: WideString); begin DefaultInterface.Navigate(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam); end; procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant); begin DefaultInterface.Navigate(URL, Flags, EmptyParam, EmptyParam, EmptyParam); end; procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); begin DefaultInterface.Navigate(URL, Flags, TargetFrameName, EmptyParam, EmptyParam); end; procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant); begin DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, EmptyParam); end; procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); begin DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, Headers); end; procedure TWebBrowser.Refresh; begin DefaultInterface.Refresh; end; procedure TWebBrowser.Refresh2; begin DefaultInterface.Refresh2(EmptyParam); end; procedure TWebBrowser.Refresh2(var Level: OleVariant); begin DefaultInterface.Refresh2(Level); end; procedure TWebBrowser.Stop; begin DefaultInterface.Stop; end; procedure TWebBrowser.Quit; begin DefaultInterface.Quit; end; procedure TWebBrowser.ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); begin DefaultInterface.ClientToWindow(pcx, pcy); end; procedure TWebBrowser.PutProperty(const Property_: WideString; vtValue: OleVariant); begin DefaultInterface.PutProperty(Property_, vtValue); end; function TWebBrowser.GetProperty(const Property_: WideString): OleVariant; begin Result := DefaultInterface.GetProperty(Property_); end; procedure TWebBrowser.Navigate2(var URL: OleVariant); begin DefaultInterface.Navigate2(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam); end; procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant); begin DefaultInterface.Navigate2(URL, Flags, EmptyParam, EmptyParam, EmptyParam); end; procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant); begin DefaultInterface.Navigate2(URL, Flags, TargetFrameName, EmptyParam, EmptyParam); end; procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant); begin DefaultInterface.Navigate2(URL, Flags, TargetFrameName, PostData, EmptyParam); end; procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); begin DefaultInterface.Navigate2(URL, Flags, TargetFrameName, PostData, Headers); end; function TWebBrowser.QueryStatusWB(cmdID: OLECMDID): OLECMDF; begin Result := DefaultInterface.QueryStatusWB(cmdID); end; procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); begin DefaultInterface.ExecWB(cmdID, cmdexecopt, EmptyParam, EmptyParam); end; procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant); begin DefaultInterface.ExecWB(cmdID, cmdexecopt, pvaIn, EmptyParam); end; procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; var pvaOut: OleVariant); begin DefaultInterface.ExecWB(cmdID, cmdexecopt, pvaIn, pvaOut); end; procedure TWebBrowser.ShowBrowserBar(var pvaClsid: OleVariant); begin DefaultInterface.ShowBrowserBar(pvaClsid, EmptyParam, EmptyParam); end; procedure TWebBrowser.ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant); begin DefaultInterface.ShowBrowserBar(pvaClsid, pvarShow, EmptyParam); end; procedure TWebBrowser.ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; var pvarSize: OleVariant); begin DefaultInterface.ShowBrowserBar(pvaClsid, pvarShow, pvarSize); end; end.