shdocvw_ewb.pas

Delphi VCL Component Pack

    procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); dispid 1;
    procedure SetDefaultSearchUrl(const bstrUrl: WideString); dispid 2;
    procedure NavigateToDefaultSearch; dispid 3;
    function IsRestricted(const bstrGuid: WideString): WordBool; dispid 4;
    property ShellFeaturesEnabled: WordBool readonly dispid 5;
    property SearchAssistantDefault: WordBool readonly dispid 6;
    property Searches: ISearches readonly dispid 7;
    property InWebFolder: WordBool readonly dispid 8;
    procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString; 
                          const bstrValue: WideString); dispid 9;
    function GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; dispid 10;
    property EventHandled: WordBool writeonly dispid 11;
    procedure ResetNextMenu; dispid 12;
    procedure FindOnWeb; dispid 13;
    procedure FindFilesOrFolders; dispid 14;
    procedure FindComputer; dispid 15;
    procedure FindPrinter; dispid 16;
    procedure FindPeople; dispid 17;
    function GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; dispid 18;
    procedure NotifySearchSettingsChanged; dispid 19;
    property ASProvider: WideString dispid 20;
    property ASSetting: SYSINT dispid 21;
    procedure NETDetectNextNavigate; dispid 22;
    procedure PutFindText(const FindText: WideString); dispid 23;
    property Version: SYSINT readonly dispid 24;
    function EncodeString(const bstrValue: WideString; const bstrCharSet: WideString; 
                          bUseUTF8: WordBool): WideString; dispid 25;
  end;

// *********************************************************************//
// Interface: ISearchAssistantOC2
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {72423E8F-8011-11D2-BE79-00A0C9A83DA2}
// *********************************************************************//
  ISearchAssistantOC2 = interface(ISearchAssistantOC)
    ['{72423E8F-8011-11D2-BE79-00A0C9A83DA2}']
    function Get_ShowFindPrinter: WordBool; safecall;
    property ShowFindPrinter: WordBool read Get_ShowFindPrinter;
  end;

// *********************************************************************//
// DispIntf:  ISearchAssistantOC2Disp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {72423E8F-8011-11D2-BE79-00A0C9A83DA2}
// *********************************************************************//
  ISearchAssistantOC2Disp = dispinterface
    ['{72423E8F-8011-11D2-BE79-00A0C9A83DA2}']
    property ShowFindPrinter: WordBool readonly dispid 26;
    procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); dispid 1;
    procedure SetDefaultSearchUrl(const bstrUrl: WideString); dispid 2;
    procedure NavigateToDefaultSearch; dispid 3;
    function IsRestricted(const bstrGuid: WideString): WordBool; dispid 4;
    property ShellFeaturesEnabled: WordBool readonly dispid 5;
    property SearchAssistantDefault: WordBool readonly dispid 6;
    property Searches: ISearches readonly dispid 7;
    property InWebFolder: WordBool readonly dispid 8;
    procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString; 
                          const bstrValue: WideString); dispid 9;
    function GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; dispid 10;
    property EventHandled: WordBool writeonly dispid 11;
    procedure ResetNextMenu; dispid 12;
    procedure FindOnWeb; dispid 13;
    procedure FindFilesOrFolders; dispid 14;
    procedure FindComputer; dispid 15;
    procedure FindPrinter; dispid 16;
    procedure FindPeople; dispid 17;
    function GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; dispid 18;
    procedure NotifySearchSettingsChanged; dispid 19;
    property ASProvider: WideString dispid 20;
    property ASSetting: SYSINT dispid 21;
    procedure NETDetectNextNavigate; dispid 22;
    procedure PutFindText(const FindText: WideString); dispid 23;
    property Version: SYSINT readonly dispid 24;
    function EncodeString(const bstrValue: WideString; const bstrCharSet: WideString; 
                          bUseUTF8: WordBool): WideString; dispid 25;
  end;

// *********************************************************************//
// Interface: ISearchAssistantOC3
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {72423E8F-8011-11D2-BE79-00A0C9A83DA3}
// *********************************************************************//
  ISearchAssistantOC3 = interface(ISearchAssistantOC2)
    ['{72423E8F-8011-11D2-BE79-00A0C9A83DA3}']
    function Get_SearchCompanionAvailable: WordBool; safecall;
    procedure Set_UseSearchCompanion(pbUseSC: WordBool); safecall;
    function Get_UseSearchCompanion: WordBool; safecall;
    property SearchCompanionAvailable: WordBool read Get_SearchCompanionAvailable;
    property UseSearchCompanion: WordBool read Get_UseSearchCompanion write Set_UseSearchCompanion;
  end;

