pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity
Files
master
kolmck/Addons/KOLSHDocVw.pas

1191 lines
54 KiB
ObjectPascal
Raw Permalink Normal View History

addons update git-svn-id: https://svn.code.sf.net/p/kolmck/code@67 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
2010-10-04 12:58:59 +00:00
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.
Reference in New Issue Copy Permalink