// *********************************************************************//
// DispIntf:  ISearchAssistantOC3Disp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {72423E8F-8011-11D2-BE79-00A0C9A83DA3}
// *********************************************************************//
  ISearchAssistantOC3Disp = dispinterface
    ['{72423E8F-8011-11D2-BE79-00A0C9A83DA3}']
    property SearchCompanionAvailable: WordBool readonly dispid 27;
    property UseSearchCompanion: WordBool dispid 28;
    property ShowFindPrinter: WordBool readonly dispid 26;
    procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); dispid 1;
    procedure SetDefaultSearchUrl(const bstrUrl: WideString); dispid 2;
    procedure NavigateToDefaultSearch; dispid 3;
    function IsRestricted(const bstrGuid: WideString): WordBool; dispid 4;
    property ShellFeaturesEnabled: WordBool readonly dispid 5;
    property SearchAssistantDefault: WordBool readonly dispid 6;
    property Searches: ISearches readonly dispid 7;
    property InWebFolder: WordBool readonly dispid 8;
    procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString; 
                          const bstrValue: WideString); dispid 9;
    function GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; dispid 10;
    property EventHandled: WordBool writeonly dispid 11;
    procedure ResetNextMenu; dispid 12;
    procedure FindOnWeb; dispid 13;
    procedure FindFilesOrFolders; dispid 14;
    procedure FindComputer; dispid 15;
    procedure FindPrinter; dispid 16;
    procedure FindPeople; dispid 17;
    function GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; dispid 18;
    procedure NotifySearchSettingsChanged; dispid 19;
    property ASProvider: WideString dispid 20;
    property ASSetting: SYSINT dispid 21;
    procedure NETDetectNextNavigate; dispid 22;
    procedure PutFindText(const FindText: WideString); dispid 23;
    property Version: SYSINT readonly dispid 24;
    function EncodeString(const bstrValue: WideString; const bstrCharSet: WideString; 
                          bUseUTF8: WordBool): WideString; dispid 25;
  end;

// *********************************************************************//
// DispIntf:  _SearchAssistantEvents
// Flags:     (4112) Hidden Dispatchable
// GUID:      {1611FDDA-445B-11D2-85DE-00C04FA35C89}
// *********************************************************************//
  _SearchAssistantEvents = dispinterface
    ['{1611FDDA-445B-11D2-85DE-00C04FA35C89}']
    procedure OnNextMenuSelect(idItem: Integer); dispid 1;
    procedure OnNewSearch; dispid 2;
  end;


// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name     : TEWB_V1
// Help String      : WebBrowser Control
// Default Interface: IWebBrowser
// Def. Intf. DISP? : No
// Event   Interface: DWebBrowserEvents
// TypeFlags        : (34) CanCreate Control
// *********************************************************************//
  TEWB_V1BeforeNavigate = procedure(ASender: TObject; const URL: WideString; Flags: Integer; 
                                                             const TargetFrameName: WideString; 
                                                             var PostData: OleVariant; 
                                                             const Headers: WideString; 
                                                             var Cancel: WordBool) of object;
  TEWB_V1NavigateComplete = procedure(ASender: TObject; const URL: WideString) of object;
  TEWB_V1StatusTextChange = procedure(ASender: TObject; const Text: WideString) of object;
  TEWB_V1ProgressChange = procedure(ASender: TObject; Progress: Integer; ProgressMax: Integer) of object;
  TEWB_V1CommandStateChange = procedure(ASender: TObject; Command: Integer; Enable: WordBool) of object;
  TEWB_V1NewWindow = procedure(ASender: TObject; const URL: WideString; Flags: Integer; 
                                                        const TargetFrameName: WideString; 
                                                        var PostData: OleVariant; 
                                                        const Headers: WideString; 
                                                        var Processed: WordBool) of object;
  TEWB_V1TitleChange = procedure(ASender: TObject; const Text: WideString) of object;
  TEWB_V1FrameBeforeNavigate = procedure(ASender: TObject; const URL: WideString; 
                                                                  Flags: Integer; 
                                                                  const TargetFrameName: WideString; 
                                                                  var PostData: OleVariant; 
                                                                  const Headers: WideString; 
                                                                  var Cancel: WordBool) of object;
  TEWB_V1FrameNavigateComplete = procedure(ASender: TObject; const URL: WideString) of object;
  TEWB_V1FrameNewWindow = procedure(ASender: TObject; const URL: WideString; Flags: Integer; 
                                                             const TargetFrameName: WideString; 
                                                             var PostData: OleVariant; 
                                                             const Headers: WideString; 
                                                             var Processed: WordBool) of object;
  TEWB_V1Quit = procedure(ASender: TObject; var Cancel: WordBool) of object;
  TEWB_V1PropertyChange = procedure(ASender: TObject; const Property_: WideString) of object;

  TEWB_V1 = class(TOleControl)
  private
    FOnBeforeNavigate: TEWB_V1BeforeNavigate;
    FOnNavigateComplete: TEWB_V1NavigateComplete;
    FOnStatusTextChange: TEWB_V1StatusTextChange;
    FOnProgressChange: TEWB_V1ProgressChange;
    FOnDownloadComplete: TNotifyEvent;
    FOnCommandStateChange: TEWB_V1CommandStateChange;
    FOnDownloadBegin: TNotifyEvent;
    FOnNewWindow: TEWB_V1NewWindow;
    FOnTitleChange: TEWB_V1TitleChange;
    FOnFrameBeforeNavigate: TEWB_V1FrameBeforeNavigate;
    FOnFrameNavigateComplete: TEWB_V1FrameNavigateComplete;
    FOnFrameNewWindow: TEWB_V1FrameNewWindow;
    FOnQuit: TEWB_V1Quit;
    FOnWindowMove: TNotifyEvent;
    FOnWindowResize: TNotifyEvent;
    FOnWindowActivate: TNotifyEvent;
    FOnPropertyChange: TEWB_V1PropertyChange;
    FIntf: IWebBrowser;
    function  GetControlInterface: IWebBrowser;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
    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 Anchors;
    property  TabStop;
    property  Align;
    property  DragCursor;
    property  DragMode;
    property  ParentShowHint;
    property  PopupMenu;
    property  ShowHint;
    property  TabOrder;
    property  Visible;
    property  OnDragDrop;
    property