├── ChangeLog.txt ├── Credits.txt ├── Demos ├── EmbeddedWB Demos │ ├── 01 - New_Window_SDI_Demo │ │ ├── frmMain.dfm │ │ ├── frmMain.pas │ │ └── prjSDIDemo.dpr │ ├── 02 - New_Window_MDI_Demo │ │ ├── Child.dfm │ │ ├── Child.pas │ │ ├── frmMain.dfm │ │ ├── frmMain.pas │ │ └── prjMDIDemo.dpr │ ├── 03 - New_Window_Tabs_Demo_1 │ │ ├── frmMain.dfm │ │ ├── frmMain.pas │ │ └── prjNewWinTabs1Demo.dpr │ ├── 04 - New_Window_Tabs_Demo_2 │ │ ├── fmMain.dfm │ │ ├── fmMain.pas │ │ └── prjNewWinTabs2Demo.dpr │ ├── 05 - OnEvaluateNewWindow_Demo │ │ ├── fmMain.dfm │ │ ├── fmMain.pas │ │ └── prjEvalNewWindowDemo.dpr │ ├── 06 - RightClick_Shortcuts_Demo │ │ ├── FrmMain.dfm │ │ ├── FrmMain.pas │ │ └── PrjRightClick_Demo.dpr │ ├── 07 - DragNDrop_Demo │ │ ├── frmMain.dfm │ │ ├── frmMain.pas │ │ └── prjDragDropDemo.dpr │ ├── 08 - Elements_Under_Mouse_Demo │ │ ├── frmMain.dfm │ │ ├── frmMain.pas │ │ └── prjElementsUnderMouseDemo.dpr │ ├── 09 - PrintPreviewFromTemplate_Demo │ │ ├── Unit1.dfm │ │ ├── Unit1.pas │ │ ├── prjPrintPreviewTemplateDemo.dpr │ │ └── template.htm │ ├── 10 - PrintingOptions_Demo │ │ ├── Main.dfm │ │ ├── Main.pas │ │ └── prjPrintingOptionsDemo.dpr │ ├── 11 - moveto, moveby, resizeto, resizeby_Demo │ │ ├── frmMain.dfm │ │ ├── frmMain.pas │ │ └── prjMoveResizeDemo.dpr │ ├── 12 - MSHTML_Events_Demo │ │ ├── prjMSHTML_EventsDemo.dpr │ │ ├── unit1.dfm │ │ └── unit1.pas │ ├── 13 - ActiveX_Form_Demo │ │ ├── ActiveFormImpl1.dfm │ │ ├── ActiveFormImpl1.pas │ │ ├── ActiveFormProj1.tlb │ │ ├── ActiveFormProj1_TLB.pas │ │ ├── ReadMe.rtf │ │ ├── Target │ │ │ └── ActiveFormProj1.htm │ │ ├── prjActiveForm.tlb │ │ ├── prjActiveFormDemo.dpr │ │ ├── prjActiveFormDemo.ridl │ │ ├── prjActiveFormDemo.tlb │ │ └── prjActiveFormDemo_TLB.pas │ ├── 14 - ExecScriptEx_Demo │ │ ├── prjExecScriptExDemo.dpr │ │ ├── uMain.dfm │ │ └── uMain.pas │ ├── 15 - THTMLListener_Demo │ │ ├── prjHTMLListenerDemo.dpr │ │ ├── uMain.dfm │ │ └── uMain.pas │ ├── 16 - TEWBControl_Demo │ │ ├── Unit1.dfm │ │ ├── Unit1.pas │ │ ├── Unit2.dfm │ │ ├── Unit2.pas │ │ └── prjEWBControlDemo.dpr │ ├── 17 - EWB Events Logger_Demo │ │ ├── Filters.ini │ │ ├── prjEventsTestDemo.dpr │ │ ├── umain.dfm │ │ └── umain.pas │ ├── 18 - SysListView32 Replacement_Demo │ │ ├── prjSysLV32RepDemo.dpr │ │ ├── uMain.dfm │ │ └── uMain.pas │ ├── 19 - DragLink To PageControl_Demo │ │ ├── frmMain.dfm │ │ ├── frmMain.pas │ │ └── prjDragLinkToPageControl.dpr │ ├── EmbeddedWBDemos.bpg │ └── EmbeddedWBDemos.groupproj ├── Mega Demo │ ├── Demo.dfm │ ├── Demo.pas │ └── prjEmbeddedWBDemo.dpr └── Various Demos │ ├── 01 - EditDesigner_Demo │ ├── Demo.html │ ├── prjEditDDemo.dpr │ ├── utEditDesigner.dfm │ └── utEditDesigner.pas │ ├── 02 - ExportFavorites_Demo │ ├── Unit1.dfm │ ├── Unit1.pas │ └── prjExportFavoritesDemo.dpr │ ├── 03 - FileAssociate_Demo │ ├── frmMain.dfm │ ├── frmMain.pas │ └── prjFile_AssDemo.dpr │ ├── 04 - GUID_Demo │ ├── GUID_Creator │ │ ├── IEGuidList.txt │ │ ├── prjGuidCreatorDemo.dpr │ │ ├── utGuidCreator.dfm │ │ └── utGuidCreator.pas │ └── IEGuid │ │ ├── IEGuidList.txt │ │ ├── ieguiddemo_u.dfm │ │ ├── ieguiddemo_u.pas │ │ └── prjIEGuidDemo.dpr │ ├── 05 - IEAddress_Demo │ ├── frmMain.dfm │ ├── frmMain.pas │ └── prjIEAddressDemo.dpr │ ├── 06 - IECache_Demo │ ├── cachedemo_u.dfm │ ├── cachedemo_u.pas │ └── prjCacheDemo.dpr │ ├── 07 - IEDownload_Demo │ ├── IEDownload_Creating_Dynamically (at Run-Time) │ │ ├── Downloader.dfm │ │ ├── Downloader.pas │ │ └── prjDownloaderDemo.dpr │ ├── IEDownload_DownloadManager_Demo │ │ ├── Internet Explorer_OutOfDate │ │ │ ├── DownloadForm_U.dfm │ │ │ ├── DownloadForm_U.pas │ │ │ ├── DownloadManager.dpr │ │ │ ├── DownloadManager.tlb │ │ │ ├── DownloadManager_TLB.pas │ │ │ ├── DownloadRequestForm.dfm │ │ │ ├── DownloadRequestForm.pas │ │ │ └── _IEDownloadManager.pas │ │ └── Webbrowser │ │ │ ├── DownloadForm_U.dfm │ │ │ ├── DownloadForm_U.pas │ │ │ ├── DownloadMgrDemo.dpr │ │ │ ├── DownloadMgrDemo_U.dfm │ │ │ ├── DownloadMgrDemo_U.pas │ │ │ ├── DownloadRequestForm.dfm │ │ │ └── DownloadRequestForm.pas │ ├── IEDownload_Mega_Demo │ │ ├── Downloaddemo_U.dfm │ │ ├── Downloaddemo_U.pas │ │ └── prjDownloadDemo.dpr │ ├── IEDownload_Multiple Files_Simultaneous_Downloading │ │ ├── DownloadForm_U.dfm │ │ ├── DownloadForm_U.pas │ │ ├── DownloadMgrDemo_U.dfm │ │ ├── DownloadMgrDemo_U.pas │ │ ├── DownloadRequestForm.dfm │ │ ├── DownloadRequestForm.pas │ │ └── prjDownloadMgrDemo.dpr │ └── IEDownload_Simple_Demo │ │ ├── prjIEDownloadSimple.dpr │ │ ├── utIEDownloadSimple.dfm │ │ └── utIEDownloadSimple.pas │ ├── 08 - IEMultiDownload │ ├── prjMultiDLDemo.dpr │ ├── utMultiDL.dfm │ └── utMultiDL.pas │ ├── 09 - IEParser_Demo │ ├── Unit1.dfm │ ├── Unit1.pas │ └── prjIEParserDemo.dpr │ ├── 10 - IETravellog_Demo │ ├── TravelLogDemo_U.dfm │ ├── TravelLogDemo_U.pas │ └── prjTravellogDemo.dpr │ ├── 11 - LinksLabel_Demo │ ├── FrmMain.dfm │ ├── FrmMain.pas │ └── prjLinksDemo.dpr │ ├── 12 - LinksBar_Demo │ ├── Unit1.dfm │ ├── Unit1.pas │ └── prjProject1Demo.dpr │ ├── 13 - MimeFilter_Demo │ ├── Mime_unit.dfm │ ├── Mime_unit.pas │ ├── demo.htm │ ├── pnh.gif │ └── prjMimeDemo.dpr │ ├── 14 - RichEditWB_Demo │ ├── Unit1.dfm │ ├── Unit1.pas │ └── prjProject1Demo.dpr │ ├── 15 - Zones_Security_Demo │ ├── _ZoneDemo.dfm │ ├── _ZoneDemo.pas │ └── prjZonesSecurityDemo.dpr │ ├── 16 - UI-Less_Demo │ ├── prjUIParser_Demo.dpr │ ├── utParser.dfm │ └── utParser.pas │ ├── 17 - URL_Demo │ ├── frmMain.dfm │ ├── frmMain.pas │ └── prjMainDemo.dpr │ ├── 18 - URL_History_Demo │ ├── UrlhistoryDemo_U.dfm │ ├── UrlhistoryDemo_U.pas │ └── prjUrlHistoryDemo.dpr │ ├── 19 - URLSearchHook │ ├── Searchhook.tlb │ ├── Searchhook_TLB.pas │ ├── _SearchHook.pas │ ├── prjSearchhookDemo.dpr │ ├── prjSearchhookDemo.ridl │ ├── prjSearchhookDemo.tlb │ └── prjSearchhookDemo_TLB.pas │ ├── 20 - WebUpdater_Demo │ ├── Updater_Demo │ │ ├── NewUpdate.xml │ │ ├── Unit1.dfm │ │ ├── Unit1.pas │ │ └── project1.dpr │ └── Updater_XML_File_Creator │ │ ├── Unit1.dfm │ │ ├── Unit1.pas │ │ └── prjProject1Demo.dpr │ ├── VariousDemos.bpg │ └── VariousDemos.groupproj ├── Licence.txt ├── Packages ├── EmbeddedWebBrowser_D2006.dpk ├── EmbeddedWebBrowser_D2007.dpk ├── EmbeddedWebBrowser_D2009.dpk ├── EmbeddedWebBrowser_D2010.dpk ├── EmbeddedWebBrowser_D5.dpk ├── EmbeddedWebBrowser_D6.dpk ├── EmbeddedWebBrowser_D7.dpk └── EmbeddedWebBrowser_XE.dpk ├── ReadMe_Install.txt ├── Source ├── AppWUStrings.pas ├── AppWebUpdater.pas ├── Browse4Folder.pas ├── CryptFuncDll.txt ├── DirMonitor.pas ├── EWB.dcr ├── EWB.inc ├── EWBMouseHook.pas ├── EWB_jedi.inc ├── EditDesigner.pas ├── Edithost.pas ├── EmbeddedWB.pas ├── EwbAcc.pas ├── EwbActns.pas ├── EwbBehaviorsComp.pas ├── EwbClasses.pas ├── EwbControlComponent.pas ├── EwbCore.pas ├── EwbCoreTools.pas ├── EwbDDE.pas ├── EwbDisableFocusControl.pas ├── EwbDisableMouseWheelFix.pas ├── EwbEditors.pas ├── EwbEvents.pas ├── EwbEventsComp.pas ├── EwbFocusControl.pas ├── EwbReg.pas ├── EwbTools.pas ├── EwbUrl.pas ├── ExportFavorites.pas ├── FavMenu.pas ├── FavoritesListView.pas ├── FavoritesPopup.pas ├── FavoritesTree.pas ├── FileExtAssociate.pas ├── HighLightHTML.pas ├── HighLightRichSyntax.pas ├── HighLightXML.pas ├── HistoryListView.pas ├── HistoryMenu.pas ├── IEAddress.pas ├── IECache.pas ├── IEConst.pas ├── IEDownload.pas ├── IEDownloadAcc.pas ├── IEDownloadStrings.pas ├── IEDownloadTools.pas ├── IEGuid.pas ├── IEMultiDownload.pas ├── IEParser.pas ├── IETravelLog.pas ├── ImportFavorites.pas ├── LibXmlComps.pas ├── LibXmlParser.pas ├── LinksBar.pas ├── LinksLabel.pas ├── MSHTMLEvents.pas ├── MenuContext.pas ├── Mshtml_Ewb.pas ├── OleCtrlsFix.pas ├── RichEditBrowser.pas ├── SHDocVw_EWB.pas ├── SecurityManager.pas ├── SendMail_For_Ewb.pas ├── UI_Less.pas ├── UrlHistory.pas ├── Wcrypt2.pas └── wbhFixes.pas └── Tools ├── MimeFilter.pas ├── XPThemedBand.zip ├── delphiband102.zip ├── iehelper.zip └── urlsearchhook.zip /Demos/EmbeddedWB Demos/01 - New_Window_SDI_Demo/prjSDIDemo.dpr: -------------------------------------------------------------------------------- 1 | //************************************************************* 2 | // EmbeddedWB - SDI Demo * 3 | // * 4 | // by * 5 | // Eran Bodankin (bsalsa) * 6 | // bsalsa@bsalsa.com * 7 | // * 8 | // Documentation and updated versions: * 9 | // http://www.bsalsa.com * 10 | //************************************************************* 11 | {*******************************************************************************} 12 | {LICENSE: 13 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 14 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 15 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 16 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 17 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 18 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 19 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 20 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 21 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 22 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 23 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 24 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 25 | 26 | You may use, change or modify the demo under 4 conditions: 27 | 1. In your website, add a link to "http://www.bsalsa.com" 28 | 2. In your application, add credits to "Embedded Web Browser" 29 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 30 | for the benefit of the other users. 31 | 4. Please, consider donation in our web site! 32 | {*******************************************************************************} 33 | 34 | program prjSDIDemo; 35 | 36 | uses 37 | Forms, 38 | frmMain in 'frmMain.pas' {Form1}; 39 | 40 | {$R *.res} 41 | 42 | begin 43 | Application.Initialize; 44 | Application.CreateForm(TForm1, Form1); 45 | Application.Run; 46 | end. 47 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/02 - New_Window_MDI_Demo/Child.dfm: -------------------------------------------------------------------------------- 1 | object ChildFrm: TChildFrm 2 | Left = 281 3 | Top = 203 4 | Width = 417 5 | Height = 341 6 | Caption = 'Child Browser' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | FormStyle = fsMDIChild 14 | OldCreateOrder = False 15 | Position = poDefault 16 | Visible = True 17 | OnActivate = FormActivate 18 | OnClose = FormClose 19 | PixelsPerInch = 96 20 | TextHeight = 13 21 | object EmbeddedWB1: TEmbeddedWB 22 | Left = 0 23 | Top = 0 24 | Width = 409 25 | Height = 288 26 | Align = alClient 27 | TabOrder = 0 28 | Silent = False 29 | OnStatusTextChange = EmbeddedWB1StatusTextChange 30 | OnDownloadComplete = EmbeddedWB1DownloadComplete 31 | OnNewWindow2 = EmbeddedWB1NewWindow2 32 | DisableCtrlShortcuts = 'N' 33 | UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes] 34 | About = ' EmbeddedWB http://bsalsa.com/' 35 | PrintOptions.Margins.Left = 19.05 36 | PrintOptions.Margins.Right = 19.05 37 | PrintOptions.Margins.Top = 19.05 38 | PrintOptions.Margins.Bottom = 19.05 39 | PrintOptions.Header = '&w&bSeite &p von &P' 40 | PrintOptions.HTMLHeader.Strings = ( 41 | '') 42 | PrintOptions.Footer = '&u&b&d' 43 | PrintOptions.Orientation = poPortrait 44 | UserAgent = 'EmbeddedWB 14.55 from: http://www.bsalsa.com/' 45 | ControlData = { 46 | 4C000000452A0000BB1F00000000000000000000000000000000000000000000 47 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 48 | 2B2E126208000000000000004C0000000114020000000000C000000000000046 49 | 8000000000000000000000000000000000000000000000000000000000000000 50 | 00000000000000000100000000000000000000000000000000000000} 51 | end 52 | object StatusBar1: TStatusBar 53 | Left = 0 54 | Top = 288 55 | Width = 409 56 | Height = 19 57 | Panels = <> 58 | SimplePanel = False 59 | end 60 | end 61 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/02 - New_Window_MDI_Demo/frmMain.dfm: -------------------------------------------------------------------------------- 1 | object MainFrm: TMainFrm 2 | Left = 314 3 | Top = 324 4 | Width = 659 5 | Height = 509 6 | Caption = 'TEmbeddedWB - MDI Demo' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | FormStyle = fsMDIForm 14 | Menu = MainMenu1 15 | OldCreateOrder = False 16 | Position = poScreenCenter 17 | Scaled = False 18 | WindowMenu = N10 19 | OnShow = FormShow 20 | PixelsPerInch = 96 21 | TextHeight = 13 22 | object Panel1: TPanel 23 | Left = 0 24 | Top = 0 25 | Width = 651 26 | Height = 41 27 | Align = alTop 28 | TabOrder = 0 29 | DesignSize = ( 30 | 651 31 | 41) 32 | object IEAddress1: TIEAddress 33 | Left = 16 34 | Top = 8 35 | Width = 551 36 | Height = 22 37 | About = 'TIEAddress. Help & Support: http://www.bsalsa.com/' 38 | Anchors = [akLeft, akTop, akRight] 39 | ButtonColor = clBlack 40 | ButtonPressedColor = clBlack 41 | IconLeft = 4 42 | IconTop = 3 43 | ItemHeight = 16 44 | ParentBiDiMode = True 45 | ShowFavicon = True 46 | TabOrder = 0 47 | Text = 'http://www.bsalsa.com/' 48 | TextOnLoad = tlUserDefine 49 | TextOnShow = 'http://www.bsalsa.com/' 50 | Themes = tmXP 51 | end 52 | object Button1: TButton 53 | Left = 585 54 | Top = 8 55 | Width = 53 56 | Height = 22 57 | Anchors = [akTop] 58 | Caption = 'Go' 59 | TabOrder = 1 60 | OnClick = Button1Click 61 | end 62 | end 63 | object MainMenu1: TMainMenu 64 | Left = 8 65 | Top = 48 66 | object File1: TMenuItem 67 | Caption = '&File' 68 | object Newchild1: TMenuItem 69 | Caption = 'New Child' 70 | OnClick = Newchild1Click 71 | end 72 | object N2: TMenuItem 73 | Caption = '-' 74 | end 75 | object CloseAll1: TMenuItem 76 | Caption = 'Close &All' 77 | OnClick = CloseAll1Click 78 | end 79 | object N3: TMenuItem 80 | Caption = '-' 81 | end 82 | object Exit1: TMenuItem 83 | Caption = 'Exit' 84 | OnClick = Exit1Click 85 | end 86 | end 87 | object Window1: TMenuItem 88 | Caption = '&Window' 89 | object Cascade1: TMenuItem 90 | Caption = '&Cascade' 91 | OnClick = Cascade1Click 92 | end 93 | object Tile1: TMenuItem 94 | Caption = '&Tile' 95 | OnClick = Tile1Click 96 | end 97 | object ArrangeAll1: TMenuItem 98 | Caption = '&Arrange All' 99 | OnClick = ArrangeAll1Click 100 | end 101 | object N10: TMenuItem 102 | AutoHotkeys = maManual 103 | AutoLineReduction = maManual 104 | Caption = '-' 105 | end 106 | object MinimizeAll1: TMenuItem 107 | Caption = 'Minimize All' 108 | OnClick = MinimizeAll1Click 109 | end 110 | end 111 | end 112 | object Timer1: TTimer 113 | Left = 48 114 | Top = 48 115 | end 116 | end 117 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/02 - New_Window_MDI_Demo/prjMDIDemo.dpr: -------------------------------------------------------------------------------- 1 | //************************************************************* 2 | // EmbeddedWB - MDI Demo * 3 | // * 4 | // by * 5 | // Eran Bodankin (bsalsa) * 6 | // bsalsa@bsalsa.com * 7 | // * 8 | // Documentation and updated versions: * 9 | // http://www.bsalsa.com * 10 | //************************************************************* 11 | {*******************************************************************************} 12 | {LICENSE: 13 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 14 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 15 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 16 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 17 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 18 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 19 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 20 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 21 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 22 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 23 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 24 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 25 | 26 | You may use, change or modify the demo under 4 conditions: 27 | 1. In your website, add a link to "http://www.bsalsa.com" 28 | 2. In your application, add credits to "Embedded Web Browser" 29 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 30 | for the benefit of the other users. 31 | 4. Please, consider donation in our web site! 32 | {*******************************************************************************} 33 | 34 | program prjMDIDemo; 35 | 36 | uses 37 | Forms, 38 | frmMain in 'frmMain.pas' {MainFrm}, 39 | Child in 'Child.pas' {ChildFrm}; 40 | 41 | {$R *.RES} 42 | 43 | begin 44 | Application.Initialize; 45 | Application.CreateForm(TMainFrm, MainFrm); 46 | Application.Run; 47 | end. 48 | 49 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/03 - New_Window_Tabs_Demo_1/frmMain.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 289 3 | Top = 201 4 | Caption = 'TEmbeddedWB - Open In A New Window Demo (Tabs)' 5 | ClientHeight = 418 6 | ClientWidth = 563 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | Scaled = False 16 | OnShow = FormShow 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | object PageControl1: TPageControl 20 | Left = 0 21 | Top = 41 22 | Width = 563 23 | Height = 358 24 | Align = alClient 25 | ParentShowHint = False 26 | ShowHint = True 27 | TabOrder = 0 28 | OnChange = PageControl1Change 29 | end 30 | object Panel1: TPanel 31 | Left = 0 32 | Top = 0 33 | Width = 563 34 | Height = 41 35 | Align = alTop 36 | TabOrder = 1 37 | DesignSize = ( 38 | 563 39 | 41) 40 | object Button1: TButton 41 | Left = 357 42 | Top = 11 43 | Width = 52 44 | Height = 22 45 | Anchors = [akTop] 46 | Caption = 'Go' 47 | TabOrder = 0 48 | OnClick = Button1Click 49 | end 50 | object IEAddress1: TIEAddress 51 | Left = 0 52 | Top = 11 53 | Width = 348 54 | Height = 22 55 | About = 'TIEAddress. Help & Support: http://www.bsalsa.com/' 56 | Anchors = [akLeft, akTop, akRight] 57 | ButtonColor = clBlack 58 | ButtonPressedColor = clBtnShadow 59 | IconLeft = 4 60 | IconTop = 3 61 | ItemHeight = 16 62 | ParentBiDiMode = True 63 | TabOrder = 1 64 | Text = 'http://www.bsalsa.com/' 65 | end 66 | object cbNewTab: TCheckBox 67 | Left = 429 68 | Top = 14 69 | Width = 121 70 | Height = 17 71 | Anchors = [akTop, akRight] 72 | Caption = 'Open In A New Tab' 73 | Checked = True 74 | State = cbChecked 75 | TabOrder = 2 76 | end 77 | end 78 | object StatusBar1: TStatusBar 79 | Left = 0 80 | Top = 399 81 | Width = 563 82 | Height = 19 83 | Panels = <> 84 | end 85 | end 86 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/03 - New_Window_Tabs_Demo_1/prjNewWinTabs1Demo.dpr: -------------------------------------------------------------------------------- 1 | //************************************************************* 2 | // EmbeddedWB - Tabs Demo * 3 | // * 4 | // by * 5 | // Eran Bodankin (bsalsa) * 6 | // bsalsa@bsalsa.com * 7 | // * 8 | // Documentation and updated versions: * 9 | // http://www.bsalsa.com * 10 | //************************************************************* 11 | {*******************************************************************************} 12 | {LICENSE: 13 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 14 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 15 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 16 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 17 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 18 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 19 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 20 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 21 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 22 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 23 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 24 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 25 | 26 | You may use, change or modify the demo under 4 conditions: 27 | 1. In your website, add a link to "http://www.bsalsa.com" 28 | 2. In your application, add credits to "Embedded Web Browser" 29 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 30 | for the benefit of the other users. 31 | 4. Please, consider donation in our web site! 32 | {*******************************************************************************} 33 | 34 | program prjNewWinTabs1Demo; 35 | 36 | uses 37 | Forms, 38 | frmMain in 'frmMain.pas' {Form1}; 39 | 40 | {$R *.res} 41 | 42 | begin 43 | Application.Initialize; 44 | Application.CreateForm(TForm1, Form1); 45 | Application.Run; 46 | end. 47 | 48 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/04 - New_Window_Tabs_Demo_2/fmMain.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 330 3 | Top = 294 4 | Width = 726 5 | Height = 482 6 | Caption = 'TEmbeddedWB - New Window Tabs Demo 2' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | Scaled = False 16 | OnShow = FormShow 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | object Panel1: TPanel 20 | Left = 0 21 | Top = 0 22 | Width = 710 23 | Height = 38 24 | Align = alTop 25 | TabOrder = 0 26 | object btnGo: TButton 27 | Left = 380 28 | Top = 7 29 | Width = 43 30 | Height = 22 31 | Anchors = [akTop, akRight] 32 | Caption = 'Go' 33 | TabOrder = 0 34 | OnClick = btnGoClick 35 | end 36 | object btnBack: TButton 37 | Left = 430 38 | Top = 7 39 | Width = 52 40 | Height = 22 41 | Anchors = [akTop, akRight] 42 | Caption = 'Back' 43 | TabOrder = 1 44 | OnClick = btnBackClick 45 | end 46 | object btnForward: TButton 47 | Left = 489 48 | Top = 7 49 | Width = 49 50 | Height = 22 51 | Anchors = [akTop, akRight] 52 | Caption = 'Forward' 53 | TabOrder = 2 54 | OnClick = btnForwardClick 55 | end 56 | object IEAddress1: TIEAddress 57 | Left = 8 58 | Top = 7 59 | Width = 361 60 | Height = 22 61 | About = 'TIEAddress. Help & Support: http://www.bsalsa.com/' 62 | Anchors = [akLeft, akTop, akRight] 63 | IconLeft = 4 64 | IconTop = 3 65 | ItemHeight = 16 66 | ParentBiDiMode = True 67 | TabOrder = 3 68 | end 69 | object cbOpenNew: TCheckBox 70 | Left = 616 71 | Top = 10 72 | Width = 97 73 | Height = 17 74 | Anchors = [akTop, akRight] 75 | Caption = 'OpenNewTab' 76 | Checked = True 77 | State = cbChecked 78 | TabOrder = 4 79 | end 80 | object btnStop: TButton 81 | Left = 545 82 | Top = 7 83 | Width = 49 84 | Height = 22 85 | Anchors = [akTop, akRight] 86 | Caption = 'Stop' 87 | TabOrder = 5 88 | OnClick = btnStopClick 89 | end 90 | end 91 | object PageControl1: TPageControl 92 | Left = 0 93 | Top = 38 94 | Width = 710 95 | Height = 389 96 | Align = alClient 97 | TabOrder = 1 98 | OnChange = PageControl1Change 99 | end 100 | object StatusBar1: TStatusBar 101 | Left = 0 102 | Top = 427 103 | Width = 710 104 | Height = 19 105 | Panels = <> 106 | SimplePanel = False 107 | end 108 | end 109 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/04 - New_Window_Tabs_Demo_2/prjNewWinTabs2Demo.dpr: -------------------------------------------------------------------------------- 1 | //************************************************************* 2 | // EmbeddedWB - Tabs Demo * 3 | // * 4 | // by * 5 | // Eran Bodankin (bsalsa) * 6 | // bsalsa@bsalsa.com * 7 | // * 8 | // Documentation and updated versions: * 9 | // http://www.bsalsa.com * 10 | //************************************************************* 11 | {*******************************************************************************} 12 | {LICENSE: 13 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 14 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 15 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 16 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 17 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 18 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 19 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 20 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 21 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 22 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 23 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 24 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 25 | 26 | You may use, change or modify the demo under 4 conditions: 27 | 1. In your website, add a link to "http://www.bsalsa.com" 28 | 2. In your application, add credits to "Embedded Web Browser" 29 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 30 | for the benefit of the other users. 31 | 4. Please, consider donation in our web site! 32 | {*******************************************************************************} 33 | 34 | program prjNewWinTabs2Demo; 35 | 36 | uses 37 | Forms, 38 | fmMain in 'fmMain.pas' {Form1}; 39 | 40 | {$R *.res} 41 | 42 | begin 43 | Application.Initialize; 44 | Application.CreateForm(TForm1, Form1); 45 | Application.Run; 46 | end. 47 | 48 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/05 - OnEvaluateNewWindow_Demo/fmMain.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 162 3 | Top = 186 4 | Width = 831 5 | Height = 521 6 | Caption = 'TEmbeddedWB - OnEvaluateNewWindow Event Demo' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | Scaled = False 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object Panel1: TPanel 19 | Left = 0 20 | Top = 0 21 | Width = 815 22 | Height = 105 23 | Align = alTop 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 8 27 | Top = 75 28 | Width = 774 29 | Height = 13 30 | Caption = 31 | 'Accepts data about a new window that is attempting to display an' + 32 | 'd determines whether that window should be allowed to open based' + 33 | ' on the user'#39's preferences.' 34 | Transparent = True 35 | end 36 | object Label2: TLabel 37 | Left = 8 38 | Top = 56 39 | Width = 166 40 | Height = 13 41 | Caption = 'OnEvaluateNewWindow Event' 42 | Font.Charset = DEFAULT_CHARSET 43 | Font.Color = clWindowText 44 | Font.Height = -11 45 | Font.Name = 'Tahoma' 46 | Font.Style = [fsBold, fsUnderline] 47 | ParentFont = False 48 | Transparent = True 49 | end 50 | object btnGo: TButton 51 | Left = 423 52 | Top = 7 53 | Width = 43 54 | Height = 21 55 | Caption = 'Go' 56 | TabOrder = 0 57 | end 58 | object IEAddress1: TIEAddress 59 | Left = 8 60 | Top = 7 61 | Width = 409 62 | Height = 22 63 | About = 'TIEAddress. Help & Support: http://www.bsalsa.com/' 64 | EmbeddedWB = EmbeddedWB1 65 | IconLeft = 4 66 | IconTop = 3 67 | ItemHeight = 16 68 | ParentBiDiMode = True 69 | TabOrder = 1 70 | TextOnLoad = tlUserDefine 71 | end 72 | end 73 | object StatusBar1: TStatusBar 74 | Left = 0 75 | Top = 466 76 | Width = 815 77 | Height = 19 78 | Panels = <> 79 | SimplePanel = False 80 | end 81 | object EmbeddedWB1: TEmbeddedWB 82 | Left = 0 83 | Top = 105 84 | Width = 815 85 | Height = 361 86 | Align = alClient 87 | TabOrder = 2 88 | DisableCtrlShortcuts = 'N' 89 | UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes] 90 | OnEvaluateNewWindow = EmbeddedWB1EvaluateNewWindow 91 | About = ' EmbeddedWB http://bsalsa.com/' 92 | HTMLCode.Strings = ( 93 | 'http://www.popupcheck.com/freescan/popup/popup_test_standard.asp') 94 | PrintOptions.Margins.Left = 19.05 95 | PrintOptions.Margins.Right = 19.05 96 | PrintOptions.Margins.Top = 19.05 97 | PrintOptions.Margins.Bottom = 19.05 98 | PrintOptions.Header = '&w&bPage &p of &P' 99 | PrintOptions.HTMLHeader.Strings = ( 100 | '') 101 | PrintOptions.Footer = '&u&b&d' 102 | PrintOptions.Orientation = poPortrait 103 | ControlData = { 104 | 4C0000000F550000842500000000000000000000000000000000000000000000 105 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 106 | 2B2E126208000000000000004C0000000114020000000000C000000000000046 107 | 8000000000000000000000000000000000000000000000000000000000000000 108 | 00000000000000000100000000000000000000000000000000000000} 109 | end 110 | end 111 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/05 - OnEvaluateNewWindow_Demo/prjEvalNewWindowDemo.dpr: -------------------------------------------------------------------------------- 1 | //************************************************************* 2 | // EmbeddedWB - Tabs Demo * 3 | // * 4 | // by * 5 | // Eran Bodankin (bsalsa) * 6 | // bsalsa@bsalsa.com * 7 | // * 8 | // Documentation and updated versions: * 9 | // http://www.bsalsa.com * 10 | //************************************************************* 11 | {*******************************************************************************} 12 | {LICENSE: 13 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 14 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 15 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 16 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 17 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 18 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 19 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 20 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 21 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 22 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 23 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 24 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 25 | 26 | You may use, change or modify the demo under 4 conditions: 27 | 1. In your website, add a link to "http://www.bsalsa.com" 28 | 2. In your application, add credits to "Embedded Web Browser" 29 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 30 | for the benefit of the other users. 31 | 4. Please, consider donation in our web site! 32 | {*******************************************************************************} 33 | 34 | program prjEvalNewWindowDemo; 35 | 36 | uses 37 | Forms, 38 | fmMain in 'fmMain.pas' {Form1}; 39 | 40 | {$R *.res} 41 | 42 | begin 43 | Application.Initialize; 44 | Application.CreateForm(TForm1, Form1); 45 | Application.Run; 46 | end. 47 | 48 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/06 - RightClick_Shortcuts_Demo/PrjRightClick_Demo.dpr: -------------------------------------------------------------------------------- 1 | //************************************************************* 2 | // Menus Demo * 3 | // For Delphi * 4 | // by * 5 | // Eran Bodankin (bsalsa) -(bsalsa@bsalsa.com) * 6 | // * 7 | // Documentation and updated versions: * 8 | // * 9 | // http://www.bsalsa.com * 10 | //************************************************************* 11 | {LICENSE: 12 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 13 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 14 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 15 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 16 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 17 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 18 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 19 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 20 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 21 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 22 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 23 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 24 | 25 | You may use/ change/ modify the component under 4 conditions: 26 | 1. In your web site, add a link to "http://www.bsalsa.com" 27 | 2. In your application, add credits to "Embedded Web Browser" 28 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit for the benefit 29 | of the other users. 30 | 4. Please, consider donation in our web site! 31 | {*******************************************************************************} 32 | 33 | program PrjRightClick_Demo; 34 | 35 | uses 36 | Forms, 37 | FrmMain in 'FrmMain.pas' {Form1}; 38 | 39 | {$R *.res} 40 | 41 | begin 42 | Application.Initialize; 43 | Application.CreateForm(TForm1, Form1); 44 | Application.Run; 45 | end. 46 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/07 - DragNDrop_Demo/prjDragDropDemo.dpr: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { EmbeddedWB - Drag And Drop Demo } 3 | { by Eran Bodankin (bsalsa) bsalsa@bsalsa.com } 4 | { Enjoy! } 5 | { UPDATES: } 6 | { http://www.bsalsa.com } 7 | {*******************************************************} 8 | {*******************************************************************************} 9 | {LICENSE: 10 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 11 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 12 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 13 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 14 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 15 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 16 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 17 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 18 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 19 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 20 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 21 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 22 | 23 | You may use, change or modify the component under 4 conditions: 24 | 1. In your website, add a link to "http://www.bsalsa.com" 25 | 2. In your application, add credits to "Embedded Web Browser" 26 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 27 | for the benefit of the other users. 28 | 4. Please, consider donation in our web site! } 29 | {*******************************************************************************} 30 | 31 | program prjDragDropDemo; 32 | 33 | uses 34 | Forms, 35 | frmMain in 'frmMain.pas' {Form1}; 36 | 37 | {$R *.res} 38 | 39 | begin 40 | Application.Initialize; 41 | Application.CreateForm(TForm1, Form1); 42 | Application.Run; 43 | end. 44 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/08 - Elements_Under_Mouse_Demo/prjElementsUnderMouseDemo.dpr: -------------------------------------------------------------------------------- 1 | //************************************************************* 2 | // EmbeddedWB - Elements Under Mouse Demo * 3 | // * 4 | // by * 5 | // Eran Bodankin (bsalsa) * 6 | // bsalsa@bsalsa.com * 7 | // * 8 | // Documentation and updated versions: * 9 | // http://www.bsalsa.com * 10 | //************************************************************* 11 | {*******************************************************************************} 12 | {LICENSE: 13 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 14 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 15 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 16 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 17 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 18 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 19 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 20 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 21 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 22 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 23 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 24 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 25 | 26 | You may use, change or modify the demo under 3 conditions: 27 | 1. In your website, add a link to "http://www.bsalsa.com" 28 | 2. In your application, add credits to "Embedded Web Browser" 29 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 30 | for the benefit of the other users. 31 | 4. Please, consider donation in our web site! 32 | {*******************************************************************************} 33 | 34 | program prjElementsUnderMouseDemo; 35 | 36 | uses 37 | Forms, 38 | frmMain in 'frmMain.pas' {Form2}; 39 | 40 | {$R *.res} 41 | 42 | begin 43 | Application.Initialize; 44 | Application.CreateForm(TfrmElements, frmElements); 45 | Application.Run; 46 | end. 47 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/09 - PrintPreviewFromTemplate_Demo/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 332 3 | Top = 255 4 | Width = 768 5 | Height = 558 6 | Caption = 'TEmbeddedWB - Print Preview From Template Demo' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | Scaled = False 16 | OnShow = FormShow 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | object EmbeddedWB1: TEmbeddedWB 20 | Left = 0 21 | Top = 41 22 | Width = 760 23 | Height = 483 24 | Align = alClient 25 | TabOrder = 0 26 | Silent = False 27 | DisableCtrlShortcuts = 'N' 28 | UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes] 29 | About = ' EmbeddedWB http://bsalsa.com/' 30 | OnShowDialog = EmbeddedWB1ShowDialog 31 | PrintOptions.Margins.Left = 19.050000000000000000 32 | PrintOptions.Margins.Right = 19.050000000000000000 33 | PrintOptions.Margins.Top = 19.050000000000000000 34 | PrintOptions.Margins.Bottom = 19.050000000000000000 35 | PrintOptions.Header = '&w&bSeite &p von &P' 36 | PrintOptions.HTMLHeader.Strings = ( 37 | '') 38 | PrintOptions.Footer = '&u&b&d' 39 | PrintOptions.Orientation = poPortrait 40 | ControlData = { 41 | 4C0000001B470000DC2900000000000000000000000000000000000000000000 42 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 43 | 2B2E126208000000000000004C0000000114020000000000C000000000000046 44 | 8000000000000000000000000000000000000000000000000000000000000000 45 | 00000000000000000100000000000000000000000000000000000000} 46 | end 47 | object Panel1: TPanel 48 | Left = 0 49 | Top = 0 50 | Width = 760 51 | Height = 41 52 | Align = alTop 53 | TabOrder = 1 54 | DesignSize = ( 55 | 760 56 | 41) 57 | object SpeedButton1: TSpeedButton 58 | Left = 0 59 | Top = 0 60 | Width = 217 61 | Height = 41 62 | Caption = 'Print preview from template!' 63 | OnClick = SpeedButton1Click 64 | end 65 | object SpeedButton2: TSpeedButton 66 | Left = 653 67 | Top = 9 68 | Width = 73 69 | Height = 22 70 | Anchors = [akTop] 71 | Caption = 'GO' 72 | OnClick = SpeedButton2Click 73 | end 74 | object edURL: TIEAddress 75 | Left = 224 76 | Top = 10 77 | Width = 417 78 | Height = 22 79 | About = 'TIEAddress. Help & Support: http://www.bsalsa.com/' 80 | Anchors = [akLeft, akTop, akRight] 81 | IconLeft = 4 82 | IconTop = 3 83 | ItemHeight = 16 84 | ParentBiDiMode = True 85 | ParentShowHint = True 86 | TabOrder = 0 87 | Text = 'http://www.bsalsa.com' 88 | end 89 | end 90 | end 91 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/09 - PrintPreviewFromTemplate_Demo/Unit1.pas: -------------------------------------------------------------------------------- 1 | //This cool demo was build by BitMaker 2 | 3 | unit Unit1; 4 | 5 | interface 6 | 7 | uses 8 | SysUtils, Classes, Forms, Buttons, SHDocVw_EWB, EmbeddedWB, StdCtrls, 9 | Controls, OleCtrls, EwbCore, ExtCtrls, IEAddress; 10 | 11 | type 12 | TForm1 = class(TForm) 13 | EmbeddedWB1: TEmbeddedWB; 14 | Panel1: TPanel; 15 | SpeedButton1: TSpeedButton; 16 | SpeedButton2: TSpeedButton; 17 | edURL: TIEAddress; 18 | procedure FormShow(Sender: TObject); 19 | procedure SpeedButton2Click(Sender: TObject); 20 | procedure SpeedButton1Click(Sender: TObject); 21 | procedure EmbeddedWB1ShowDialog(Sender: TObject; h: Cardinal; 22 | StyleEx: Integer; OldCaption: string; var NewCaption: WideString; 23 | var Cancel: Boolean); 24 | 25 | private 26 | { Private declarations } 27 | public 28 | { Public declarations } 29 | end; 30 | 31 | var 32 | Form1: TForm1; 33 | 34 | implementation 35 | 36 | {$R *.dfm} 37 | 38 | procedure TForm1.SpeedButton2Click(Sender: TObject); 39 | begin 40 | EmbeddedWB1.Navigate(edURL.Text); 41 | end; 42 | 43 | procedure TForm1.FormShow(Sender: TObject); 44 | begin 45 | EmbeddedWB1.GoHome; 46 | end; 47 | 48 | procedure TForm1.SpeedButton1Click(Sender: TObject); 49 | var 50 | sPreviewFromTemplatePath: string; 51 | begin 52 | if EmbeddedWB1.DocumentLoaded then 53 | begin 54 | sPreviewFromTemplatePath := ExtractFilePath(Application.ExeName) + 'template.htm'; 55 | EmbeddedWB1.PrintPreviewFromTemplate(sPreviewFromTemplatePath); 56 | end; 57 | end; 58 | 59 | procedure TForm1.EmbeddedWB1ShowDialog(Sender: TObject; h: Cardinal; 60 | StyleEx: Integer; OldCaption: string; var NewCaption: WideString; 61 | var Cancel: Boolean); 62 | begin 63 | NewCaption := 'Print Preview'; 64 | end; 65 | 66 | end. 67 | 68 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/09 - PrintPreviewFromTemplate_Demo/prjPrintPreviewTemplateDemo.dpr: -------------------------------------------------------------------------------- 1 | program prjPrintPreviewTemplateDemo; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/10 - PrintingOptions_Demo/Main.dfm: -------------------------------------------------------------------------------- 1 | object MainFrm: TMainFrm 2 | Left = 384 3 | Top = 215 4 | Width = 590 5 | Height = 514 6 | Caption = 'Printing Using EmbeddedWB Demo' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu1 14 | OldCreateOrder = False 15 | OnShow = FormShow 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object EmbeddedWB1: TEmbeddedWB 19 | Left = 0 20 | Top = 0 21 | Width = 582 22 | Height = 460 23 | Align = alClient 24 | TabOrder = 0 25 | Silent = False 26 | DisableCtrlShortcuts = 'N' 27 | UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes] 28 | About = ' EmbeddedWB http://bsalsa.com/' 29 | PrintOptions.Margins.Left = 19.050000000000000000 30 | PrintOptions.Margins.Right = 19.050000000000000000 31 | PrintOptions.Margins.Top = 19.050000000000000000 32 | PrintOptions.Margins.Bottom = 19.050000000000000000 33 | PrintOptions.Header = '&w&bSeite &p von &P' 34 | PrintOptions.HTMLHeader.Strings = ( 35 | '') 36 | PrintOptions.Footer = '&u&b&d' 37 | PrintOptions.Orientation = poPortrait 38 | UserAgent = 'EmbeddedWB 14.55 from: http://www.bsalsa.com/' 39 | ControlData = { 40 | 4C000000C8300000242300000000000000000000000000000000000000000000 41 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 42 | 2B2E126208000000000000004C0000000114020000000000C000000000000046 43 | 8000000000000000000000000000000000000000000000000000000000000000 44 | 00000000000000000100000000000000000000000000000000000000} 45 | end 46 | object MainMenu1: TMainMenu 47 | Left = 8 48 | Top = 8 49 | object FileMenu: TMenuItem 50 | Caption = 'File' 51 | object PrintWithDlg: TMenuItem 52 | Caption = 'Print With Dialog' 53 | object Print: TMenuItem 54 | Caption = 'Print' 55 | OnClick = PrintClick 56 | end 57 | object PrintPreview: TMenuItem 58 | Caption = 'Print Preview' 59 | OnClick = PrintPreviewClick 60 | end 61 | object PrintPreviewMaximized: TMenuItem 62 | Caption = 'Print Preview Maximized' 63 | OnClick = PrintPreviewMaximizedClick 64 | end 65 | object PrintSetup: TMenuItem 66 | Caption = 'Print Setup' 67 | OnClick = PrintSetupClick 68 | end 69 | object PrintWithOptions: TMenuItem 70 | Caption = 'Print With Options' 71 | OnClick = PrintWithOptionsClick 72 | end 73 | object N2: TMenuItem 74 | Caption = '-' 75 | end 76 | object LanscapeDlg: TMenuItem 77 | Caption = 'Lanscape' 78 | OnClick = LanscapeDlgClick 79 | end 80 | object PortraitDlg: TMenuItem 81 | Caption = 'Portrait' 82 | OnClick = PortraitDlgClick 83 | end 84 | end 85 | object PrintWithOutDlg: TMenuItem 86 | Caption = 'Print Without Dialog' 87 | object LandscapeNoDlg: TMenuItem 88 | Caption = 'Landscape' 89 | OnClick = LandscapeNoDlgClick 90 | end 91 | object PortraiteNoDlg: TMenuItem 92 | Caption = 'Portraite' 93 | OnClick = PortraiteNoDlgClick 94 | end 95 | end 96 | object N1: TMenuItem 97 | Caption = '-' 98 | end 99 | object Exit: TMenuItem 100 | Caption = 'Exit' 101 | OnClick = ExitClick 102 | end 103 | end 104 | end 105 | end 106 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/10 - PrintingOptions_Demo/prjPrintingOptionsDemo.dpr: -------------------------------------------------------------------------------- 1 | //************************************************************* 2 | // EmbeddedWB - Print Demo * 3 | // * 4 | // by * 5 | // Eran Bodankin (bsalsa) * 6 | // bsalsa@bsalsa.com * 7 | // * 8 | // Documentation and updated versions: * 9 | // http://www.bsalsa.com * 10 | //************************************************************* 11 | {*******************************************************************************} 12 | {LICENSE: 13 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 14 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 15 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 16 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 17 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 18 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 19 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 20 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 21 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 22 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 23 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 24 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 25 | 26 | You may use, change or modify the demo under 4 conditions: 27 | 1. In your website, add a link to "http://www.bsalsa.com" 28 | 2. In your application, add credits to "Embedded Web Browser" 29 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 30 | for the benefit of the other users. 31 | 4. Please, consider donation in our web site! 32 | {*******************************************************************************} 33 | 34 | program prjPrintingOptionsDemo; 35 | 36 | uses 37 | Forms, 38 | Main in 'Main.pas' {MainFrm}; 39 | 40 | {$R *.res} 41 | 42 | begin 43 | Application.Initialize; 44 | Application.CreateForm(TMainFrm, MainFrm); 45 | Application.Run; 46 | end. 47 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/11 - moveto, moveby, resizeto, resizeby_Demo/frmMain.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 388 3 | Top = 235 4 | Width = 574 5 | Height = 524 6 | Caption = 'TEmbeddedWB - 11 - moveto, moveby, resizeto, resizeby Demo' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | Scaled = False 16 | OnCreate = FormCreate 17 | OnShow = FormShow 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object EmbeddedWB1: TEmbeddedWB 21 | Left = 0 22 | Top = 30 23 | Width = 566 24 | Height = 441 25 | Align = alClient 26 | TabOrder = 0 27 | OnNewWindow2 = EmbeddedWB1NewWindow2 28 | OnVisible = EmbeddedWB1Visible 29 | OnAddressBar = EmbeddedWB1AddressBar 30 | OnWindowSetResizable = EmbeddedWB1WindowSetResizable 31 | OnWindowSetLeft = EmbeddedWB1WindowSetLeft 32 | OnWindowSetTop = EmbeddedWB1WindowSetTop 33 | OnWindowSetWidth = EmbeddedWB1WindowSetWidth 34 | OnWindowSetHeight = EmbeddedWB1WindowSetHeight 35 | DisableCtrlShortcuts = 'N' 36 | UserInterfaceOptions = [EnableThemes] 37 | OnMove = EmbeddedWB1Move 38 | OnMoveBy = EmbeddedWB1MoveBy 39 | OnResize = EmbeddedWB1Resize 40 | About = ' EmbeddedWB http://bsalsa.com/' 41 | PrintOptions.Margins.Left = 19.05 42 | PrintOptions.Margins.Right = 19.05 43 | PrintOptions.Margins.Top = 19.05 44 | PrintOptions.Margins.Bottom = 19.05 45 | PrintOptions.Header = '&w&bSeite &p von &P' 46 | PrintOptions.HTMLHeader.Strings = ( 47 | '') 48 | PrintOptions.Footer = '&u&b&d' 49 | PrintOptions.Orientation = poPortrait 50 | VisualEffects.TextSize = 0 51 | UserAgent = 'EmbeddedWB 14,52 from: http://www.bsalsa.com/' 52 | ControlData = { 53 | 4C00000032310000722900000000000000000000000000000000000000000000 54 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 55 | 2B2E126208000000000000004C0000000114020000000000C000000000000046 56 | 8000000000000000000000000000000000000000000000000000000000000000 57 | 00000000000000000100000000000000000000000000000000000000} 58 | end 59 | object pnlAddressBar: TPanel 60 | Left = 0 61 | Top = 0 62 | Width = 566 63 | Height = 30 64 | Align = alTop 65 | TabOrder = 1 66 | DesignSize = ( 67 | 566 68 | 30) 69 | object edUrl: TEdit 70 | Left = 8 71 | Top = 4 72 | Width = 507 73 | Height = 21 74 | Anchors = [akLeft, akTop, akRight] 75 | TabOrder = 0 76 | Text = 'http://devitco.de/coint/navtest' 77 | OnKeyPress = edUrlKeyPress 78 | end 79 | object btnGo: TButton 80 | Left = 522 81 | Top = 4 82 | Width = 33 83 | Height = 21 84 | Anchors = [akTop, akRight] 85 | Caption = 'Go' 86 | TabOrder = 1 87 | OnClick = btnGoClick 88 | end 89 | end 90 | object StatusBar1: TStatusBar 91 | Left = 0 92 | Top = 471 93 | Width = 566 94 | Height = 19 95 | Panels = <> 96 | SimplePanel = False 97 | end 98 | end 99 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/11 - moveto, moveby, resizeto, resizeby_Demo/prjMoveResizeDemo.dpr: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { SDI Embedded Web Browser Demo } 3 | { By: } 4 | { Eran Bodankin (bsalsa) bsalsa@bsalsa.com } 5 | { Enjoy! } 6 | { Documentation and updated versions: } 7 | { http://www.bsalsa.com } 8 | {*******************************************************} 9 | {LICENSE: 10 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 11 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 12 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 13 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 14 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 15 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 16 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 17 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 18 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 19 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 20 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 21 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 22 | 23 | You may use, change or modify the component under 4 conditions: 24 | 1. In your website, add a link to "http://www.bsalsa.com" 25 | 2. In your application, add credits to "Embedded Web Browser" 26 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 27 | for the benefit of the other users. 28 | 4. Please, consider donation in our web site! 29 | {*******************************************************************************} 30 | 31 | 32 | 33 | program prjMoveResizeDemo; 34 | 35 | uses 36 | Forms, 37 | frmMain in 'frmMain.pas' {Form1}; 38 | 39 | {$R *.res} 40 | 41 | begin 42 | Application.Initialize; 43 | Application.CreateForm(TForm1, Form1); 44 | Application.Run; 45 | end. 46 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/12 - MSHTML_Events_Demo/prjMSHTML_EventsDemo.dpr: -------------------------------------------------------------------------------- 1 | program prjMSHTML_EventsDemo; 2 | 3 | uses 4 | Forms, 5 | unit1 in 'unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/12 - MSHTML_Events_Demo/unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 262 3 | Top = 320 4 | Width = 831 5 | Height = 596 6 | Caption = 'TEmbeddedWB & MSHTMLEvents' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | Scaled = False 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object EmbeddedWB1: TEmbeddedWB 19 | Left = 0 20 | Top = 105 21 | Width = 823 22 | Height = 457 23 | Align = alClient 24 | TabOrder = 0 25 | OnDownloadComplete = EmbeddedWB1DownloadComplete 26 | OnBeforeNavigate2 = EmbeddedWB1BeforeNavigate2 27 | DisableCtrlShortcuts = 'N' 28 | UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes] 29 | About = ' EmbeddedWB http://bsalsa.com/' 30 | HTMLCode.Strings = ( 31 | 'http://www.bsalsa.com/support.html') 32 | PrintOptions.Margins.Left = 19.050000000000000000 33 | PrintOptions.Margins.Right = 19.050000000000000000 34 | PrintOptions.Margins.Top = 19.050000000000000000 35 | PrintOptions.Margins.Bottom = 19.050000000000000000 36 | PrintOptions.Header = '&w&bSeite &p von &P' 37 | PrintOptions.HTMLHeader.Strings = ( 38 | '') 39 | PrintOptions.Footer = '&u&b&d' 40 | PrintOptions.Orientation = poPortrait 41 | ControlData = { 42 | 4C00000017590000EA3700000000000000000000000000000000000000000000 43 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 44 | 2B2E126208000000000000004C0000000114020000000000C000000000000046 45 | 8000000000000000000000000000000000000000000000000000000000000000 46 | 00000000000000000100000000000000000000000000000000000000} 47 | end 48 | object Panel1: TPanel 49 | Left = 0 50 | Top = 0 51 | Width = 823 52 | Height = 105 53 | Align = alTop 54 | TabOrder = 1 55 | DesignSize = ( 56 | 823 57 | 105) 58 | object Label1: TLabel 59 | Left = 19 60 | Top = 14 61 | Width = 95 62 | Height = 13 63 | Caption = '> Click on any URL!' 64 | Transparent = True 65 | end 66 | object Memo1: TMemo 67 | Left = 184 68 | Top = 8 69 | Width = 632 70 | Height = 89 71 | Anchors = [akLeft, akTop, akRight] 72 | TabOrder = 0 73 | end 74 | end 75 | end 76 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/ActiveFormImpl1.dfm: -------------------------------------------------------------------------------- 1 | object ActiveFormX: TActiveFormX 2 | Left = 288 3 | Top = 269 4 | Width = 494 5 | Height = 346 6 | Caption = 'ActiveFormX' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Scaled = False 15 | OnCreate = ActiveFormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object EmbeddedWB1: TEmbeddedWB 19 | Left = 0 20 | Top = 41 21 | Width = 486 22 | Height = 271 23 | Align = alClient 24 | TabOrder = 0 25 | Silent = False 26 | DisableCtrlShortcuts = 'N' 27 | UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes] 28 | About = ' EmbeddedWB http://bsalsa.com/' 29 | PrintOptions.Margins.Left = 19.05 30 | PrintOptions.Margins.Right = 19.05 31 | PrintOptions.Margins.Top = 19.05 32 | PrintOptions.Margins.Bottom = 19.05 33 | PrintOptions.Header = '&w&bSeite &p von &P' 34 | PrintOptions.HTMLHeader.Strings = ( 35 | '') 36 | PrintOptions.Footer = '&u&b&d' 37 | PrintOptions.Orientation = poPortrait 38 | ControlData = { 39 | 4C0000003B320000021C00000000000000000000000000000000000000000000 40 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 41 | 2B2E126208000000000000004C0000000114020000000000C000000000000046 42 | 8000000000000000000000000000000000000000000000000000000000000000 43 | 00000000000000000100000000000000000000000000000000000000} 44 | end 45 | object Panel1: TPanel 46 | Left = 0 47 | Top = 0 48 | Width = 486 49 | Height = 41 50 | Align = alTop 51 | TabOrder = 1 52 | object Button1: TButton 53 | Left = 392 54 | Top = 8 55 | Width = 75 56 | Height = 25 57 | Caption = 'Go' 58 | TabOrder = 0 59 | OnClick = Button1Click 60 | end 61 | object IEAddress1: TIEAddress 62 | Left = 8 63 | Top = 8 64 | Width = 377 65 | Height = 22 66 | About = 'TIEAddress. Help & Support: http://www.bsalsa.com/' 67 | IconLeft = 4 68 | IconTop = 3 69 | ItemHeight = 16 70 | ParentBiDiMode = True 71 | TabOrder = 1 72 | end 73 | end 74 | end 75 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/ActiveFormProj1.tlb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/ActiveFormProj1.tlb -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/Target/ActiveFormProj1.htm: -------------------------------------------------------------------------------- 1 | 2 |

Delphi 7 ActiveX Test Page

3 | You should see your Delphi 7 forms or controls embedded in the form below. 4 |

5 | 14 | 15 | 16 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveForm.tlb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveForm.tlb -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo.dpr: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { Active Form Demo } 3 | { By: } 4 | { Eran Bodankin (bsalsa) bsalsa@bsalsa.com } 5 | { Enjoy! } 6 | { Documentation and updated versions: } 7 | { http://www.bsalsa.com } 8 | {*******************************************************} 9 | {LICENSE: 10 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 11 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 12 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 13 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 14 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 15 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 16 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 17 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 18 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 19 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 20 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 21 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 22 | 23 | You may use, change or modify the component under 4 conditions: 24 | 1. In your website, add a link to "http://www.bsalsa.com" 25 | 2. In your application, add credits to "Embedded Web Browser" 26 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 27 | for the benefit of the other users. 28 | 4. Please, consider donation in our web site! 29 | {*******************************************************************************} 30 | 31 | 32 | library prjActiveForm; 33 | 34 | uses 35 | ComServ, 36 | ActiveFormProj1_TLB in 'ActiveFormProj1_TLB.pas', 37 | ActiveFormImpl1 in 'ActiveFormImpl1.pas' {ActiveFormX: TActiveForm} {ActiveFormX: CoClass}, 38 | prjActiveFormDemo_TLB in 'prjActiveFormDemo_TLB.pas'; 39 | 40 | {$E ocx} 41 | 42 | exports 43 | DllGetClassObject, 44 | DllCanUnloadNow, 45 | DllRegisterServer, 46 | DllUnregisterServer; 47 | 48 | {$R *.TLB} 49 | 50 | //{$R *.RES} 51 | 52 | begin 53 | end. 54 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo.ridl: -------------------------------------------------------------------------------- 1 | // ************************************************************************ // 2 | // WARNING 3 | // ------- 4 | // This file is generated by the Type Library importer or Type Libary Editor. 5 | // Barring syntax errors, the Editor will parse modifications made to the file. 6 | // However, when applying changes via the Editor this file will be regenerated 7 | // and comments or formatting changes will be lost. 8 | // ************************************************************************ // 9 | // File generated on 19.05.2009 06:35:57 (- $Rev: 12980 $, 601660584). 10 | 11 | [ 12 | uuid(FE4BADD5-F458-4A6F-9C99-3B74ECBA3967), 13 | version(1.0), 14 | helpstring("prjActiveFormDemo Library") 15 | 16 | ] 17 | library prjActiveFormDemo 18 | { 19 | 20 | importlib("stdole2.tlb"); 21 | 22 | 23 | 24 | }; -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo.tlb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo.tlb -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo_TLB.pas: -------------------------------------------------------------------------------- 1 | unit prjActiveFormDemo_TLB; 2 | 3 | // ************************************************************************ // 4 | // WARNING 5 | // ------- 6 | // The types declared in this file were generated from data read from a 7 | // Type Library. If this type library is explicitly or indirectly (via 8 | // another type library referring to this type library) re-imported, or the 9 | // 'Refresh' command of the Type Library Editor activated while editing the 10 | // Type Library, the contents of this file will be regenerated and all 11 | // manual modifications will be lost. 12 | // ************************************************************************ // 13 | 14 | // PASTLWTR : $Revision: 1.88.1.0.1.0 $ 15 | // File generated on 19.05.2009 06:22:38 from Type Library described below. 16 | 17 | // ************************************************************************ // 18 | // Type Lib: C:\Users\smot\Documents\Delphi\Components\EmbeddedWB\Demos\EmbeddedWB Demos\13 - ActiveX_Form_Demo\prjActiveFormDemo.tlb (1) 19 | // IID\LCID: {FE4BADD5-F458-4A6F-9C99-3B74ECBA3967}\0 20 | // Helpfile: 21 | // DepndLst: 22 | // (1) v2.0 stdole, (C:\Windows\system32\stdole2.tlb) 23 | // (2) v4.0 StdVCL, (C:\Windows\system32\stdvcl40.dll) 24 | // ************************************************************************ // 25 | {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 26 | interface 27 | 28 | uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL; 29 | 30 | // *********************************************************************// 31 | // GUIDS declared in the TypeLibrary. Following prefixes are used: 32 | // Type Libraries : LIBID_xxxx 33 | // CoClasses : CLASS_xxxx 34 | // DISPInterfaces : DIID_xxxx 35 | // Non-DISP interfaces: IID_xxxx 36 | // *********************************************************************// 37 | const 38 | // TypeLibrary Major and minor versions 39 | prjActiveFormDemoMajorVersion = 1; 40 | prjActiveFormDemoMinorVersion = 0; 41 | 42 | LIBID_prjActiveFormDemo: TGUID = '{FE4BADD5-F458-4A6F-9C99-3B74ECBA3967}'; 43 | 44 | 45 | implementation 46 | 47 | uses ComObj; 48 | 49 | end. 50 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/14 - ExecScriptEx_Demo/prjExecScriptExDemo.dpr: -------------------------------------------------------------------------------- 1 | //************************************************************* 2 | // EmbeddedWB - Tabs Demo * 3 | // * 4 | // by * 5 | // Eran Bodankin (bsalsa) * 6 | // bsalsa@bsalsa.com * 7 | // * 8 | // Documentation and updated versions: * 9 | // http://www.bsalsa.com * 10 | //************************************************************* 11 | {*******************************************************************************} 12 | {LICENSE: 13 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 14 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 15 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 16 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 17 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 18 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 19 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 20 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 21 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 22 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 23 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 24 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 25 | 26 | You may use, change or modify the demo under 4 conditions: 27 | 1. In your website, add a link to "http://www.bsalsa.com" 28 | 2. In your application, add credits to "Embedded Web Browser" 29 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 30 | for the benefit of the other users. 31 | 4. Please, consider donation in our web site! 32 | {*******************************************************************************} 33 | 34 | program prjExecScriptExDemo; 35 | 36 | uses 37 | Forms, 38 | uMain in 'uMain.pas' {Form1}; 39 | 40 | {$R *.res} 41 | 42 | begin 43 | Application.Initialize; 44 | Application.CreateForm(TForm1, Form1); 45 | Application.Run; 46 | end. 47 | 48 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/14 - ExecScriptEx_Demo/uMain.pas: -------------------------------------------------------------------------------- 1 | //*************************************************************** 2 | // EmbeddedWB ExecScriptEx Demo * 3 | // * 4 | // Freeware Demo * 5 | // by * 6 | // Thomas Stutz (smot) -(smot777@yahoo.com) * 7 | // * 8 | // * 9 | //*************************************************************** 10 | {LICENSE: 11 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 12 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 13 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 14 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 15 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 16 | AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 17 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 18 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 19 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 20 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 21 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY 22 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 23 | 24 | You may use/ change/ modify the component under 4 conditions: 25 | 1. In your website, add a link to "http://www.bsalsa.com" 26 | 2. In your application, add credits to "Embedded Web Browser" 27 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit for the benefit 28 | of the other users. 29 | 4. Please, consider donation in our web site! 30 | {*******************************************************************************} 31 | 32 | unit uMain; 33 | 34 | {$I EWB_jedi.inc} 35 | 36 | interface 37 | 38 | uses 39 | Windows, StdCtrls, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, Dialogs, Forms, SysUtils, 40 | Classes, ExtCtrls, Controls; 41 | 42 | type 43 | TForm1 = class(TForm) 44 | Panel1: TPanel; 45 | Button1: TButton; 46 | edPara: TEdit; 47 | Label1: TLabel; 48 | Panel2: TPanel; 49 | Memo1: TMemo; 50 | Panel3: TPanel; 51 | EmbeddedWB1: TEmbeddedWB; 52 | Panel4: TPanel; 53 | Panel5: TPanel; 54 | procedure Button1Click(Sender: TObject); 55 | procedure FormCreate(Sender: TObject); 56 | private 57 | { Private declarations } 58 | public 59 | { Public declarations } 60 | end; 61 | 62 | var 63 | Form1: TForm1; 64 | 65 | implementation 66 | 67 | {$R *.dfm} 68 | 69 | procedure TForm1.Button1Click(Sender: TObject); 70 | var 71 | vResult: OleVariant; 72 | Para1: string; 73 | begin 74 | Para1 := edPara.Text; 75 | vResult := EmbeddedWB1.ExecScriptEx('evaluate', [Para1]); 76 | ShowMessage('Result from the Script: ' + IntToStr(vResult)); 77 | end; 78 | 79 | procedure TForm1.FormCreate(Sender: TObject); 80 | begin 81 | EmbeddedWB1.HTMLCode.Assign(Memo1.Lines); 82 | end; 83 | 84 | end. 85 | 86 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/15 - THTMLListener_Demo/prjHTMLListenerDemo.dpr: -------------------------------------------------------------------------------- 1 | program prjHTMLListenerDemo; 2 | 3 | uses 4 | Forms, 5 | uMain in 'uMain.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/15 - THTMLListener_Demo/uMain.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 245 3 | Top = 214 4 | Width = 747 5 | Height = 584 6 | Caption = 'TEmbeddedWB - HTMLListener Demo' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | Scaled = False 16 | OnCreate = FormCreate 17 | OnDestroy = FormDestroy 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object EmbeddedWB1: TEmbeddedWB 21 | Left = 0 22 | Top = 65 23 | Width = 739 24 | Height = 485 25 | Align = alClient 26 | TabOrder = 0 27 | OnBeforeNavigate2 = EmbeddedWB1BeforeNavigate2 28 | OnDocumentComplete = EmbeddedWB1DocumentComplete 29 | DisableCtrlShortcuts = 'N' 30 | UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes] 31 | About = ' EmbeddedWB http://bsalsa.com/' 32 | PrintOptions.Margins.Left = 19.050000000000000000 33 | PrintOptions.Margins.Right = 19.050000000000000000 34 | PrintOptions.Margins.Top = 19.050000000000000000 35 | PrintOptions.Margins.Bottom = 19.050000000000000000 36 | PrintOptions.Header = '&w&bSeite &p von &P' 37 | PrintOptions.HTMLHeader.Strings = ( 38 | '') 39 | PrintOptions.Footer = '&u&b&d' 40 | PrintOptions.Orientation = poPortrait 41 | ControlData = { 42 | 4C0000003E4B00009B3400000000000000000000000000000000000000000000 43 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 44 | 2B2E126208000000000000004C0000000114020000000000C000000000000046 45 | 8000000000000000000000000000000000000000000000000000000000000000 46 | 00000000000000000100000000000000000000000000000000000000} 47 | end 48 | object Panel1: TPanel 49 | Left = 0 50 | Top = 0 51 | Width = 739 52 | Height = 65 53 | Align = alTop 54 | TabOrder = 1 55 | DesignSize = ( 56 | 739 57 | 65) 58 | object lblClickedOnElement: TLabel 59 | Left = 14 60 | Top = 8 61 | Width = 97 62 | Height = 13 63 | Caption = '[Clicked on Element]' 64 | end 65 | object lblElementUndertheMouse: TLabel 66 | Left = 14 67 | Top = 32 68 | Width = 127 69 | Height = 13 70 | Caption = '[Element under the Mouse]' 71 | end 72 | object btnEnableDisable: TButton 73 | Left = 603 74 | Top = 16 75 | Width = 115 76 | Height = 25 77 | Anchors = [akTop, akRight] 78 | Caption = 'Disable Events' 79 | TabOrder = 0 80 | OnClick = btnEnableDisableClick 81 | end 82 | end 83 | object HtmlListener1: THtmlListener 84 | Handlers = < 85 | item 86 | EventID = eiOnClick 87 | OnHandle = HtmlListener1HandlersOnClickHandle 88 | end 89 | item 90 | EventID = eiOnSelect 91 | end 92 | item 93 | EventID = eiOnMouseMove 94 | OnHandle = HtmlListener1HandlersOnMouseMoveHandle 95 | end 96 | item 97 | EventID = eiUnknown 98 | end> 99 | SinkKind = skDocument 100 | Left = 528 101 | Top = 12 102 | end 103 | end 104 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Classes, Controls, Forms, 7 | Dialogs, StdCtrls, EwbControlComponent, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, 8 | ExtCtrls, Graphics; 9 | 10 | type 11 | TForm1 = class(TForm) 12 | EmbeddedWB1: TEmbeddedWB; 13 | EmbeddedWB2: TEmbeddedWB; 14 | EwbControl1: TEwbControl; 15 | ListBox1: TListBox; 16 | Timer1: TTimer; 17 | Button2: TButton; 18 | Panel1: TPanel; 19 | chkFocusControl: TCheckBox; 20 | ChkMouseWheelFix: TCheckBox; 21 | chkActiveFormOnly: TCheckBox; 22 | Image1: TImage; 23 | Label1: TLabel; 24 | Label2: TLabel; 25 | Label3: TLabel; 26 | procedure ChkMouseWheelFixClick(Sender: TObject); 27 | procedure chkFocusControlClick(Sender: TObject); 28 | procedure FormCreate(Sender: TObject); 29 | procedure EwbControl1MouseWheel(p: TPoint; hwndFromPoint: HWND; 30 | lp: Integer; var Handled: Boolean); 31 | procedure Button2Click(Sender: TObject); 32 | procedure chkActiveFormOnlyClick(Sender: TObject); 33 | procedure Timer1Timer(Sender: TObject); 34 | private 35 | { Private declarations } 36 | 37 | public 38 | { Public declarations } 39 | end; 40 | 41 | var 42 | Form1: TForm1; 43 | 44 | implementation 45 | 46 | {$R *.dfm} 47 | 48 | uses 49 | EwbCoreTools, Unit2; 50 | 51 | procedure TForm1.ChkMouseWheelFixClick(Sender: TObject); 52 | begin 53 | EwbControl1.MouseWheelFix.Active := ChkMouseWheelFix.Checked; 54 | end; 55 | 56 | procedure TForm1.chkFocusControlClick(Sender: TObject); 57 | begin 58 | EwbControl1.FocusControl.Active := ChkFocusControl.Checked; 59 | end; 60 | 61 | procedure TForm1.chkActiveFormOnlyClick(Sender: TObject); 62 | begin 63 | EwbControl1.MouseWheelFix.ActiveFormOnly := chkActiveFormOnly.Checked; 64 | end; 65 | 66 | procedure TForm1.FormCreate(Sender: TObject); 67 | var 68 | i: ShortInt; 69 | begin 70 | for i := 0 to 50 do Listbox1.Items.Add(Inttostr(i)); 71 | ChkMouseWheelFix.Checked := EwbControl1.MouseWheelFix.Active; 72 | ChkFocusControl.Checked := EwbControl1.FocusControl.Active; 73 | end; 74 | 75 | procedure TForm1.EwbControl1MouseWheel(p: TPoint; hwndFromPoint: HWND; 76 | lp: Integer; var Handled: Boolean); 77 | begin 78 | if GetWinClass(hwndFromPoint) = 'TListBox' then 79 | begin 80 | Windows.SetFocus(hwndFromPoint); 81 | Handled := True; 82 | end; 83 | end; 84 | 85 | procedure TForm1.Timer1Timer(Sender: TObject); 86 | begin 87 | try 88 | Label3.caption := Screen.ActiveControl.Name; 89 | except 90 | end; 91 | end; 92 | 93 | procedure TForm1.Button2Click(Sender: TObject); 94 | begin 95 | Form2.Show; 96 | end; 97 | 98 | 99 | end. 100 | 101 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit2.dfm: -------------------------------------------------------------------------------- 1 | object Form2: TForm2 2 | Left = 304 3 | Top = 235 4 | Width = 435 5 | Height = 363 6 | Caption = 'Form2' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | Scaled = False 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object EmbeddedWB1: TEmbeddedWB 19 | Left = 16 20 | Top = 24 21 | Width = 281 22 | Height = 233 23 | TabOrder = 0 24 | DisableCtrlShortcuts = 'N' 25 | UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes] 26 | About = ' EmbeddedWB http://bsalsa.com/' 27 | HTMLCode.Strings = ( 28 | 'http://bsalsa.com/test/FlashTest.htm') 29 | PrintOptions.Margins.Left = 19.05 30 | PrintOptions.Margins.Right = 19.05 31 | PrintOptions.Margins.Top = 19.05 32 | PrintOptions.Margins.Bottom = 19.05 33 | PrintOptions.Header = '&w&bSeite &p von &P' 34 | PrintOptions.HTMLHeader.Strings = ( 35 | '') 36 | PrintOptions.Footer = '&u&b&d' 37 | PrintOptions.Orientation = poPortrait 38 | ControlData = { 39 | 4C000000F7260000B21E00000000000000000000000000000000000000000000 40 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 41 | 2B2E126208000000000000004C0000000114020000000000C000000000000046 42 | 8000000000000000000000000000000000000000000000000000000000000000 43 | 00000000000000000100000000000000000000000000000000000000} 44 | end 45 | object Memo1: TMemo 46 | Left = 312 47 | Top = 24 48 | Width = 97 49 | Height = 233 50 | Lines.Strings = ( 51 | 'Memo1') 52 | TabOrder = 1 53 | end 54 | object Button1: TButton 55 | Left = 176 56 | Top = 288 57 | Width = 75 58 | Height = 25 59 | Caption = 'close' 60 | TabOrder = 2 61 | OnClick = Button1Click 62 | end 63 | end 64 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit2.pas: -------------------------------------------------------------------------------- 1 | unit Unit2; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Classes, Controls, Forms, 7 | Dialogs, StdCtrls, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB; 8 | 9 | type 10 | TForm2 = class(TForm) 11 | EmbeddedWB1: TEmbeddedWB; 12 | Memo1: TMemo; 13 | Button1: TButton; 14 | procedure Button1Click(Sender: TObject); 15 | private 16 | { Private declarations } 17 | public 18 | { Public declarations } 19 | end; 20 | 21 | var 22 | Form2: TForm2; 23 | 24 | implementation 25 | 26 | {$R *.dfm} 27 | 28 | procedure TForm2.Button1Click(Sender: TObject); 29 | begin 30 | Close; 31 | end; 32 | 33 | end. 34 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/prjEWBControlDemo.dpr: -------------------------------------------------------------------------------- 1 | program prjEWBControlDemo; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}, 6 | Unit2 in 'Unit2.pas' {Form2}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.CreateForm(TForm2, Form2); 14 | Application.Run; 15 | end. 16 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/Filters.ini: -------------------------------------------------------------------------------- 1 | [items] 2 | OnAllowFocusChange=0 3 | OnAuthenticate=0 4 | OnBeforeNavigate2=0 5 | OnBusyWait=0 6 | OnClientToHostWindow=0 7 | OnCloseQuery=0 8 | OnCommandExec=0 9 | OnCommandStateChange=0 10 | OnDocumentComplete=0 11 | OnDocWindowActivate=0 12 | OnDownloadBegin=0 13 | OnDownloadComplete=0 14 | OnDragDrop=0 15 | OnDragEnter=0 16 | OnDragLeave=0 17 | OnDragOver=0 18 | OnDragOver2=0 19 | OnDropEvent=0 20 | OnEnableModeless=0 21 | OnEndDrag=0 22 | OnEnter=0 23 | OnEvaluateNewWindow=0 24 | OnExit=0 25 | OnFileDownload=0 26 | OnFilterDataObject=0 27 | OnFilterPopupMenu=0 28 | OnFrameWindowActivate=0 29 | OnGetDropTarget=0 30 | OnGetExternal=0 31 | OnGetHostInfo=0 32 | OnGetIDsOfNames=0 33 | OnGetTypeInfo=0 34 | OnGetTypeInfoCount=0 35 | OnHideUI=0 36 | OnInvoke=0 37 | OnKeyDown=0 38 | OnKeyUp=0 39 | OnMaskedCtrlChar=0 40 | OnMessage=0 41 | OnMouseDown=0 42 | OnMouseUp=0 43 | OnMove=0 44 | OnMoveBy=0 45 | OnNavigateComplete2=0 46 | OnNavigateError=0 47 | OnNewWindow2=0 48 | OnNewWindow3=0 49 | OnPopulateNSTable=0 50 | OnPrintTemplateInstantiation=0 51 | OnPrintTemplateTeardown=0 52 | OnPrivacyImpactedStateChange=0 53 | OnProgressChange=0 54 | OnQueryService=0 55 | OnQuit=0 56 | OnRefresh=0 57 | OnResize=0 58 | OnResizeBorder=0 59 | OnResizeBy=0 60 | OnScriptError=0 61 | OnSetPhishingFilterStatus=0 62 | OnSetSecureLockIcon=0 63 | OnShowContextMenu=0 64 | OnShowDialog=0 65 | OnShowHelpRequest=0 66 | OnShowMessage=0 67 | OnShowUI=0 68 | OnStartDrag=0 69 | OnStatusTextChange=0 70 | OnTitleChange=0 71 | OnTranslateAccelerator=0 72 | OnTranslateUrl=0 73 | OnUnload=0 74 | OnUpdatePageStatus=0 75 | OnUpdateUI=0 76 | OnVisible=0 77 | OnWindowClosing=0 78 | OnWindowSetHeight=0 79 | OnWindowSetLeft=0 80 | OnWindowSetResizable=0 81 | OnWindowSetTop=0 82 | OnWindowSetWidth=0 83 | OnWindowStateChanged=0 84 | OnZoomPercentChange=0 85 | OnClick=1 86 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/prjEventsTestDemo.dpr: -------------------------------------------------------------------------------- 1 | program prjEventsTestDemo; 2 | 3 | uses 4 | Forms, 5 | umain in 'umain.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/18 - SysListView32 Replacement_Demo/prjSysLV32RepDemo.dpr: -------------------------------------------------------------------------------- 1 | program prjSysLV32RepDemo; 2 | 3 | uses 4 | Forms, 5 | uMain in 'uMain.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/18 - SysListView32 Replacement_Demo/uMain.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 305 3 | Top = 362 4 | Width = 696 5 | Height = 480 6 | Caption = 'EmbeddedWB SysListView Replacement Demo' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object Panel1: TPanel 18 | Left = 0 19 | Top = 0 20 | Width = 688 21 | Height = 41 22 | Align = alTop 23 | TabOrder = 0 24 | object BitBtn1: TBitBtn 25 | Left = 8 26 | Top = 8 27 | Width = 75 28 | Height = 25 29 | Caption = 'Go "c:\"' 30 | TabOrder = 0 31 | OnClick = BitBtn1Click 32 | end 33 | object BitBtn2: TBitBtn 34 | Left = 96 35 | Top = 8 36 | Width = 75 37 | Height = 25 38 | Caption = 'Go Google' 39 | TabOrder = 1 40 | OnClick = BitBtn2Click 41 | end 42 | end 43 | object EmbeddedWB1: TEmbeddedWB 44 | Left = 0 45 | Top = 41 46 | Width = 688 47 | Height = 405 48 | Align = alClient 49 | TabOrder = 1 50 | Silent = False 51 | DisableCtrlShortcuts = 'N' 52 | UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes] 53 | OnPreRefresh = EmbeddedWB1PreRefresh 54 | About = ' EmbeddedWB http://bsalsa.com/' 55 | HTMLCode.Strings = ( 56 | 'www.google.com') 57 | PrintOptions.Margins.Left = 19.050000000000000000 58 | PrintOptions.Margins.Right = 19.050000000000000000 59 | PrintOptions.Margins.Top = 19.050000000000000000 60 | PrintOptions.Margins.Bottom = 19.050000000000000000 61 | PrintOptions.Header = '&w&bSeite &p von &P' 62 | PrintOptions.HTMLHeader.Strings = ( 63 | '') 64 | PrintOptions.Footer = '&u&b&d' 65 | PrintOptions.Orientation = poPortrait 66 | ControlData = { 67 | 4C0000001B470000DC2900000000000000000000000000000000000000000000 68 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 69 | 2B2E126208000000000000004C0000000114020000000000C000000000000046 70 | 8000000000000000000000000000000000000000000000000000000000000000 71 | 00000000000000000100000000000000000000000000000000000000} 72 | end 73 | object ListView1: TListView 74 | Left = 14 75 | Top = 272 76 | Width = 163 77 | Height = 153 78 | Columns = < 79 | item 80 | Width = 300 81 | end 82 | item 83 | Width = 150 84 | end> 85 | SmallImages = ImageList1 86 | TabOrder = 2 87 | ViewStyle = vsReport 88 | Visible = False 89 | end 90 | object ImageList1: TImageList 91 | Left = 24 92 | Top = 216 93 | end 94 | end 95 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/18 - SysListView32 Replacement_Demo/uMain.pas: -------------------------------------------------------------------------------- 1 | unit uMain; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Forms, Messages, StdCtrls, Buttons, 7 | ExtCtrls, Classes, SysUtils, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, Controls, 8 | ComCtrls, ImgList, Graphics; 9 | 10 | type 11 | TForm1 = class(TForm) 12 | Panel1: TPanel; 13 | BitBtn1: TBitBtn; 14 | BitBtn2: TBitBtn; 15 | ImageList1: TImageList; 16 | EmbeddedWB1: TEmbeddedWB; 17 | ListView1: TListView; 18 | procedure BitBtn1Click(Sender: TObject); 19 | procedure BitBtn2Click(Sender: TObject); 20 | procedure FormCreate(Sender: TObject); 21 | procedure EmbeddedWB1PreRefresh(Sender: TObject); 22 | private 23 | { Private declarations } 24 | public 25 | { Public declarations } 26 | end; 27 | 28 | var 29 | Form1: TForm1; 30 | 31 | implementation 32 | 33 | {$R *.dfm} 34 | 35 | uses 36 | ShellApi; 37 | 38 | procedure LV_InsertFiles(strPath: string; ListView: TListView; ImageList: TImageList); 39 | var 40 | i: Integer; 41 | Icon: TIcon; 42 | SearchRec: TSearchRec; 43 | ListItem: TListItem; 44 | FileInfo: SHFILEINFO; 45 | begin 46 | // Create a temporary TIcon 47 | Icon := TIcon.Create; 48 | ListView.Items.BeginUpdate; 49 | try 50 | // search for the first file 51 | i := FindFirst(strPath + '*.*', faAnyFile, SearchRec); 52 | while i = 0 do 53 | begin 54 | with ListView do 55 | begin 56 | // On directories and volumes 57 | if ((SearchRec.Attr and FaDirectory <> FaDirectory) and 58 | (SearchRec.Attr and FaVolumeId <> FaVolumeID)) then 59 | begin 60 | ListItem := ListView.Items.Add; 61 | //Get The DisplayName 62 | SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo, 63 | SizeOf(FileInfo), SHGFI_DISPLAYNAME); 64 | Listitem.Caption := FileInfo.szDisplayName; 65 | // Get The TypeName 66 | SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo, 67 | SizeOf(FileInfo), SHGFI_TYPENAME); 68 | ListItem.SubItems.Add(FileInfo.szTypeName); 69 | //Get The Icon That Represents The File 70 | SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo, 71 | SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON); 72 | icon.Handle := FileInfo.hIcon; 73 | ListItem.ImageIndex := ImageList.AddIcon(Icon); 74 | // Destroy the Icon 75 | DestroyIcon(FileInfo.hIcon); 76 | end; 77 | end; 78 | i := FindNext(SearchRec); 79 | end; 80 | finally 81 | Icon.Free; 82 | ListView.Items.EndUpdate; 83 | end; 84 | end; 85 | 86 | procedure TForm1.EmbeddedWB1PreRefresh(Sender: TObject); 87 | var 88 | Path: string; 89 | begin 90 | ListView1.Visible := EmbeddedWB1.GetIEWin('SysListView32') <> 0; 91 | if ListView1.Visible then 92 | begin 93 | Path := StringReplace(EmbeddedWB1.LocationURL,'file:///','',[rfIgnoreCase]); 94 | Path := StringReplace(Path,'/','\',[rfIgnoreCase]); 95 | ImageList1.Clear; 96 | LV_InsertFiles(Path, ListView1, ImageList1); 97 | end; 98 | EmbeddedWB1.Enabled := not ListView1.Visible; 99 | end; 100 | 101 | procedure TForm1.BitBtn1Click(Sender: TObject); 102 | begin 103 | EmbeddedWB1.Go('c:\'); 104 | end; 105 | 106 | procedure TForm1.BitBtn2Click(Sender: TObject); 107 | begin 108 | EmbeddedWB1.Go('www.google.com'); 109 | end; 110 | 111 | procedure TForm1.FormCreate(Sender: TObject); 112 | begin 113 | ListView1.Align := alClient; 114 | end; 115 | 116 | end. 117 | 118 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/19 - DragLink To PageControl_Demo/frmMain.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 292 3 | Top = 122 4 | Width = 473 5 | Height = 434 6 | Caption = 'Drag a Link to a PageControl TabSheet' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | OnDestroy = FormDestroy 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object PageControl1: TPageControl 19 | Left = 0 20 | Top = 0 21 | Width = 457 22 | Height = 398 23 | ActivePage = TabSheet1 24 | Align = alClient 25 | TabOrder = 0 26 | object TabSheet1: TTabSheet 27 | Caption = 'TabSheet1' 28 | object EmbeddedWB1: TEmbeddedWB 29 | Left = 0 30 | Top = 0 31 | Width = 449 32 | Height = 370 33 | Align = alClient 34 | TabOrder = 0 35 | OnDownloadComplete = EmbeddedWB1DownloadComplete 36 | DisableCtrlShortcuts = 'N' 37 | UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes] 38 | About = ' EmbeddedWB http://bsalsa.com/' 39 | HTMLCode.Strings = ( 40 | 'http://www.google.com/') 41 | PrintOptions.Margins.Left = 19.05 42 | PrintOptions.Margins.Right = 19.05 43 | PrintOptions.Margins.Top = 19.05 44 | PrintOptions.Margins.Bottom = 19.05 45 | PrintOptions.HTMLHeader.Strings = ( 46 | '') 47 | PrintOptions.Orientation = poPortrait 48 | ControlData = { 49 | 4C00000027390000CA2700000000000000000000000000000000000000000000 50 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 51 | 2B2E126208000000000000004C0000000114020000000000C000000000000046 52 | 8000000000000000000000000000000000000000000000000000000000000000 53 | 00000000000000000100000000000000000000000000000000000000} 54 | end 55 | end 56 | end 57 | end 58 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/19 - DragLink To PageControl_Demo/prjDragLinkToPageControl.dpr: -------------------------------------------------------------------------------- 1 | program prjDragLinkToPageControl; 2 | 3 | uses 4 | Forms, 5 | frmMain in 'frmMain.pas' {Form1}; 6 | 7 | {$R *.RES} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/EmbeddedWB Demos/EmbeddedWBDemos.bpg: -------------------------------------------------------------------------------- 1 | #------------------------------------------------------------------------------ 2 | VERSION = BWS.01 3 | #------------------------------------------------------------------------------ 4 | !ifndef ROOT 5 | ROOT = $(MAKEDIR)\.. 6 | !endif 7 | #------------------------------------------------------------------------------ 8 | MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** 9 | DCC = $(ROOT)\bin\dcc32.exe $** 10 | BRCC = $(ROOT)\bin\brcc32.exe $** 11 | #------------------------------------------------------------------------------ 12 | PROJECTS = prjSDIDemo.exe prjMDIDemo.exe prjNewWinTabs1Demo.exe \ 13 | prjNewWinTabs2Demo.exe prjEvalNewWindowDemo.exe PrjRightClick_Demo.exe \ 14 | prjDragDropDemo.exe prjElementsUnderMouseDemo.exe prjPrintPreviewTemplateDemo.exe \ 15 | prjPrintingOptionsDemo.exe prjMoveResizeDemo.exe prjMSHTML_EventsDemo.exe \ 16 | prjActiveFormDemo.exe prjExecScriptExDemo.exe prjHTMLListenerDemo.exe \ 17 | prjEWBControlDemo.exe prjEventsTestDemo.exe prjSysLV32RepDemo.exe 18 | 19 | #------------------------------------------------------------------------------ 20 | default: $(PROJECTS) 21 | #------------------------------------------------------------------------------ 22 | 23 | prjSDIDemo.exe: 01 - New_Window_SDI_Demo\prjSDIDemo.dpr 24 | $(DCC) 25 | 26 | prjMDIDemo.exe: 02 - New_Window_MDI_Demo\prjMDIDemo.dpr 27 | $(DCC) 28 | 29 | prjNewWinTabs1Demo.exe: 03 - New_Window_Tabs_Demo_1\prjNewWinTabs1Demo.dpr 30 | $(DCC) 31 | 32 | prjNewWinTabs2Demo.exe: 04 - New_Window_Tabs_Demo_2\prjNewWinTabs2Demo.dpr 33 | $(DCC) 34 | 35 | prjEvalNewWindowDemo.exe: 05 - OnEvaluateNewWindow_Demo\prjEvalNewWindowDemo.dpr 36 | $(DCC) 37 | 38 | PrjRightClick_Demo.exe: 06 - RightClick_Shortcuts_Demo\PrjRightClick_Demo.dpr 39 | $(DCC) 40 | 41 | prjDragDropDemo.exe: 07 - DragNDrop_Demo\prjDragDropDemo.dpr 42 | $(DCC) 43 | 44 | prjElementsUnderMouseDemo.exe: 08 - Elements_Under_Mouse_Demo\prjElementsUnderMouseDemo.dpr 45 | $(DCC) 46 | 47 | prjPrintPreviewTemplateDemo.exe: 09 - PrintPreviewFromTemplate_Demo\prjPrintPreviewTemplateDemo.dpr 48 | $(DCC) 49 | 50 | prjPrintingOptionsDemo.exe: 10 - PrintingOptions_Demo\prjPrintingOptionsDemo.dpr 51 | $(DCC) 52 | 53 | prjMoveResizeDemo.exe: 11 - moveto, moveby, resizeto, resizeby_Demo\prjMoveResizeDemo.dpr 54 | $(DCC) 55 | 56 | prjMSHTML_EventsDemo.exe: 12 - MSHTML_Events_Demo\prjMSHTML_EventsDemo.dpr 57 | $(DCC) 58 | 59 | prjActiveFormDemo.exe: 13 - ActiveX_Form_Demo\prjActiveFormDemo.dpr 60 | $(DCC) 61 | 62 | prjExecScriptExDemo.exe: 14 - ExecScriptEx_Demo\prjExecScriptExDemo.dpr 63 | $(DCC) 64 | 65 | prjHTMLListenerDemo.exe: 15 - THtmlListener_Demo\prjHTMLListenerDemo.dpr 66 | $(DCC) 67 | 68 | prjEWBControlDemo.exe: 16 - TEWBControl_Demo\prjEWBControlDemo.dpr 69 | $(DCC) 70 | 71 | prjEventsTestDemo.exe: 17 - EWB Events Logger_Demo\prjEventsTestDemo.dpr 72 | $(DCC) 73 | 74 | prjSysLV32RepDemo.exe: 18 - SysListView32 Replacement_Demo\prjSysLV32RepDemo.dpr 75 | $(DCC) 76 | 77 | -------------------------------------------------------------------------------- /Demos/Mega Demo/prjEmbeddedWBDemo.dpr: -------------------------------------------------------------------------------- 1 | //*************************************************************** 2 | // EmbeddedWB Mega Demo * 3 | // * 4 | // Freeware Demo * 5 | // by * 6 | // Eran Bodankin (bsalsa) -(bsalsa@bsalsa.com) * 7 | // Thanks to smot for the demo contribution * 8 | // * 9 | //*************************************************************** 10 | {LICENSE: 11 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 12 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 13 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 14 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 15 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 16 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 17 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 18 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 19 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 20 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 21 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 22 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 23 | 24 | You may use/ change/ modify the component under 4 conditions: 25 | 1. In your website, add a link to "http://www.bsalsa.com" 26 | 2. In your application, add credits to "Embedded Web Browser" 27 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit for the benefit 28 | of the other users. 29 | 4. Please, consider donation in our web site! 30 | {*******************************************************************************} 31 | 32 | program prjEmbeddedWBDemo; 33 | 34 | uses 35 | Forms, 36 | Demo in 'Demo.pas' {Form1}; 37 | 38 | {$R *.res} 39 | 40 | begin 41 | Application.Initialize; 42 | Application.CreateForm(TfrmMain, frmMain); 43 | Application.Run; 44 | end. 45 | 46 | -------------------------------------------------------------------------------- /Demos/Various Demos/01 - EditDesigner_Demo/prjEditDDemo.dpr: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { EditDesigner Demo } 3 | { By: } 4 | { Eran Bodankin (bsalsa) bsalsa@bsalsa.com } 5 | { Enjoy! } 6 | { Documentation and updated versions: } 7 | { http://www.bsalsa.com } 8 | {*******************************************************} 9 | {LICENSE: 10 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 11 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 12 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 13 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 14 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 15 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 16 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 17 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 18 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 19 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 20 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 21 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 22 | 23 | You may use, change or modify the component under 4 conditions: 24 | 1. In your website, add a link to "http://www.bsalsa.com" 25 | 2. In your application, add credits to "Embedded Web Browser" 26 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 27 | for the benefit of the other users. 28 | 4. Please, consider donation in our web site! 29 | {*******************************************************************************} 30 | 31 | program prjEditDDemo; 32 | 33 | uses 34 | Forms, 35 | utEditDesigner in 'utEditDesigner.pas' {Form1}; 36 | 37 | {$R *.res} 38 | 39 | begin 40 | Application.Initialize; 41 | Application.CreateForm(TForm1, Form1); 42 | Application.Run; 43 | end. 44 | -------------------------------------------------------------------------------- /Demos/Various Demos/02 - ExportFavorites_Demo/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | {$I EWB.inc} 6 | 7 | uses 8 | ExportFavorites, StdCtrls, Dialogs, Controls, OleCtrls, SHDocVw_EWB, EwbCore, 9 | EmbeddedWB, ComCtrls, Forms, Classes, ExtCtrls{$IFDEF DELPHI7_UP}, XPMan{$ENDIF}; 10 | 11 | type 12 | TForm2 = class(TForm) 13 | Panel1: TPanel; 14 | Button1: TButton; 15 | StatusBar1: TStatusBar; 16 | ExportFavorite1: TExportFavorite; 17 | EmbeddedWB1: TEmbeddedWB; 18 | Panel2: TPanel; 19 | ChkExploreFavFileOnComplete: TCheckBox; 20 | ChkNavigateOnComplete: TCheckBox; 21 | edTargetFileName: TEdit; 22 | Label1: TLabel; 23 | edTargetPath: TEdit; 24 | Label2: TLabel; 25 | Log: TListBox; 26 | edHTMLTitle: TEdit; 27 | Label3: TLabel; 28 | Panel3: TPanel; 29 | Label4: TLabel; 30 | procedure Button1Click(Sender: TObject); 31 | procedure ExportFavorite1Success(Sender: TObject; const Msg: string); 32 | procedure ExportFavorite1Error(Sender: TObject; const ErrorMsg: String; 33 | const ErrorCode: Byte); 34 | private 35 | { Private declarations } 36 | public 37 | { Public declarations } 38 | end; 39 | 40 | var 41 | Form2: TForm2; 42 | 43 | implementation 44 | 45 | {$R *.dfm} 46 | 47 | procedure TForm2.Button1Click(Sender: TObject); 48 | begin 49 | Log.Clear; 50 | with ExportFavorite1 do 51 | begin 52 | ExploreFavFileOnComplete := ChkExploreFavFileOnComplete.Checked; 53 | NavigateOnComplete := ChkNavigateOnComplete.Checked; 54 | TargetFileName := edTargetFileName.Text; 55 | TargetPath := edTargetPath.Text; 56 | ExportFavorite1.Localization.HTMLTitle := edHTMLTitle.Text; 57 | ExportFavorites; 58 | end; 59 | end; 60 | 61 | procedure TForm2.ExportFavorite1Success(Sender: TObject; 62 | const Msg: string); 63 | begin 64 | MessageDlg(Msg, mtInformation, [MbOk], 0); 65 | end; 66 | 67 | procedure TForm2.ExportFavorite1Error(Sender: TObject; 68 | const ErrorMsg: String; const ErrorCode: Byte); 69 | begin 70 | Log.Items.add(ErrorMsg + ' - ' + ExportFavorite1.Localization.ChangeItMessage); 71 | case ErrorCode of 72 | ERROR_FAV_TARGET_PATH_INVALID: edTargetPath.SetFocus; 73 | ERROR_FAV_TARGET_FILENAME_INVALID: edTargetFileName.SetFocus; 74 | end; 75 | end; 76 | 77 | end. 78 | 79 | -------------------------------------------------------------------------------- /Demos/Various Demos/02 - ExportFavorites_Demo/prjExportFavoritesDemo.dpr: -------------------------------------------------------------------------------- 1 | program prjExportFavoritesDemo; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form2}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm2, Form2); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/Various Demos/03 - FileAssociate_Demo/prjFile_AssDemo.dpr: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { File Associate demo } 3 | { } 4 | { For Delphi 5, 6, 7, 2005, 2006 } 5 | { by bsalsa - bsalsa@bsalsa.com } 6 | { Please note our uses terms } 7 | { Enjoy! } 8 | { UPDATES: } 9 | { http://www.bsalsa.com } 10 | {*******************************************************************************} 11 | {LICENSE: 12 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 13 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 14 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 15 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 16 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 17 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 18 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 19 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 20 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 21 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 22 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 23 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 24 | 25 | You may use, change or modify the component under 4 conditions: 26 | 1. In your website, add a link to "http://www.bsalsa.com" 27 | 2. In your application, add credits to "Embedded Web Browser" 28 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 29 | for the benefit of the other users. 30 | 4. Please, consider donation in our web site! 31 | {*******************************************************************************} 32 | 33 | program prjFile_AssDemo; 34 | 35 | uses 36 | Forms, 37 | frmMain in 'frmMain.pas' {Form1}; 38 | 39 | {$R *.res} 40 | 41 | begin 42 | Application.Initialize; 43 | Application.CreateForm(TForm1, Form1); 44 | Application.Run; 45 | end. 46 | -------------------------------------------------------------------------------- /Demos/Various Demos/04 - GUID_Demo/GUID_Creator/IEGuidList.txt: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /Demos/Various Demos/04 - GUID_Demo/GUID_Creator/prjGuidCreatorDemo.dpr: -------------------------------------------------------------------------------- 1 | //************************************************************* 2 | // GuidCreator * 3 | // * 4 | // by * 5 | // bsalsa - Eran Bodankin * 6 | // Documentation and updated versions: * 7 | // * 8 | // http://www.bsalsa.com * 9 | //************************************************************* 10 | {*******************************************************************************} 11 | {LICENSE: 12 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 13 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 14 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 15 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 16 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 17 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 18 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 19 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 20 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 21 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 22 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 23 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 24 | 25 | You may use/ change/ modify the component under 4 conditions: 26 | 1. In your website, add a link to "http://www.bsalsa.com" 27 | 2. In your application, add credits to "Embedded Web Browser" 28 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit for the benefit 29 | of the other users. 30 | 4. Please, consider donation in our web site! 31 | {*******************************************************************************} 32 | 33 | program prjGuidCreatorDemo; 34 | 35 | uses 36 | Forms, 37 | utGuidCreator in 'utGuidCreator.pas' {Form1}; 38 | 39 | {$R *.res} 40 | 41 | begin 42 | Application.Initialize; 43 | Application.CreateForm(TForm1, Form1); 44 | Application.Run; 45 | end. 46 | -------------------------------------------------------------------------------- /Demos/Various Demos/04 - GUID_Demo/IEGuid/IEGuidList.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/04 - GUID_Demo/IEGuid/IEGuidList.txt -------------------------------------------------------------------------------- /Demos/Various Demos/04 - GUID_Demo/IEGuid/prjIEGuidDemo.dpr: -------------------------------------------------------------------------------- 1 | program prjIEGuidDemo; 2 | 3 | uses 4 | Forms, 5 | ieguiddemo_u in 'ieguiddemo_u.pas' {Form1}; 6 | 7 | {$R *.RES} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/Various Demos/05 - IEAddress_Demo/prjIEAddressDemo.dpr: -------------------------------------------------------------------------------- 1 | program prjIEAddressDemo; 2 | 3 | uses 4 | ExceptionLog, 5 | Forms, 6 | frmMain in 'frmMain.pas' {Form1}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /Demos/Various Demos/06 - IECache_Demo/cachedemo_u.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/06 - IECache_Demo/cachedemo_u.dfm -------------------------------------------------------------------------------- /Demos/Various Demos/06 - IECache_Demo/cachedemo_u.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/06 - IECache_Demo/cachedemo_u.pas -------------------------------------------------------------------------------- /Demos/Various Demos/06 - IECache_Demo/prjCacheDemo.dpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/06 - IECache_Demo/prjCacheDemo.dpr -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Creating_Dynamically (at Run-Time)/Downloader.dfm: -------------------------------------------------------------------------------- 1 | object Form2: TForm2 2 | Left = 373 3 | Top = 201 4 | BorderIcons = [biSystemMenu, biMinimize] 5 | BorderStyle = bsSingle 6 | Caption = 'IEDownload Run-Time demo' 7 | ClientHeight = 264 8 | ClientWidth = 511 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | OldCreateOrder = False 16 | Position = poScreenCenter 17 | Scaled = False 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object Panel1: TPanel 21 | Left = 0 22 | Top = 0 23 | Width = 511 24 | Height = 57 25 | Align = alTop 26 | TabOrder = 0 27 | object Label1: TLabel 28 | Left = 8 29 | Top = 9 30 | Width = 39 31 | Height = 13 32 | Caption = 'Address' 33 | end 34 | object Button1: TButton 35 | Left = 445 36 | Top = 26 37 | Width = 59 38 | Height = 25 39 | Caption = 'Go' 40 | TabOrder = 0 41 | OnClick = Button1Click 42 | end 43 | object edtAddress: TEdit 44 | Left = 8 45 | Top = 28 46 | Width = 421 47 | Height = 21 48 | TabOrder = 1 49 | Text = 'http://www.bsalsa.com/Downloads/2.exe' 50 | end 51 | end 52 | object Panel2: TPanel 53 | Left = 0 54 | Top = 208 55 | Width = 511 56 | Height = 56 57 | Align = alBottom 58 | TabOrder = 1 59 | object Label2: TLabel 60 | Left = 8 61 | Top = 13 62 | Width = 3 63 | Height = 13 64 | end 65 | object ProgressBar1: TProgressBar 66 | Left = 1 67 | Top = 38 68 | Width = 509 69 | Height = 17 70 | Align = alBottom 71 | Min = 0 72 | Max = 100 73 | TabOrder = 0 74 | end 75 | end 76 | object memDL: TMemo 77 | Left = 0 78 | Top = 57 79 | Width = 511 80 | Height = 151 81 | Align = alClient 82 | Lines.Strings = ( 83 | '') 84 | ScrollBars = ssBoth 85 | TabOrder = 2 86 | end 87 | end 88 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Creating_Dynamically (at Run-Time)/Downloader.pas: -------------------------------------------------------------------------------- 1 | unit Downloader; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, Classes, Graphics, Controls, Forms, 7 | SysUtils, StdCtrls, ExtCtrls, IEDownload, ComCtrls; 8 | 9 | type 10 | TForm2 = class(TForm) 11 | Panel1: TPanel; 12 | Button1: TButton; 13 | Panel2: TPanel; 14 | Label1: TLabel; 15 | edtAddress: TEdit; 16 | ProgressBar1: TProgressBar; 17 | memDL: TMemo; 18 | Label2: TLabel; 19 | procedure Button1Click(Sender: TObject); 20 | private 21 | { Private declarations } 22 | procedure MyProgress(Sender: TBSCB; ulProgress, ulProgressMax, 23 | ulStatusCode, FileSize: ULONG; szStatusText: LPCWSTR; Downloaded, 24 | ElapsedTime, Speed, RemainingTime, Status, Percent: string); 25 | public 26 | { Public declarations } 27 | end; 28 | 29 | var 30 | Form2: TForm2; 31 | 32 | implementation 33 | 34 | {$R *.dfm} 35 | 36 | procedure TForm2.Button1Click(Sender: TObject); 37 | var 38 | IED: TIEDownload; 39 | begin 40 | IED := TIEDownload.Create(Self); 41 | try 42 | with IED do 43 | begin 44 | OpenDownloadFolder := True; 45 | OnProgress := MyProgress; 46 | Form2.Caption := 'Downloading from: ' + edtAddress.Text; 47 | Go(edtAddress.Text); 48 | with memDL.Lines do 49 | begin 50 | Clear; 51 | Add('Downloaded File: ' + DownloadedFile); 52 | Add('Download Folder: ' + DownloadFolder); 53 | Add('File Name: ' + FileName); 54 | Add('Server IP: ' + ServerIP); 55 | Add('Server Address: ' + ServerAddress); 56 | Add('File type: ' + MimeType); 57 | Add('File extension: ' + FileExtension); 58 | Add('File Size: ' + FormatSize(FileSize)); 59 | end; 60 | end; 61 | finally 62 | IED.Free; 63 | Form2.Caption := 'Done.'; 64 | end; 65 | end; 66 | 67 | procedure TForm2.MyProgress(Sender: TBSCB; ulProgress, ulProgressMax, 68 | ulStatusCode, FileSize: ULONG; szStatusText: LPCWSTR; Downloaded, 69 | ElapsedTime, Speed, RemainingTime, Status, Percent: string); 70 | begin 71 | ProgressBar1.Max := ulProgressMax; 72 | ProgressBar1.Position := ulProgress; 73 | Label2.Caption := 'Percents: ' + Percent; 74 | end; 75 | 76 | end. 77 | 78 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Creating_Dynamically (at Run-Time)/prjDownloaderDemo.dpr: -------------------------------------------------------------------------------- 1 | program prjDownloaderDemo; 2 | 3 | uses 4 | Forms, 5 | Downloader in 'Downloader.pas' {Form2}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm2, Form2); 12 | Application.Run; 13 | end. 14 | 15 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadForm_U.dfm: -------------------------------------------------------------------------------- 1 | object DownloadForm: TDownloadForm 2 | Left = 322 3 | Top = 111 4 | BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp] 5 | BorderStyle = bsDialog 6 | Caption = 'Downloads' 7 | ClientHeight = 178 8 | ClientWidth = 663 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'MS Sans Serif' 14 | Font.Style = [] 15 | OldCreateOrder = False 16 | Position = poScreenCenter 17 | OnClose = FormClose 18 | OnCreate = FormCreate 19 | OnDestroy = FormDestroy 20 | PixelsPerInch = 96 21 | TextHeight = 13 22 | object lvDownloads: TListView 23 | Left = 0 24 | Top = 0 25 | Width = 663 26 | Height = 121 27 | Align = alClient 28 | Columns = < 29 | item 30 | Caption = 'File' 31 | Width = 140 32 | end 33 | item 34 | Caption = 'Status' 35 | Width = 150 36 | end 37 | item 38 | Alignment = taRightJustify 39 | Caption = 'Size' 40 | Width = 55 41 | end 42 | item 43 | Alignment = taRightJustify 44 | Caption = 'Progress' 45 | Width = 55 46 | end 47 | item 48 | Alignment = taRightJustify 49 | Caption = 'Speed' 50 | Width = 70 51 | end 52 | item 53 | Caption = 'Remaining' 54 | Width = 80 55 | end 56 | item 57 | Caption = 'Progressbar' 58 | Width = 80 59 | end> 60 | RowSelect = True 61 | TabOrder = 0 62 | ViewStyle = vsReport 63 | OnContextPopup = lvDownloadsContextPopup 64 | end 65 | object Panel1: TPanel 66 | Left = 0 67 | Top = 121 68 | Width = 663 69 | Height = 57 70 | Align = alBottom 71 | TabOrder = 1 72 | object btnCancel: TButton 73 | Left = 464 74 | Top = 29 75 | Width = 75 76 | Height = 19 77 | Caption = 'Cancel All' 78 | TabOrder = 0 79 | OnClick = btnCancelClick 80 | end 81 | object chkAutoClose: TCheckBox 82 | Left = 8 83 | Top = 32 84 | Width = 369 85 | Height = 17 86 | Caption = 'Close this dialog box when downloads are completed' 87 | Checked = True 88 | State = cbChecked 89 | TabOrder = 1 90 | end 91 | object ProgressBar1: TProgressBar 92 | Left = 8 93 | Top = 6 94 | Width = 531 95 | Height = 17 96 | TabOrder = 2 97 | end 98 | end 99 | object IEDownload: TIEDownload 100 | AdditionalHeader.Strings = ( 101 | 'Content-Type: application/x-www-form-urlencoded') 102 | DefaultProtocol = 'http://' 103 | DefaultUrlFileName = 'index.html' 104 | DownloadMethod = dlFile 105 | OnBeginningTransaction = IEDownloadBeginningTransaction 106 | OnBinding = IEDownloadBinding 107 | OnDownloadComplete = IEDownloadComplete 108 | OnProgress = IEDownloadProgress 109 | Options = [Asynchronous, AsyncStorage, GetNewestVersion, NoWriteCache, PullData, Pragma_No_Cache] 110 | Left = 16 111 | Top = 80 112 | end 113 | object pmDownloadItem: TPopupMenu 114 | Left = 48 115 | Top = 80 116 | object miCancel: TMenuItem 117 | Caption = 'Cancel' 118 | OnClick = miCancelClick 119 | end 120 | object miOpen: TMenuItem 121 | Caption = 'Open' 122 | Enabled = False 123 | OnClick = miOpenClick 124 | end 125 | end 126 | end 127 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadManager.dpr: -------------------------------------------------------------------------------- 1 | library DownloadManager; 2 | 3 | { Important note about DLL memory management: ShareMem must be the 4 | first unit in your library's USES clause AND your project's (select 5 | Project-View Source) USES clause if your DLL exports any procedures or 6 | functions that pass strings as parameters or function results. This 7 | applies to all strings passed to and from your DLL--even those that 8 | are nested in records and classes. ShareMem is the interface unit to 9 | the BORLNDMM.DLL shared memory manager, which must be deployed along 10 | with your DLL. To avoid using BORLNDMM.DLL, pass string information 11 | using PChar or ShortString parameters. } 12 | 13 | uses 14 | comserv, 15 | _IEDownloadManager in '_IEDownloadManager.pas', 16 | DownloadForm_U in 'DownloadForm_U.pas' {DownloadForm}, 17 | DownloadManager_TLB in 'DownloadManager_TLB.pas'; 18 | 19 | exports 20 | DllGetClassObject, 21 | DllCanUnloadNow, 22 | DllRegisterServer, 23 | DllUnRegisterServer; 24 | 25 | 26 | {$R *.TLB} 27 | 28 | {$R *.res} 29 | 30 | begin 31 | end. 32 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadManager.tlb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadManager.tlb -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadManager_TLB.pas: -------------------------------------------------------------------------------- 1 | unit DownloadManager_TLB; 2 | 3 | // ************************************************************************ // 4 | // WARNING 5 | // ------- 6 | // The types declared in this file were generated from data read from a 7 | // Type Library. If this type library is explicitly or indirectly (via 8 | // another type library referring to this type library) re-imported, or the 9 | // 'Refresh' command of the Type Library Editor activated while editing the 10 | // Type Library, the contents of this file will be regenerated and all 11 | // manual modifications will be lost. 12 | // ************************************************************************ // 13 | 14 | // PASTLWTR : 1.2 15 | // File generated on 12/03/2007 18:25:29 from Type Library described below. 16 | 17 | // ************************************************************************ // 18 | // Type Lib: H:\Borland\VCL\EmbeddedWB_Official_Release\EmbeddedWB_D2005\Demos\TIEDownloadMgr_Demo\Internet Explorer\DownloadManager.tlb (1) 19 | // LIBID: {3B5D8F58-F10C-4283-998E-D54C9146AA2A} 20 | // LCID: 0 21 | // Helpfile: 22 | // HelpString: DownloadManager Library 23 | // DepndLst: 24 | // (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb) 25 | // ************************************************************************ // 26 | {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 27 | {$WARN SYMBOL_PLATFORM OFF} 28 | {$WRITEABLECONST ON} 29 | {$VARPROPSETTER ON} 30 | interface 31 | 32 | uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants; 33 | 34 | 35 | // *********************************************************************// 36 | // GUIDS declared in the TypeLibrary. Following prefixes are used: 37 | // Type Libraries : LIBID_xxxx 38 | // CoClasses : CLASS_xxxx 39 | // DISPInterfaces : DIID_xxxx 40 | // Non-DISP interfaces: IID_xxxx 41 | // *********************************************************************// 42 | const 43 | // TypeLibrary Major and minor versions 44 | DownloadManagerMajorVersion = 1; 45 | DownloadManagerMinorVersion = 0; 46 | 47 | LIBID_DownloadManager: TGUID = '{3B5D8F58-F10C-4283-998E-D54C9146AA2A}'; 48 | 49 | 50 | implementation 51 | 52 | uses ComObj; 53 | 54 | end. 55 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadRequestForm.dfm: -------------------------------------------------------------------------------- 1 | object DownloadRequest: TDownloadRequest 2 | Left = 557 3 | Top = 186 4 | BorderStyle = bsDialog 5 | Caption = 'File Download' 6 | ClientHeight = 161 7 | ClientWidth = 378 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'MS Sans Serif' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poScreenCenter 16 | OnDestroy = FormDestroy 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | object lbQuestion: TLabel 20 | Left = 16 21 | Top = 16 22 | Width = 217 23 | Height = 13 24 | Caption = 'Do you want to open or save this file?' 25 | Font.Charset = DEFAULT_CHARSET 26 | Font.Color = clWindowText 27 | Font.Height = -11 28 | Font.Name = 'MS Sans Serif' 29 | Font.Style = [fsBold] 30 | ParentFont = False 31 | end 32 | object lbName: TLabel 33 | Left = 81 34 | Top = 40 35 | Width = 31 36 | Height = 13 37 | Alignment = taRightJustify 38 | Caption = 'Name:' 39 | end 40 | object lbType: TLabel 41 | Left = 85 42 | Top = 56 43 | Width = 27 44 | Height = 13 45 | Alignment = taRightJustify 46 | Caption = 'Type:' 47 | end 48 | object lbFrom: TLabel 49 | Left = 86 50 | Top = 88 51 | Width = 26 52 | Height = 13 53 | Alignment = taRightJustify 54 | Caption = 'From:' 55 | end 56 | object imgIcon: TImage 57 | Left = 16 58 | Top = 40 59 | Width = 32 60 | Height = 32 61 | end 62 | object lbNameTxt: TLabel 63 | Left = 120 64 | Top = 40 65 | Width = 241 66 | Height = 13 67 | AutoSize = False 68 | end 69 | object lbTypeTxt: TLabel 70 | Left = 120 71 | Top = 56 72 | Width = 241 73 | Height = 13 74 | AutoSize = False 75 | end 76 | object lbFromTxt: TLabel 77 | Left = 120 78 | Top = 88 79 | Width = 241 80 | Height = 13 81 | AutoSize = False 82 | end 83 | object lbSize: TLabel 84 | Left = 89 85 | Top = 72 86 | Width = 23 87 | Height = 13 88 | Alignment = taRightJustify 89 | Caption = 'Size:' 90 | end 91 | object lbSizeTxt: TLabel 92 | Left = 120 93 | Top = 72 94 | Width = 241 95 | Height = 13 96 | AutoSize = False 97 | end 98 | object btnOpen: TButton 99 | Left = 112 100 | Top = 120 101 | Width = 75 102 | Height = 25 103 | Caption = 'Open' 104 | Enabled = False 105 | TabOrder = 0 106 | OnClick = btnOpenClick 107 | end 108 | object btnSave: TButton 109 | Left = 200 110 | Top = 120 111 | Width = 75 112 | Height = 25 113 | Caption = 'Save' 114 | TabOrder = 1 115 | OnClick = btnSaveClick 116 | end 117 | object btnCancel: TButton 118 | Left = 288 119 | Top = 120 120 | Width = 75 121 | Height = 25 122 | Cancel = True 123 | Caption = 'Cancel' 124 | Default = True 125 | ModalResult = 2 126 | TabOrder = 2 127 | OnClick = btnCancelClick 128 | end 129 | object dlgSave: TSaveDialog 130 | Left = 24 131 | Top = 104 132 | end 133 | end 134 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/_IEDownloadManager.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/_IEDownloadManager.pas -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadMgrDemo.dpr: -------------------------------------------------------------------------------- 1 | //************************************************************************* 2 | // * 3 | // IE Downloag Mgr * 4 | // For Delphi * 5 | // * 6 | // Freeware Demo * 7 | // Developing Team: * 8 | // Eran Bodankin -bsalsa(bsalsa@bsalsa.com) * 9 | // Mathias Walter (mich@matze.tv) * 10 | // * 11 | // * 12 | // Updated versions: * 13 | // http://www.bsalsa.com * 14 | //************************************************************************* 15 | {LICENSE: 16 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 17 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 18 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 19 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 20 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 21 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 22 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 23 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 24 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 25 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 26 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 27 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 28 | 29 | You may use, change or modify the component under 4 conditions: 30 | 1. In your website, add a link to "http://www.bsalsa.com" 31 | 2. In your application, add credits to "Embedded Web Browser" 32 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 33 | for the benefit of the other users. 34 | 4. Please, consider donation in our web site! 35 | {*******************************************************************************} 36 | 37 | program DownloadMgrDemo; 38 | 39 | uses 40 | ExceptionLog, 41 | Forms, 42 | DownloadMgrDemo_U in 'DownloadMgrDemo_U.pas' {Form1}, 43 | DownloadForm_U in 'DownloadForm_U.pas' {DownloadForm}; 44 | 45 | {$R *.res} 46 | 47 | begin 48 | Application.Initialize; 49 | Application.CreateForm(TForm1, Form1); 50 | Application.CreateForm(TDownloadForm, DownloadForm); 51 | Application.Run; 52 | end. 53 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadMgrDemo_U.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 269 3 | Top = 107 4 | Width = 607 5 | Height = 428 6 | Caption = 'IE Downloag Mgr ' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnShow = FormShow 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object EmbeddedWB1: TEmbeddedWB 18 | Left = 0 19 | Top = 65 20 | Width = 591 21 | Height = 327 22 | TabStop = False 23 | Align = alClient 24 | TabOrder = 0 25 | Silent = False 26 | OnDownloadComplete = EmbeddedWB1DownloadComplete 27 | OnBeforeNavigate2 = EmbeddedWB1BeforeNavigate2 28 | OnFileDownload = EmbeddedWB1FileDownload 29 | DisableCtrlShortcuts = 'N' 30 | UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes] 31 | About = ' EmbeddedWB http://bsalsa.com/' 32 | PrintOptions.Margins.Left = 19.05 33 | PrintOptions.Margins.Right = 19.05 34 | PrintOptions.Margins.Top = 19.05 35 | PrintOptions.Margins.Bottom = 19.05 36 | PrintOptions.Header = '&w&bPage &p of &P' 37 | PrintOptions.HTMLHeader.Strings = ( 38 | '') 39 | PrintOptions.Footer = '&u&b&d' 40 | PrintOptions.Orientation = poPortrait 41 | UserAgent = 'EmbeddedWB 14.55 from: http://www.bsalsa.com/' 42 | ControlData = { 43 | 4C0000005E330000901A00000000000000000000000000000000000000000000 44 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 45 | 2B2E126208000000000000004C0000000114020000000000C000000000000046 46 | 8000000000000000000000000000000000000000000000000000000000000000 47 | 00000000000000000100000000000000000000000000000000000000} 48 | end 49 | object Panel1: TPanel 50 | Left = 0 51 | Top = 0 52 | Width = 591 53 | Height = 65 54 | Align = alTop 55 | TabOrder = 1 56 | object Button1: TButton 57 | Left = 421 58 | Top = 9 59 | Width = 33 60 | Height = 22 61 | Caption = 'Go' 62 | TabOrder = 0 63 | OnClick = Button1Click 64 | end 65 | object IEAddress1: TIEAddress 66 | Left = 0 67 | Top = 9 68 | Width = 417 69 | Height = 22 70 | AutoNavigateOnLoad = False 71 | About = 'TIEAddress. Help & Support: http://www.bsalsa.com/' 72 | EmbeddedWB = EmbeddedWB1 73 | IconLeft = 4 74 | IconTop = 3 75 | ItemHeight = 16 76 | ParentBiDiMode = True 77 | TabOrder = 1 78 | TextOnLoad = tlUserDefine 79 | TextOnShow = 'http://bsalsa.com/downloads.html' 80 | end 81 | object rgMethod: TRadioGroup 82 | Left = 464 83 | Top = 0 84 | Width = 127 85 | Height = 59 86 | Caption = 'FileDownload Method' 87 | Items.Strings = ( 88 | 'Go (Url)' 89 | 'Download (Moniker)') 90 | TabOrder = 2 91 | end 92 | end 93 | end 94 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadRequestForm.dfm: -------------------------------------------------------------------------------- 1 | object DownloadRequest: TDownloadRequest 2 | Left = 557 3 | Top = 186 4 | BorderStyle = bsDialog 5 | Caption = 'File Download' 6 | ClientHeight = 161 7 | ClientWidth = 378 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'MS Sans Serif' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poScreenCenter 16 | OnDestroy = FormDestroy 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | object lbQuestion: TLabel 20 | Left = 16 21 | Top = 16 22 | Width = 217 23 | Height = 13 24 | Caption = 'Do you want to open or save this file?' 25 | Font.Charset = DEFAULT_CHARSET 26 | Font.Color = clWindowText 27 | Font.Height = -11 28 | Font.Name = 'MS Sans Serif' 29 | Font.Style = [fsBold] 30 | ParentFont = False 31 | end 32 | object lbName: TLabel 33 | Left = 81 34 | Top = 40 35 | Width = 31 36 | Height = 13 37 | Alignment = taRightJustify 38 | Caption = 'Name:' 39 | end 40 | object lbType: TLabel 41 | Left = 85 42 | Top = 56 43 | Width = 27 44 | Height = 13 45 | Alignment = taRightJustify 46 | Caption = 'Type:' 47 | end 48 | object lbFrom: TLabel 49 | Left = 86 50 | Top = 88 51 | Width = 26 52 | Height = 13 53 | Alignment = taRightJustify 54 | Caption = 'From:' 55 | end 56 | object imgIcon: TImage 57 | Left = 16 58 | Top = 40 59 | Width = 32 60 | Height = 32 61 | end 62 | object lbNameTxt: TLabel 63 | Left = 120 64 | Top = 40 65 | Width = 241 66 | Height = 13 67 | AutoSize = False 68 | end 69 | object lbTypeTxt: TLabel 70 | Left = 120 71 | Top = 56 72 | Width = 241 73 | Height = 13 74 | AutoSize = False 75 | end 76 | object lbFromTxt: TLabel 77 | Left = 120 78 | Top = 88 79 | Width = 241 80 | Height = 13 81 | AutoSize = False 82 | end 83 | object lbSize: TLabel 84 | Left = 89 85 | Top = 72 86 | Width = 23 87 | Height = 13 88 | Alignment = taRightJustify 89 | Caption = 'Size:' 90 | end 91 | object lbSizeTxt: TLabel 92 | Left = 120 93 | Top = 72 94 | Width = 241 95 | Height = 13 96 | AutoSize = False 97 | end 98 | object btnOpen: TButton 99 | Left = 112 100 | Top = 120 101 | Width = 75 102 | Height = 25 103 | Caption = 'Open' 104 | Enabled = False 105 | TabOrder = 0 106 | OnClick = btnOpenClick 107 | end 108 | object btnSave: TButton 109 | Left = 200 110 | Top = 120 111 | Width = 75 112 | Height = 25 113 | Caption = 'Save' 114 | TabOrder = 1 115 | OnClick = btnSaveClick 116 | end 117 | object btnCancel: TButton 118 | Left = 288 119 | Top = 120 120 | Width = 75 121 | Height = 25 122 | Cancel = True 123 | Caption = 'Cancel' 124 | Default = True 125 | ModalResult = 2 126 | TabOrder = 2 127 | OnClick = btnCancelClick 128 | end 129 | object dlgSave: TSaveDialog 130 | Left = 24 131 | Top = 104 132 | end 133 | end 134 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadRequestForm.pas: -------------------------------------------------------------------------------- 1 | {$WARN UNIT_PLATFORM OFF} 2 | unit DownloadRequestForm; 3 | 4 | interface 5 | 6 | uses 7 | Windows, SysUtils, Classes, Graphics, Controls, Forms, 8 | Dialogs, StdCtrls, ExtCtrls; 9 | 10 | const 11 | mrOpen = mrYesToAll + 1; 12 | mrSave = mrOpen + 1; 13 | 14 | type 15 | TDownloadRequest = class(TForm) 16 | btnOpen: TButton; 17 | btnSave: TButton; 18 | btnCancel: TButton; 19 | lbQuestion: TLabel; 20 | lbName: TLabel; 21 | lbType: TLabel; 22 | lbFrom: TLabel; 23 | imgIcon: TImage; 24 | lbNameTxt: TLabel; 25 | lbTypeTxt: TLabel; 26 | lbFromTxt: TLabel; 27 | dlgSave: TSaveDialog; 28 | lbSize: TLabel; 29 | lbSizeTxt: TLabel; 30 | procedure btnCancelClick(Sender: TObject); 31 | procedure btnOpenClick(Sender: TObject); 32 | procedure btnSaveClick(Sender: TObject); 33 | procedure FormDestroy(Sender: TObject); 34 | private 35 | { Private-Deklarationen } 36 | FDownloadFolder: string; 37 | FFileName: string; 38 | public 39 | { Public-Deklarationen } 40 | property drDownloadFolder: string read FDownloadFolder; 41 | property drFileName: string read FFileName; 42 | end; 43 | 44 | var 45 | DownloadRequest: TDownloadRequest; 46 | DontOpenThisExts, OpenOnlyThisExts: TStringList; 47 | 48 | function CanOpen(FileExt: string): Boolean; 49 | 50 | implementation 51 | 52 | uses DownloadForm_U; 53 | 54 | {$R *.DFM} 55 | 56 | function CanOpen(FileExt: string): Boolean; 57 | begin 58 | Result := ((DontOpenThisExts.IndexOf(FileExt) < 0) and 59 | ((OpenOnlyThisExts.Count = 0) or (OpenOnlyThisExts.IndexOf(FileExt) >= 0))); 60 | end; 61 | 62 | procedure TDownloadRequest.btnCancelClick(Sender: TObject); 63 | begin 64 | // if FSender.State = sReady then 65 | DownloadForm.Close; 66 | Self.Close; 67 | end; 68 | 69 | procedure TDownloadRequest.btnOpenClick(Sender: TObject); 70 | begin 71 | Self.ModalResult := mrOpen; 72 | end; 73 | 74 | procedure TDownloadRequest.btnSaveClick(Sender: TObject); 75 | begin 76 | dlgSave.FileName := lbNameTxt.Caption; 77 | if (dlgSave.Execute) then 78 | begin 79 | FFileName := ExtractFileName(dlgSave.FileName); 80 | FDownloadFolder := ExtractFilePath(dlgSave.FileName); 81 | Self.ModalResult := mrSave; 82 | end; 83 | end; 84 | 85 | procedure TDownloadRequest.FormDestroy(Sender: TObject); 86 | begin 87 | if (imgIcon.Picture.Icon.Handle <> 0) then 88 | DestroyIcon(imgIcon.Picture.Icon.Handle); 89 | end; 90 | 91 | initialization 92 | DontOpenThisExts := TStringList.Create(); 93 | OpenOnlyThisExts := TStringList.Create(); 94 | finalization 95 | DontOpenThisExts.Free(); 96 | OpenOnlyThisExts.Free(); 97 | end. 98 | 99 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Mega_Demo/prjDownloadDemo.dpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Mega_Demo/prjDownloadDemo.dpr -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadForm_U.dfm: -------------------------------------------------------------------------------- 1 | object DownloadForm: TDownloadForm 2 | Left = 322 3 | Top = 111 4 | BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp] 5 | BorderStyle = bsDialog 6 | Caption = 'Downloads' 7 | ClientHeight = 217 8 | ClientWidth = 776 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'MS Sans Serif' 14 | Font.Style = [] 15 | OldCreateOrder = False 16 | Position = poScreenCenter 17 | OnClose = FormClose 18 | OnDestroy = FormDestroy 19 | PixelsPerInch = 96 20 | TextHeight = 13 21 | object ListView: TListView 22 | Left = 0 23 | Top = 0 24 | Width = 776 25 | Height = 217 26 | Align = alClient 27 | Columns = < 28 | item 29 | Caption = 'File' 30 | Width = 120 31 | end 32 | item 33 | Caption = 'Status' 34 | Width = 120 35 | end 36 | item 37 | Alignment = taRightJustify 38 | Caption = 'Size' 39 | Width = 55 40 | end 41 | item 42 | Alignment = taRightJustify 43 | Caption = 'Progress' 44 | Width = 55 45 | end 46 | item 47 | Alignment = taRightJustify 48 | Caption = 'Speed' 49 | Width = 60 50 | end 51 | item 52 | Caption = 'Remaining' 53 | Width = 70 54 | end 55 | item 56 | Caption = 'Thread ID' 57 | Width = 60 58 | end 59 | item 60 | Caption = 'ActiveConnections' 61 | Width = 90 62 | end 63 | item 64 | Caption = 'Progress bar' 65 | Width = 150 66 | end> 67 | ReadOnly = True 68 | RowSelect = True 69 | TabOrder = 0 70 | ViewStyle = vsReport 71 | end 72 | end 73 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadMgrDemo_U.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 269 3 | Top = 107 4 | Width = 607 5 | Height = 428 6 | Caption = 'IE Downloag Mgr ' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnShow = FormShow 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object EmbeddedWB1: TEmbeddedWB 18 | Left = 0 19 | Top = 41 20 | Width = 591 21 | Height = 351 22 | TabStop = False 23 | Align = alClient 24 | TabOrder = 0 25 | OnDownloadComplete = EmbeddedWB1DownloadComplete 26 | OnBeforeNavigate2 = EmbeddedWB1BeforeNavigate2 27 | OnFileDownload = EmbeddedWB1FileDownload 28 | DisableCtrlShortcuts = 'N' 29 | UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes] 30 | About = ' EmbeddedWB http://bsalsa.com/' 31 | PrintOptions.Margins.Left = 19.05 32 | PrintOptions.Margins.Right = 19.05 33 | PrintOptions.Margins.Top = 19.05 34 | PrintOptions.Margins.Bottom = 19.05 35 | PrintOptions.Header = '&w&bPage &p of &P' 36 | PrintOptions.HTMLHeader.Strings = ( 37 | '') 38 | PrintOptions.Footer = '&u&b&d' 39 | PrintOptions.Orientation = poPortrait 40 | UserAgent = 'EmbeddedWB 14.55 from: http://www.bsalsa.com/' 41 | ControlData = { 42 | 4C0000005E330000901A00000000000000000000000000000000000000000000 43 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 44 | 2B2E126208000000000000004C0000000114020000000000C000000000000046 45 | 8000000000000000000000000000000000000000000000000000000000000000 46 | 00000000000000000100000000000000000000000000000000000000} 47 | end 48 | object Panel1: TPanel 49 | Left = 0 50 | Top = 0 51 | Width = 591 52 | Height = 41 53 | Align = alTop 54 | TabOrder = 1 55 | object Button1: TButton 56 | Left = 514 57 | Top = 10 58 | Width = 58 59 | Height = 21 60 | Caption = 'Go' 61 | TabOrder = 0 62 | OnClick = Button1Click 63 | end 64 | object IEAddress1: TIEAddress 65 | Left = 0 66 | Top = 9 67 | Width = 505 68 | Height = 22 69 | AutoNavigateOnLoad = False 70 | About = 'TIEAddress. Help & Support: http://www.bsalsa.com/' 71 | EmbeddedWB = EmbeddedWB1 72 | IconLeft = 4 73 | IconTop = 3 74 | ItemHeight = 16 75 | ParentBiDiMode = True 76 | TabOrder = 1 77 | TextOnLoad = tlUserDefine 78 | TextOnShow = 'http://bsalsa.com/downloads.html' 79 | end 80 | end 81 | end 82 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadRequestForm.dfm: -------------------------------------------------------------------------------- 1 | object DownloadRequest: TDownloadRequest 2 | Left = 557 3 | Top = 186 4 | BorderStyle = bsDialog 5 | Caption = 'File Download' 6 | ClientHeight = 161 7 | ClientWidth = 378 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'MS Sans Serif' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poScreenCenter 16 | OnDestroy = FormDestroy 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | object lbQuestion: TLabel 20 | Left = 16 21 | Top = 16 22 | Width = 217 23 | Height = 13 24 | Caption = 'Do you want to open or save this file?' 25 | Font.Charset = DEFAULT_CHARSET 26 | Font.Color = clWindowText 27 | Font.Height = -11 28 | Font.Name = 'MS Sans Serif' 29 | Font.Style = [fsBold] 30 | ParentFont = False 31 | end 32 | object lbName: TLabel 33 | Left = 81 34 | Top = 40 35 | Width = 31 36 | Height = 13 37 | Alignment = taRightJustify 38 | Caption = 'Name:' 39 | end 40 | object lbType: TLabel 41 | Left = 85 42 | Top = 56 43 | Width = 27 44 | Height = 13 45 | Alignment = taRightJustify 46 | Caption = 'Type:' 47 | end 48 | object lbFrom: TLabel 49 | Left = 86 50 | Top = 88 51 | Width = 26 52 | Height = 13 53 | Alignment = taRightJustify 54 | Caption = 'From:' 55 | end 56 | object imgIcon: TImage 57 | Left = 16 58 | Top = 40 59 | Width = 32 60 | Height = 32 61 | end 62 | object lbNameTxt: TLabel 63 | Left = 120 64 | Top = 40 65 | Width = 241 66 | Height = 13 67 | AutoSize = False 68 | end 69 | object lbTypeTxt: TLabel 70 | Left = 120 71 | Top = 56 72 | Width = 241 73 | Height = 13 74 | AutoSize = False 75 | end 76 | object lbFromTxt: TLabel 77 | Left = 120 78 | Top = 88 79 | Width = 241 80 | Height = 13 81 | AutoSize = False 82 | end 83 | object lbSize: TLabel 84 | Left = 89 85 | Top = 72 86 | Width = 23 87 | Height = 13 88 | Alignment = taRightJustify 89 | Caption = 'Size:' 90 | end 91 | object lbSizeTxt: TLabel 92 | Left = 120 93 | Top = 72 94 | Width = 241 95 | Height = 13 96 | AutoSize = False 97 | end 98 | object btnOpen: TButton 99 | Left = 112 100 | Top = 120 101 | Width = 75 102 | Height = 25 103 | Caption = 'Open' 104 | Enabled = False 105 | TabOrder = 0 106 | OnClick = btnOpenClick 107 | end 108 | object btnSave: TButton 109 | Left = 200 110 | Top = 120 111 | Width = 75 112 | Height = 25 113 | Caption = 'Save' 114 | TabOrder = 1 115 | OnClick = btnSaveClick 116 | end 117 | object btnCancel: TButton 118 | Left = 288 119 | Top = 120 120 | Width = 75 121 | Height = 25 122 | Cancel = True 123 | Caption = 'Cancel' 124 | Default = True 125 | ModalResult = 2 126 | TabOrder = 2 127 | OnClick = btnCancelClick 128 | end 129 | object dlgSave: TSaveDialog 130 | Left = 24 131 | Top = 104 132 | end 133 | end 134 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/prjDownloadMgrDemo.dpr: -------------------------------------------------------------------------------- 1 | //************************************************************************* 2 | // * 3 | // IE Downloag Mgr * 4 | // For Delphi * 5 | // * 6 | // Freeware Demo * 7 | // Developing Team: * 8 | // Eran Bodankin -bsalsa(bsalsa@bsalsa.com) * 9 | // Mathias Walter (mich@matze.tv) * 10 | // * 11 | // * 12 | // Updated versions: * 13 | // http://www.bsalsa.com * 14 | //************************************************************************* 15 | {LICENSE: 16 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 17 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 18 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 19 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 20 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 21 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 22 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 23 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 24 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 25 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 26 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 27 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 28 | 29 | You may use, change or modify the component under 4 conditions: 30 | 1. In your website, add a link to "http://www.bsalsa.com" 31 | 2. In your application, add credits to "Embedded Web Browser" 32 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 33 | for the benefit of the other users. 34 | 4. Please, consider donation in our web site! 35 | {*******************************************************************************} 36 | 37 | program prjDownloadMgrDemo; 38 | 39 | uses 40 | Forms, 41 | DownloadMgrDemo_U in 'DownloadMgrDemo_U.pas' {Form1}, 42 | DownloadForm_U in 'DownloadForm_U.pas' {DownloadForm}; 43 | 44 | {$R *.res} 45 | 46 | begin 47 | Application.Initialize; 48 | Application.CreateForm(TForm1, Form1); 49 | Application.CreateForm(TDownloadForm, DownloadForm); 50 | Application.Run; 51 | end. 52 | -------------------------------------------------------------------------------- /Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Simple_Demo/prjIEDownloadSimple.dpr: -------------------------------------------------------------------------------- 1 | //************************************************************************* 2 | // * 3 | // IE Downloag Mgr * 4 | // For Delphi * 5 | // * 6 | // Freeware Demo * 7 | // Developing Team: * 8 | // Eran Bodankin -bsalsa(bsalsa@bsalsa.com) * 9 | // Mathias Walter (mich@matze.tv) * 10 | // * 11 | // * 12 | // Updated versions: * 13 | // http://www.bsalsa.com * 14 | //************************************************************************* 15 | {LICENSE: 16 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 17 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 18 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 19 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 20 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 21 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 22 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 23 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 24 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 25 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 26 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 27 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 28 | 29 | You may use, change or modify the component under 4 conditions: 30 | 1. In your website, add a link to "http://www.bsalsa.com" 31 | 2. In your application, add credits to "Embedded Web Browser" 32 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 33 | for the benefit of the other users. 34 | 4. Please, consider donation in our web site! 35 | {*******************************************************************************} 36 | 37 | program prjIEDownloadSimple; 38 | 39 | uses 40 | Forms, 41 | utIEDownloadSimple in 'utIEDownloadSimple.pas' {Form1}; 42 | 43 | {$R *.res} 44 | 45 | begin 46 | Application.Initialize; 47 | Application.CreateForm(TForm1, Form1); 48 | Application.Run; 49 | end. 50 | -------------------------------------------------------------------------------- /Demos/Various Demos/08 - IEMultiDownload/prjMultiDLDemo.dpr: -------------------------------------------------------------------------------- 1 | program prjMultiDLDemo; 2 | 3 | uses 4 | Forms, 5 | utMultiDL in 'utMultiDL.pas' {frmMultiDownloader}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TfrmMultiDownloader, frmMultiDownloader); 12 | Application.Run; 13 | end. 14 | 15 | -------------------------------------------------------------------------------- /Demos/Various Demos/09 - IEParser_Demo/prjIEParserDemo.dpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/09 - IEParser_Demo/prjIEParserDemo.dpr -------------------------------------------------------------------------------- /Demos/Various Demos/10 - IETravellog_Demo/TravelLogDemo_U.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/10 - IETravellog_Demo/TravelLogDemo_U.pas -------------------------------------------------------------------------------- /Demos/Various Demos/10 - IETravellog_Demo/prjTravellogDemo.dpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/10 - IETravellog_Demo/prjTravellogDemo.dpr -------------------------------------------------------------------------------- /Demos/Various Demos/11 - LinksLabel_Demo/FrmMain.pas: -------------------------------------------------------------------------------- 1 | //*********************************************************** 2 | // TLinksLabel demo * 3 | // * 4 | // For Delphi 5 - 2010 * 5 | // Freeware demo * 6 | // By: Eran Bodankin (bsalsa) bsalsa@bsalsa.com * 7 | // Documentation and updated versions: * 8 | // http://www.bsalsa.com * 9 | //*********************************************************** 10 | {*******************************************************************************} 11 | {LICENSE: 12 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 13 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 14 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 15 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 16 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 17 | AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 18 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 19 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 20 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 21 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 22 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY 23 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 24 | 25 | You may use, change or modify the component under 4 conditions: 26 | 1. In your website, add a link to "http://www.bsalsa.com" 27 | 2. In your application, add credits to "Embedded Web Browser" 28 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 29 | for the benefit of the other users. 30 | 4. Please, consider donation in our web site! 31 | {*******************************************************************************} 32 | 33 | unit FrmMain; 34 | 35 | interface 36 | 37 | uses 38 | Classes, Controls, Forms, Dialogs, StdCtrls, LinksLabel, ImgList; 39 | 40 | type 41 | TForm2 = class(TForm) 42 | LinksLabel1: TLinksLabel; 43 | LinksLabel2: TLinksLabel; 44 | LinksLabel3: TLinksLabel; 45 | LinksLabel4: TLinksLabel; 46 | ImageList1: TImageList; 47 | LinksLabel5: TLinksLabel; 48 | procedure LinksLabel1Launch(var Success: Boolean; const ErrorText: string; 49 | var Result: Cardinal); 50 | private 51 | { Private declarations } 52 | public 53 | { Public declarations } 54 | end; 55 | 56 | var 57 | Form2: TForm2; 58 | 59 | implementation 60 | 61 | {$R *.dfm} 62 | 63 | procedure TForm2.LinksLabel1Launch(var Success: Boolean; 64 | const ErrorText: string; var Result: Cardinal); 65 | begin 66 | if not Success then 67 | ShowMessage(ErrorText); 68 | end; 69 | 70 | 71 | end. 72 | 73 | -------------------------------------------------------------------------------- /Demos/Various Demos/11 - LinksLabel_Demo/prjLinksDemo.dpr: -------------------------------------------------------------------------------- 1 | //*********************************************************** 2 | // TLinksLabel demo * 3 | // * 4 | // For Delphi 5 - 2010 * 5 | // Freeware demo * 6 | // By: Eran Bodankin (bsalsa) bsalsa@bsalsa.com * 7 | // Documentation and updated versions: * 8 | // http://www.bsalsa.com * 9 | //*********************************************************** 10 | {*******************************************************************************} 11 | {LICENSE: 12 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 13 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 14 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 15 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 16 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 17 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 18 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 19 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 20 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 21 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 22 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 23 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 24 | 25 | You may use, change or modify the component under 4 conditions: 26 | 1. In your website, add a link to "http://www.bsalsa.com" 27 | 2. In your application, add credits to "Embedded Web Browser" 28 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 29 | for the benefit of the other users. 30 | 4. Please, consider donation in our web site! 31 | {*******************************************************************************} 32 | program prjLinksDemo; 33 | 34 | uses 35 | Forms, 36 | FrmMain in 'FrmMain.pas' {Form2}; 37 | 38 | {$R *.res} 39 | 40 | begin 41 | Application.Initialize; 42 | Application.CreateForm(TForm2, Form2); 43 | Application.Run; 44 | end. 45 | -------------------------------------------------------------------------------- /Demos/Various Demos/12 - LinksBar_Demo/prjProject1Demo.dpr: -------------------------------------------------------------------------------- 1 | //**************************************************** 2 | // LinksBar Demo * 3 | // * 4 | // * 5 | // By: * 6 | // Eran Bodankin (bsalsa) * 7 | // bsalsa@bsalsa.com * 8 | // * 9 | // Documentation and updated versions: * 10 | // http://www.bsalsa.com * 11 | //**************************************************** 12 | 13 | {*******************************************************************************} 14 | {LICENSE: 15 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 16 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 17 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 18 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 19 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 20 | AND DocUMENTATION. [YOUR Name] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 21 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 22 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 23 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 24 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS, 25 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. VSOFT SPECIFICALLY 26 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 27 | 28 | You may use, change or modify the component under 4 conditions: 29 | 1. In your website, add a Link to "http://www.bsalsa.com" 30 | 2. In your application, add credits to "Embedded Web Browser" 31 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 32 | for the benefit of the other users. 33 | 4. Please, consider donation in our web site! 34 | {*******************************************************************************} 35 | 36 | 37 | program prjProject1Demo; 38 | 39 | uses 40 | Forms, 41 | Unit1 in 'Unit1.pas' {Form2}; 42 | 43 | {$R *.res} 44 | 45 | begin 46 | Application.Initialize; 47 | Application.CreateForm(TForm2, Form2); 48 | Application.Run; 49 | end. 50 | -------------------------------------------------------------------------------- /Demos/Various Demos/13 - MimeFilter_Demo/Mime_unit.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/13 - MimeFilter_Demo/Mime_unit.dfm -------------------------------------------------------------------------------- /Demos/Various Demos/13 - MimeFilter_Demo/demo.htm: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | Page 1 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 |

14 |

15 | 16 | 17 | 18 |
 
19 |

 

20 |

21 |

This demo demonstrates some of the powerful features in a 22 | temporary or permanent pluggable NameSpaceHandler.
On this document, we are replacing the strings from the EditBox in a local /remote html file.

23 |

24 | Instructions:
25 | 26 | Check / UnCheck the Filter CheckBox and, load the file.

27 |

Delphi

28 |

Delphi

29 |

Delphi

30 |

Delphi

31 |

Delphi

32 |

 

33 |

For info:
34 | http://msdn2.microsoft.com/en-us/library/aa767916.aspx

35 |

36 |

37 |

 

38 |
 
39 |

 

40 | 41 | 42 | 43 | 44 | -------------------------------------------------------------------------------- /Demos/Various Demos/13 - MimeFilter_Demo/pnh.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/13 - MimeFilter_Demo/pnh.gif -------------------------------------------------------------------------------- /Demos/Various Demos/13 - MimeFilter_Demo/prjMimeDemo.dpr: -------------------------------------------------------------------------------- 1 | {*****************************************************************} 2 | { } 3 | { MimeFilter interface Demo } 4 | { } 5 | { By Eran Bodankin - bsalsa } 6 | { Converted 6 May 2007 bsalsa@bsalsa.com } 7 | { Last modified 6 May 2007 bsalsa@bsalsa.com } 8 | { Version 2 } 9 | { } 10 | { Documentation and updated versions: } 11 | { } 12 | { http://www.bsalsa.com } 13 | {*****************************************************************} 14 | {LICENSE: 15 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 16 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 17 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 18 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 19 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 20 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 21 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 22 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 23 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 24 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 25 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 26 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 27 | 28 | You may use/ change/ modify the component under 4 conditions: 29 | 1. In your web site, add a link to "http://www.bsalsa.com" 30 | 2. In your application, add credits to "Embedded Web Browser" 31 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit for the benefit 32 | of the other users. 33 | 4. Please, consider donation in our web site! 34 | {*******************************************************************************} 35 | 36 | program prjMimeDemo; 37 | 38 | 39 | uses 40 | Forms, 41 | Mime_unit in 'Mime_unit.pas' {Form1}, 42 | MimeFilter in '..\..\..\Tools\MimeFilter.pas'; 43 | 44 | {$R *.RES} 45 | 46 | begin 47 | Application.Initialize; 48 | Application.CreateForm(TForm1, Form1); 49 | Application.Run; 50 | end. 51 | -------------------------------------------------------------------------------- /Demos/Various Demos/14 - RichEditWB_Demo/prjProject1Demo.dpr: -------------------------------------------------------------------------------- 1 | //**************************************************** 2 | // EwbRichEdit Demo * 3 | // * 4 | // * 5 | // By: * 6 | // Eran Bodankin (bsalsa) * 7 | // bsalsa@bsalsa.com * 8 | // * 9 | // Documentation and updated versions: * 10 | // http://www.bsalsa.com * 11 | //**************************************************** 12 | 13 | {*******************************************************************************} 14 | {LICENSE: 15 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 16 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 17 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 18 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 19 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 20 | AND DocUMENTATION. [YOUR Name] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 21 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 22 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 23 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 24 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS, 25 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. VSOFT SPECIFICALLY 26 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 27 | 28 | You may use, change or modify the component under 4 conditions: 29 | 1. In your website, add a Link to "http://www.bsalsa.com" 30 | 2. In your application, add credits to "Embedded Web Browser" 31 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 32 | for the benefit of the other users. 33 | 4. Please, consider donation in our web site! 34 | {*******************************************************************************} 35 | 36 | 37 | program prjProject1Demo; 38 | 39 | uses 40 | Forms, 41 | Unit1 in 'Unit1.pas' {Form2}; 42 | 43 | {$R *.res} 44 | 45 | begin 46 | Application.Initialize; 47 | Application.CreateForm(TForm2, Form2); 48 | Application.Run; 49 | end. 50 | -------------------------------------------------------------------------------- /Demos/Various Demos/15 - Zones_Security_Demo/_ZoneDemo.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/15 - Zones_Security_Demo/_ZoneDemo.pas -------------------------------------------------------------------------------- /Demos/Various Demos/15 - Zones_Security_Demo/prjZonesSecurityDemo.dpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/15 - Zones_Security_Demo/prjZonesSecurityDemo.dpr -------------------------------------------------------------------------------- /Demos/Various Demos/16 - UI-Less_Demo/prjUIParser_Demo.dpr: -------------------------------------------------------------------------------- 1 | //**************************************************** 2 | // Extended IEParser Demo * 3 | // * 4 | // * 5 | // By: * 6 | // Eran Bodankin (bsalsa) * 7 | // bsalsa@bsalsa.com * 8 | // * 9 | // Documentation and updated versions: * 10 | // http://www.bsalsa.com * 11 | //**************************************************** 12 | 13 | {*******************************************************************************} 14 | {LICENSE: 15 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 16 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 17 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 18 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 19 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 20 | AND DocUMENTATION. [YOUR Name] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 21 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 22 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 23 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 24 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS, 25 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. VSOFT SPECIFICALLY 26 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 27 | 28 | You may use, change or modify the component under 4 conditions: 29 | 1. In your website, add a Link to "http://www.bsalsa.com" 30 | 2. In your application, add credits to "Embedded Web Browser" 31 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 32 | for the benefit of the other users. 33 | 4. Please, consider donation in our web site! 34 | {*******************************************************************************} 35 | 36 | 37 | program prjUIParser_Demo; 38 | 39 | uses 40 | Forms, 41 | utParser in 'utParser.pas' {Form1}; 42 | 43 | {$R *.res} 44 | 45 | begin 46 | Application.Initialize; 47 | Application.CreateForm(TForm1, Form1); 48 | Application.Run; 49 | end. 50 | -------------------------------------------------------------------------------- /Demos/Various Demos/16 - UI-Less_Demo/utParser.pas: -------------------------------------------------------------------------------- 1 | //**************************************************** 2 | // Extended IEParser Demo * 3 | // * 4 | // * 5 | // By: * 6 | // Eran Bodankin (bsalsa) * 7 | // bsalsa@bsalsa.com * 8 | // * 9 | // Documentation and updated versions: * 10 | // http://www.bsalsa.com * 11 | //**************************************************** 12 | 13 | {*******************************************************************************} 14 | {LICENSE: 15 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 16 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 17 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 18 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 19 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 20 | AND DocUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 21 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 22 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 23 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 24 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS, 25 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. BSALSA PRODUCTIONS SPECIFICALLY 26 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 27 | 28 | You may use, change or modify the component under 4 conditions: 29 | 1. In your website, add a Link to "http://www.bsalsa.com" 30 | 2. In your application, add credits to "Embedded Web Browser" 31 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 32 | for the benefit of the other users. 33 | 4. Please, consider donation in our web site! 34 | {*******************************************************************************} 35 | 36 | 37 | unit utParser; 38 | 39 | interface 40 | 41 | uses 42 | IEAddress, ExtCtrls, ComCtrls, UI_Less, Controls, Classes, Forms, StdCtrls, 43 | RichEditBrowser, EwbUrl; 44 | 45 | type 46 | TForm1 = class(TForm) 47 | Panel1: TPanel; 48 | Go: TButton; 49 | IEAddress1: TIEAddress; 50 | StatusBar1: TStatusBar; 51 | UILess1: TUILess; 52 | Panel2: TPanel; 53 | MemoLinkList: TMemo; 54 | Label1: TLabel; 55 | Label2: TLabel; 56 | Label3: TLabel; 57 | MemoAnchorList: TRichEditWB; 58 | MemoImageList: TRichEditWB; 59 | ProgressBar1: TProgressBar; 60 | procedure GoClick(Sender: TObject); 61 | private 62 | procedure ClearControls; 63 | end; 64 | 65 | var 66 | Form1: TForm1; 67 | 68 | implementation 69 | 70 | {$R *.dfm} 71 | 72 | procedure TForm1.ClearControls; 73 | begin 74 | MemoAnchorList.Clear; 75 | MemoImageList.Clear; 76 | MemoLinkList.Clear; 77 | end; 78 | 79 | procedure TForm1.GoClick(Sender: TObject); 80 | begin 81 | ClearControls; 82 | UILess1.Go(IEAddress1.Text); 83 | UILess1.GetAnchorList(MemoAnchorList.lines); 84 | UILess1.GetImageList(MemoImageList.lines); 85 | UILess1.GetLinkList(MemoLinkList.lines); 86 | end; 87 | 88 | 89 | end. 90 | 91 | -------------------------------------------------------------------------------- /Demos/Various Demos/17 - URL_Demo/prjMainDemo.dpr: -------------------------------------------------------------------------------- 1 | //*********************************************************** 2 | // URL Tools demo * 3 | // (Uniform Resource identifier) * 4 | // * 5 | // For Delphi 5,6, 7 , 2005, 2006 * 6 | // Freeware demo * 7 | // By: Eran Bodankin (bsalsa) bsalsa@bsalsa.com * 8 | // Documentation and updated versions: * 9 | // http://www.bsalsa.com * 10 | //*********************************************************** 11 | {*******************************************************************************} 12 | {LICENSE: 13 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 14 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 15 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 16 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 17 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 18 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 19 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 20 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 21 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 22 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 23 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 24 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 25 | 26 | You may use, change or modify the component under 4 conditions: 27 | 1. In your website, add a link to "http://www.bsalsa.com" 28 | 2. In your application, add credits to "Embedded Web Browser" 29 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 30 | for the benefit of the other users. 31 | 4. Please consider donation in our web site! 32 | {*******************************************************************************} 33 | 34 | program prjMainDemo; 35 | 36 | uses 37 | Forms, 38 | frmMain in 'frmMain.pas' {Form1}; 39 | 40 | {$R *.res} 41 | 42 | begin 43 | Application.Initialize; 44 | Application.CreateForm(TForm1, Form1); 45 | Application.Run; 46 | end. 47 | -------------------------------------------------------------------------------- /Demos/Various Demos/18 - URL_History_Demo/UrlhistoryDemo_U.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 87 3 | Top = 121 4 | Width = 836 5 | Height = 511 6 | Caption = 'TUrlHistory Demo' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | Scaled = False 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object Label1: TLabel 19 | Left = 480 20 | Top = 397 21 | Width = 25 22 | Height = 13 23 | Caption = 'Filter:' 24 | end 25 | object Label2: TLabel 26 | Left = 232 27 | Top = 376 28 | Width = 36 29 | Height = 13 30 | Caption = 'Sort by:' 31 | end 32 | object StringGrid1: TStringGrid 33 | Left = 0 34 | Top = 37 35 | Width = 820 36 | Height = 404 37 | Align = alClient 38 | DefaultColWidth = 75 39 | DefaultRowHeight = 16 40 | FixedCols = 0 41 | TabOrder = 0 42 | ColWidths = ( 43 | 114 44 | 234 45 | 222 46 | 112 47 | 107) 48 | end 49 | object Panel1: TPanel 50 | Left = 0 51 | Top = 441 52 | Width = 820 53 | Height = 34 54 | Align = alBottom 55 | TabOrder = 1 56 | object CheckBox1: TCheckBox 57 | Left = 675 58 | Top = 10 59 | Width = 137 60 | Height = 15 61 | Alignment = taLeftJustify 62 | Caption = 'Only sites visited today' 63 | TabOrder = 0 64 | end 65 | end 66 | object Panel2: TPanel 67 | Left = 0 68 | Top = 0 69 | Width = 820 70 | Height = 37 71 | Align = alTop 72 | TabOrder = 2 73 | object Label4: TLabel 74 | Left = 604 75 | Top = 11 76 | Width = 33 77 | Height = 13 78 | Caption = 'Sort by' 79 | end 80 | object Label3: TLabel 81 | Left = 8 82 | Top = 12 83 | Width = 58 84 | Height = 13 85 | Caption = 'Search Text' 86 | end 87 | object ComboSortBy: TComboBox 88 | Left = 648 89 | Top = 8 90 | Width = 145 91 | Height = 21 92 | Style = csDropDownList 93 | ItemHeight = 13 94 | TabOrder = 0 95 | Items.Strings = ( 96 | 'Last visted' 97 | 'Title' 98 | 'Url' 99 | 'Last updated' 100 | 'Expires') 101 | end 102 | object Button1: TButton 103 | Left = 245 104 | Top = 6 105 | Width = 153 106 | Height = 25 107 | Caption = 'Enumerate !' 108 | TabOrder = 1 109 | OnClick = Button1Click 110 | end 111 | object edSearchText: TEdit 112 | Left = 80 113 | Top = 8 114 | Width = 153 115 | Height = 21 116 | TabOrder = 2 117 | end 118 | end 119 | object UrlHistory1: TUrlHistory 120 | OnAccept = UrlHistory1Accept 121 | SortField = sfLastVisited 122 | SearchField = seBoth 123 | SortDirection = sdAscending 124 | Left = 40 125 | Top = 136 126 | end 127 | end 128 | -------------------------------------------------------------------------------- /Demos/Various Demos/18 - URL_History_Demo/prjUrlHistoryDemo.dpr: -------------------------------------------------------------------------------- 1 | //*********************************************************** 2 | // URL History demo * 3 | // * 4 | // For Delphi 5,6, 7 , 2005, 2006 * 5 | // Freeware demo * 6 | // * 7 | // Documentation and updated versions: * 8 | // http://www.bsalsa.com * 9 | //*********************************************************** 10 | {*******************************************************************************} 11 | {LICENSE: 12 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 13 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 14 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 15 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 16 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 17 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 18 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 19 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 20 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 21 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 22 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 23 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 24 | 25 | You may use, change or modify the component under 4 conditions: 26 | 1. In your website, add a link to "http://www.bsalsa.com" 27 | 2. In your application, add credits to "Embedded Web Browser" 28 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 29 | for the benefit of the other users. 30 | 4. Please consider donation in our web site! 31 | {*******************************************************************************} 32 | 33 | program prjUrlhistoryDemo; 34 | 35 | uses 36 | Forms, 37 | UrlhistoryDemo_U in 'UrlhistoryDemo_U.pas' {Form1}; 38 | 39 | {$R *.RES} 40 | 41 | begin 42 | Application.Initialize; 43 | Application.CreateForm(TForm1, Form1); 44 | Application.Run; 45 | end. 46 | -------------------------------------------------------------------------------- /Demos/Various Demos/19 - URLSearchHook/Searchhook.tlb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/19 - URLSearchHook/Searchhook.tlb -------------------------------------------------------------------------------- /Demos/Various Demos/19 - URLSearchHook/Searchhook_TLB.pas: -------------------------------------------------------------------------------- 1 | unit Searchhook_TLB; 2 | 3 | // ************************************************************************ // 4 | // WARNING 5 | // ------- 6 | // The types declared in this file were generated from data read from a 7 | // Type Library. If this type library is explicitly or indirectly (via 8 | // another type library referring to this type library) re-imported, or the 9 | // 'Refresh' command of the Type Library Editor activated while editing the 10 | // Type Library, the contents of this file will be regenerated and all 11 | // manual modifications will be lost. 12 | // ************************************************************************ // 13 | 14 | // $Rev: 5081 $ 15 | // File generated on 18.04.2009 17:26:27 from Type Library described below. 16 | 17 | // ************************************************************************ // 18 | // Type Lib: C:\Programme\Borland\Delphi6\Lib2\EmbeddedWB\Demos\Various Demos\19 - URLSearchHook\Searchhook.tlb (1) 19 | // LIBID: {F2907014-0B20-4BF9-9CD0-A49A96BDA0C0} 20 | // LCID: 0 21 | // Helpfile: 22 | // HelpString: Searchhook Library 23 | // DepndLst: 24 | // (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb) 25 | // ************************************************************************ // 26 | {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 27 | {$WARN SYMBOL_PLATFORM OFF} 28 | {$WRITEABLECONST ON} 29 | {$VARPROPSETTER ON} 30 | interface 31 | 32 | uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants; 33 | 34 | 35 | // *********************************************************************// 36 | // GUIDS declared in the TypeLibrary. Following prefixes are used: 37 | // Type Libraries : LIBID_xxxx 38 | // CoClasses : CLASS_xxxx 39 | // DISPInterfaces : DIID_xxxx 40 | // Non-DISP interfaces: IID_xxxx 41 | // *********************************************************************// 42 | const 43 | // TypeLibrary Major and minor versions 44 | SearchhookMajorVersion = 1; 45 | SearchhookMinorVersion = 0; 46 | 47 | LIBID_Searchhook: TGUID = '{F2907014-0B20-4BF9-9CD0-A49A96BDA0C0}'; 48 | 49 | 50 | implementation 51 | 52 | uses ComObj; 53 | 54 | end. 55 | -------------------------------------------------------------------------------- /Demos/Various Demos/19 - URLSearchHook/_SearchHook.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/19 - URLSearchHook/_SearchHook.pas -------------------------------------------------------------------------------- /Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo.dpr: -------------------------------------------------------------------------------- 1 | library prjSearchhookDemo; 2 | 3 | uses 4 | SysUtils, 5 | Classes, 6 | _SearchHook in '_SearchHook.pas', 7 | comserv, 8 | Searchhook_TLB in 'Searchhook_TLB.pas', 9 | prjSearchhookDemo_TLB in 'prjSearchhookDemo_TLB.pas'; 10 | 11 | exports 12 | DllGetClassObject, 13 | DllCanUnloadNow, 14 | DllRegisterServer, 15 | DllUnregisterServer; 16 | 17 | 18 | {$R *.TLB} 19 | 20 | {$R *.RES} 21 | 22 | begin 23 | end. 24 | -------------------------------------------------------------------------------- /Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo.ridl: -------------------------------------------------------------------------------- 1 | // ************************************************************************ // 2 | // WARNING 3 | // ------- 4 | // This file is generated by the Type Library importer or Type Libary Editor. 5 | // Barring syntax errors, the Editor will parse modifications made to the file. 6 | // However, when applying changes via the Editor this file will be regenerated 7 | // and comments or formatting changes will be lost. 8 | // ************************************************************************ // 9 | // File generated on 27.08.2009 08:00:55 (- $Rev: 12980 $, 177068747). 10 | 11 | [ 12 | uuid(910B8565-9B71-4CAE-8F4B-654E46CB069D), 13 | version(1.0), 14 | helpstring("prjSearchhookDemo Library") 15 | 16 | ] 17 | library prjSearchhookDemo 18 | { 19 | 20 | importlib("stdole2.tlb"); 21 | 22 | 23 | 24 | }; -------------------------------------------------------------------------------- /Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo.tlb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo.tlb -------------------------------------------------------------------------------- /Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo_TLB.pas: -------------------------------------------------------------------------------- 1 | unit prjSearchhookDemo_TLB; 2 | 3 | // ************************************************************************ // 4 | // WARNING 5 | // ------- 6 | // The types declared in this file were generated from data read from a 7 | // Type Library. If this type library is explicitly or indirectly (via 8 | // another type library referring to this type library) re-imported, or the 9 | // 'Refresh' command of the Type Library Editor activated while editing the 10 | // Type Library, the contents of this file will be regenerated and all 11 | // manual modifications will be lost. 12 | // ************************************************************************ // 13 | 14 | // PASTLWTR : 1.2 15 | // File generated on 18.04.2009 17:28:33 from Type Library described below. 16 | 17 | // ************************************************************************ // 18 | // Type Lib: C:\Programme\Borland\Delphi6\Lib2\EmbeddedWB\Demos\Various Demos\19 - URLSearchHook\prjSearchhookDemo.tlb (1) 19 | // LIBID: {910B8565-9B71-4CAE-8F4B-654E46CB069D} 20 | // LCID: 0 21 | // Helpfile: 22 | // HelpString: prjSearchhookDemo Library 23 | // DepndLst: 24 | // (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb) 25 | // ************************************************************************ // 26 | {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 27 | {$WARN SYMBOL_PLATFORM OFF} 28 | {$WRITEABLECONST ON} 29 | {$VARPROPSETTER ON} 30 | interface 31 | 32 | uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants; 33 | 34 | 35 | // *********************************************************************// 36 | // GUIDS declared in the TypeLibrary. Following prefixes are used: 37 | // Type Libraries : LIBID_xxxx 38 | // CoClasses : CLASS_xxxx 39 | // DISPInterfaces : DIID_xxxx 40 | // Non-DISP interfaces: IID_xxxx 41 | // *********************************************************************// 42 | const 43 | // TypeLibrary Major and minor versions 44 | prjSearchhookDemoMajorVersion = 1; 45 | prjSearchhookDemoMinorVersion = 0; 46 | 47 | LIBID_prjSearchhookDemo: TGUID = '{910B8565-9B71-4CAE-8F4B-654E46CB069D}'; 48 | 49 | 50 | implementation 51 | 52 | uses ComObj; 53 | 54 | end. 55 | -------------------------------------------------------------------------------- /Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/NewUpdate.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 |
4 | project1 5 | bsalsa 6 | bsalsa Productions 7 | 2 8 | 2 9 | 2 10 | 2 11 |
12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | -------------------------------------------------------------------------------- /Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 385 3 | Top = 133 4 | Width = 482 5 | Height = 370 6 | Caption = 'Webupdater Demo' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | Scaled = False 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object ProgressBar1: TProgressBar 19 | Left = 0 20 | Top = 298 21 | Width = 466 22 | Height = 17 23 | Align = alBottom 24 | Min = 0 25 | Max = 100 26 | TabOrder = 0 27 | end 28 | object StatusBar1: TStatusBar 29 | Left = 0 30 | Top = 315 31 | Width = 466 32 | Height = 19 33 | Panels = <> 34 | SimplePanel = False 35 | end 36 | object Memo1: TMemo 37 | Left = 0 38 | Top = 0 39 | Width = 466 40 | Height = 257 41 | Align = alClient 42 | Lines.Strings = ( 43 | 'This demo demonstrates the TWebUpdater.' 44 | 45 | 'The TWebUpdater will download a remote XML file, parse its data ' + 46 | 'sections' 47 | 'and will do the update procedure automatically.' 48 | '' 49 | '') 50 | TabOrder = 2 51 | end 52 | object Panel1: TPanel 53 | Left = 0 54 | Top = 257 55 | Width = 466 56 | Height = 41 57 | Align = alBottom 58 | TabOrder = 3 59 | object Button1: TButton 60 | Left = 8 61 | Top = 10 62 | Width = 121 63 | Height = 25 64 | Caption = 'Start WebUpdater' 65 | TabOrder = 0 66 | OnClick = Button1Click 67 | end 68 | end 69 | object WebUpdater1: TWebUpdater 70 | About = 'Application Updater by bsalsa : bsalsa@gmail.com' 71 | AbortMessage = 'Aborted! (User request).' 72 | ApplicationName = 'project1' 73 | Author = 'bsalsa' 74 | BackupFolder = 'Backup\' 75 | Caption = 'Updating the application... Please wait.' 76 | Company = 'bsalsa Productions' 77 | DeleteLogOnComplete = False 78 | DeleteWebInfoFileOnComplete = False 79 | ApplicationVersion.BuildVersion = 1 80 | EMail = 'bsalsa@bsalsa.com' 81 | ErrorMessage = 'An error ocurred while ' 82 | LogAddTime = True 83 | LogFileName = 'Updater.txt' 84 | MailErrorReport = False 85 | OpenAppFolderOnComplete = True 86 | ProgressBar = ProgressBar1 87 | StatusBar = StatusBar1 88 | SuccessMessageText = 'Update is done.' 89 | UpdatesFolder = 'Updates\' 90 | WebInfoFileName = 'NewUpdate.xml' 91 | WebURL = 'http://bsalsa.com/webupdate' 92 | Left = 392 93 | Top = 16 94 | end 95 | end 96 | -------------------------------------------------------------------------------- /Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/Unit1.pas: -------------------------------------------------------------------------------- 1 | //*********************************************************** 2 | // TWebUpdater demo * 3 | // * 4 | // For Delphi 5 - 2009 * 5 | // Freeware demo * 6 | // By: Eran Bodankin (bsalsa) bsalsa@gmail.com * 7 | // Documentation and updated versions: * 8 | // http://www.bsalsa.com * 9 | //*********************************************************** 10 | {*******************************************************************************} 11 | {LICENSE: 12 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 13 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 14 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 15 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 16 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 17 | AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 18 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 19 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 20 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 21 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 22 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY 23 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 24 | 25 | You may use, change or modify the component under 4 conditions: 26 | 1. In your website, add a link to "http://www.bsalsa.com" 27 | 2. In your application, add credits to "Embedded Web Browser" 28 | 3. Mail me (bsalsa@gmail.com) any code change in the unit 29 | for the benefit of the other users. 30 | 4. Please consider donation in our web site! 31 | {*******************************************************************************} 32 | 33 | unit Unit1; 34 | 35 | interface 36 | 37 | uses 38 | Classes, Controls, Forms, AppWebUpdater, ComCtrls, StdCtrls, OleCtrls, 39 | ExtCtrls; 40 | 41 | type 42 | TForm1 = class(TForm) 43 | WebUpdater1: TWebUpdater; 44 | ProgressBar1: TProgressBar; 45 | StatusBar1: TStatusBar; 46 | Memo1: TMemo; 47 | Panel1: TPanel; 48 | Button1: TButton; 49 | procedure Button1Click(Sender: TObject); 50 | private 51 | { Private declarations } 52 | public 53 | { Public declarations } 54 | end; 55 | 56 | var 57 | Form1: TForm1; 58 | 59 | implementation 60 | 61 | {$R *.dfm} 62 | 63 | procedure TForm1.Button1Click(Sender: TObject); 64 | begin 65 | WebUpdater1.Start; 66 | end; 67 | 68 | end. 69 | 70 | -------------------------------------------------------------------------------- /Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/project1.dpr: -------------------------------------------------------------------------------- 1 | //*********************************************************** 2 | // WebUpdater demo * 3 | // * 4 | // For Delphi 5,6, 7 , 2005, 2006 * 5 | // Freeware demo * 6 | // By: Eran Bodankin (bsalsa) bsalsa@bsalsa.com * 7 | // Documentation and updated versions: * 8 | // http://www.bsalsa.com * 9 | //*********************************************************** 10 | {*******************************************************************************} 11 | {LICENSE: 12 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 13 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 14 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 15 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 16 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 17 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 18 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 19 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 20 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 21 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 22 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 23 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 24 | 25 | You may use, change or modify the component under 4 conditions: 26 | 1. In your website, add a link to "http://www.bsalsa.com" 27 | 2. In your application, add credits to "Embedded Web Browser" 28 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 29 | for the benefit of the other users. 30 | 4. Please, consider donation in our web site! 31 | {*******************************************************************************} 32 | 33 | program project1; 34 | 35 | uses 36 | Forms, 37 | Unit1 in 'Unit1.pas' {Form1}; 38 | 39 | {$R *.res} 40 | 41 | begin 42 | Application.Initialize; 43 | Application.CreateForm(TForm1, Form1); 44 | Application.Run; 45 | end. 46 | -------------------------------------------------------------------------------- /Demos/Various Demos/20 - WebUpdater_Demo/Updater_XML_File_Creator/prjProject1Demo.dpr: -------------------------------------------------------------------------------- 1 | //*********************************************************** 2 | // WebUpdater demo * 3 | // * 4 | // For Delphi 5,6, 7 , 2005, 2006 * 5 | // Freeware demo * 6 | // By: Eran Bodankin (bsalsa) bsalsa@bsalsa.com * 7 | // Documentation and updated versions: * 8 | // http://www.bsalsa.com * 9 | //*********************************************************** 10 | {*******************************************************************************} 11 | {LICENSE: 12 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 13 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 14 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 15 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 16 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 17 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 18 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 19 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 20 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 21 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 22 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY 23 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 24 | 25 | You may use, change or modify the component under 4 conditions: 26 | 1. In your website, add a link to "http://www.bsalsa.com" 27 | 2. In your application, add credits to "Embedded Web Browser" 28 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit 29 | for the benefit of the other users. 30 | 4. Please consider donation in our web site! 31 | {*******************************************************************************} 32 | 33 | program prjProject1Demo; 34 | 35 | uses 36 | Forms, 37 | Unit1 in 'Unit1.pas' {Form1}; 38 | 39 | {$R *.res} 40 | 41 | begin 42 | Application.Initialize; 43 | Application.CreateForm(TForm1, Form1); 44 | Application.Run; 45 | end. 46 | -------------------------------------------------------------------------------- /Demos/Various Demos/VariousDemos.bpg: -------------------------------------------------------------------------------- 1 | #------------------------------------------------------------------------------ 2 | VERSION = BWS.01 3 | #------------------------------------------------------------------------------ 4 | !ifndef ROOT 5 | ROOT = $(MAKEDIR)\.. 6 | !endif 7 | #------------------------------------------------------------------------------ 8 | MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** 9 | DCC = $(ROOT)\bin\dcc32.exe $** 10 | BRCC = $(ROOT)\bin\brcc32.exe $** 11 | #------------------------------------------------------------------------------ 12 | PROJECTS = prjEditDDemo.exe prjExportFavoritesDemo.exe prjFile_AssDemo.exe \ 13 | prjGuidCreatorDemo.exe prjIEGuidDemo.exe prjIEAddressDemo.exe \ 14 | prjCacheDemo.exe prjDownloaderDemo.exe \ 15 | prjDownloadMgrDemo.exe prjDownloadMgrDemo.exe \ 16 | prjMultiDLDemo.exe prjIEParserDemo.exe prjTravellogDemo.exe \ 17 | prjLinksDemo.exe prjProject1Demo.exe prjMimeDemo.exe prjProject1Demo.exe \ 18 | prjZonesSecurityDemo.exe prjUIParser_Demo.exe prjMainDemo.exe \ 19 | prjUrlHistoryDemo.exe prjSearchhookDemo.exe prjProject1Demo.exe \ 20 | prjProject1Demo.exe 21 | 22 | #------------------------------------------------------------------------------ 23 | default: $(PROJECTS) 24 | #------------------------------------------------------------------------------ 25 | 26 | prjEditDDemo.exe: 01 - EditDesigner_Demo\prjEditDDemo.dpr 27 | $(DCC) 28 | 29 | prjExportFavoritesDemo.exe: 02 - ExportFavorites_Demo\prjExportFavoritesDemo.dpr 30 | $(DCC) 31 | 32 | prjFile_AssDemo.exe: 03 - FileAssociate_Demo\prjFile_AssDemo.dpr 33 | $(DCC) 34 | 35 | prjGuidCreatorDemo.exe: 04 - GUID_Demo\GUID_Creator\prjGuidCreatorDemo.dpr 36 | $(DCC) 37 | 38 | prjIEGuidDemo.exe: 04 - GUID_Demo\IEGuid\prjIEGuidDemo.dpr 39 | $(DCC) 40 | 41 | prjIEAddressDemo.exe: 05 - IEAddress_Demo\prjIEAddressDemo.dpr 42 | $(DCC) 43 | 44 | prjCacheDemo.exe: 06 - IECache_Demo\prjCacheDemo.dpr 45 | $(DCC) 46 | 47 | prjDownloaderDemo.exe: 07 - IEDownload_Demo\IEDownload_Creating_Dynamically (at Run-Time)\prjDownloaderDemo.dpr 48 | $(DCC) 49 | 50 | #prjDownloadManagerDemo.dll: 07 - IEDownload_Demo\IEDownload_DownloadManager_Demo\Internet Explorer_OutOfDate\prjDownloadManagerDemo.dpr 51 | # $(DCC) 52 | 53 | prjDownloadMgrDemo.exe: 07 - IEDownload_Demo\IEDownload_DownloadManager_Demo\Webbrowser\prjDownloadMgrDemo.dpr 54 | $(DCC) 55 | 56 | #prjDownloadDemo.exe: 07 - IEDownload_Demo\IEDownload_Mega_Demo\prjDownloadDemo.dpr 57 | # $(DCC) 58 | 59 | prjDownloadMgrDemo.exe: 07 - IEDownload_Demo\IEDownload_Multiple Files_Simultaneous_Downloading\prjDownloadMgrDemo.dpr 60 | $(DCC) 61 | 62 | prjMultiDLDemo.exe: 08 - IEMultiDownload\prjMultiDLDemo.dpr 63 | $(DCC) 64 | 65 | prjIEParserDemo.exe: 09 - IEParser_Demo\prjIEParserDemo.dpr 66 | $(DCC) 67 | 68 | prjTravellogDemo.exe: 10 - IETravellog_Demo\prjTravellogDemo.dpr 69 | $(DCC) 70 | 71 | prjLinksDemo.exe: 11 - LabelLink_Demo\prjLinksDemo.dpr 72 | $(DCC) 73 | 74 | prjProject1Demo.exe: 12 - LinksBar_Demo\prjProject1Demo.dpr 75 | $(DCC) 76 | 77 | prjMimeDemo.exe: 13 - MimeFilter_Demo\prjMimeDemo.dpr 78 | $(DCC) 79 | 80 | prjProject1Demo.exe: 14 - RichEditWB_Demo\prjProject1Demo.dpr 81 | $(DCC) 82 | 83 | prjZonesSecurityDemo.exe: 15 - Zones_Security_Demo\prjZonesSecurityDemo.dpr 84 | $(DCC) 85 | 86 | prjUIParser_Demo.exe: 16 - UI-Less_Demo\prjUIParser_Demo.dpr 87 | $(DCC) 88 | 89 | prjMainDemo.exe: 17 - URL_Demo\prjMainDemo.dpr 90 | $(DCC) 91 | 92 | prjUrlHistoryDemo.exe: 18 - URL_History_Demo\prjUrlHistoryDemo.dpr 93 | $(DCC) 94 | 95 | prjSearchhookDemo.exe: 19 - URLSearchHook\prjSearchhookDemo.dpr 96 | $(DCC) 97 | 98 | prjProject1Demo.exe: 20 - WebUpdater_Demo\Updater_Demo\prjProject1Demo.dpr 99 | $(DCC) 100 | 101 | prjProject1Demo.exe: 20 - WebUpdater_Demo\Updater_XML_File_Creator\prjProject1Demo.dpr 102 | $(DCC) 103 | -------------------------------------------------------------------------------- /Licence.txt: -------------------------------------------------------------------------------- 1 | {*******************************************************************************} 2 | {LICENSE: 3 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND, 4 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED 5 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. 6 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE 7 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE 8 | AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE 9 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED 10 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS, 11 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR 12 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, 13 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY 14 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE. 15 | 16 | You may use, change or modify the component under 4 conditions: 17 | 1. In your website, add a link to "http://www.bsalsa.com" 18 | 2. In your application, add credits to "Embedded Web Browser" 19 | 3. Mail me (bsalsa@gmail.com) any code change in the unit 20 | for the benefit of the other users. 21 | 4. Please consider donation in our web site! 22 | {*******************************************************************************} -------------------------------------------------------------------------------- /ReadMe_Install.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/ReadMe_Install.txt -------------------------------------------------------------------------------- /Source/CryptFuncDll.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/CryptFuncDll.txt -------------------------------------------------------------------------------- /Source/EWB.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/EWB.dcr -------------------------------------------------------------------------------- /Source/EwbControlComponent.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/EwbControlComponent.pas -------------------------------------------------------------------------------- /Source/EwbDisableFocusControl.pas: -------------------------------------------------------------------------------- 1 | (* 2 | 3 | This unit's purpose is to disable the FocusControl even if Enable_AutoFocusControl 4 | is defined in EWB.inc. 5 | 6 | EwbControl.FocusControl is activated in the initialization section of the 7 | EmbeddedWB unit. 8 | To disable it, put this unit before the first form 9 | unit in your DPR 'uses' clause. 10 | 11 | Example: 12 | 13 | program Project1; 14 | 15 | uses 16 | //.. 17 | EWBDisableFocusControl, 18 | Forms, 19 | Unit1 in 'Unit1.pas' {Form1}; 20 | //.. 21 | 22 | *) 23 | 24 | unit EWBDisableFocusControl; 25 | 26 | interface 27 | 28 | uses 29 | EwbFocusControl; 30 | 31 | implementation 32 | 33 | initialization 34 | EWBEnableFocusControl := False; 35 | 36 | end. 37 | -------------------------------------------------------------------------------- /Source/EwbDisableMouseWheelFix.pas: -------------------------------------------------------------------------------- 1 | (* 2 | 3 | This unit's purpose is to disable the MouseWheelFix even if Enable_AutoMouseWheelFix 4 | is defined in EWB.inc. 5 | 6 | EwbControl.MouseWheelFix is activated in the initialization section of the 7 | EmbeddedWB unit. 8 | To disable it, put this unit before the first form 9 | unit in your DPR 'uses' clause. 10 | 11 | Example: 12 | 13 | program Project1; 14 | 15 | uses 16 | //.. 17 | EwbDisableMouseWheelFix, 18 | Forms, 19 | Unit1 in 'Unit1.pas' {Form1}; 20 | //.. 21 | 22 | *) 23 | 24 | unit EwbDisableMouseWheelFix; 25 | 26 | interface 27 | 28 | uses 29 | EWBMouseHook; 30 | 31 | implementation 32 | 33 | initialization 34 | EWBEnableMouseWheelFix := False; 35 | 36 | end. 37 | -------------------------------------------------------------------------------- /Source/FavMenu.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/FavMenu.pas -------------------------------------------------------------------------------- /Source/FavoritesListView.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/FavoritesListView.pas -------------------------------------------------------------------------------- /Source/FavoritesPopup.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/FavoritesPopup.pas -------------------------------------------------------------------------------- /Source/HighLightHTML.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/HighLightHTML.pas -------------------------------------------------------------------------------- /Source/HistoryListView.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/HistoryListView.pas -------------------------------------------------------------------------------- /Source/HistoryMenu.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/HistoryMenu.pas -------------------------------------------------------------------------------- /Source/IEAddress.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/IEAddress.pas -------------------------------------------------------------------------------- /Source/IECache.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/IECache.pas -------------------------------------------------------------------------------- /Source/IEConst.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/IEConst.pas -------------------------------------------------------------------------------- /Source/IEDownload.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/IEDownload.pas -------------------------------------------------------------------------------- /Source/IEGuid.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/IEGuid.pas -------------------------------------------------------------------------------- /Source/IEParser.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/IEParser.pas -------------------------------------------------------------------------------- /Source/IETravelLog.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/IETravelLog.pas -------------------------------------------------------------------------------- /Source/LibXmlComps.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/LibXmlComps.pas -------------------------------------------------------------------------------- /Source/LibXmlParser.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/LibXmlParser.pas -------------------------------------------------------------------------------- /Source/LinksLabel.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/LinksLabel.pas -------------------------------------------------------------------------------- /Source/OleCtrlsFix.pas: -------------------------------------------------------------------------------- 1 | unit OleCtrlsFix; 2 | 3 | interface 4 | 5 | uses 6 | OleCtrls, Windows, Messages; 7 | 8 | type 9 | TOleControlFix = class(TOleControl) 10 | protected 11 | // procedure WMPaint(var Message: TWMPaint); message WM_PAINT; 12 | function GetIDispatchProp(Index: Integer): IDispatch; 13 | function GetIUnknownProp(Index: Integer): IUnknown; 14 | end; 15 | 16 | implementation 17 | 18 | { TOleControlFix } 19 | 20 | {procedure TOleControlFix.WMPaint(var Message: TWMPaint); 21 | var 22 | PS: TPaintStruct; 23 | begin 24 | if Message.DC = 0 then 25 | begin 26 | BeginPaint(Handle, PS); 27 | EndPaint(Handle, PS); 28 | end; 29 | end; } 30 | 31 | function TOleControlFix.GetIDispatchProp(Index: Integer): IDispatch; 32 | var 33 | Temp: TVarData; 34 | begin 35 | GetProperty(Index, Temp); 36 | // Result := IDispatch(Temp.VDispatch); ***** Change to: 37 | Pointer(Result) := Temp.VDispatch; //this avoids the extra AddRef 38 | end; 39 | 40 | function TOleControlFix.GetIUnknownProp(Index: Integer): IUnknown; 41 | var 42 | Temp: TVarData; 43 | begin 44 | GetProperty(Index, Temp); 45 | // Result := IDispatch(Temp.VUnknown); ***** Change to: 46 | Pointer(Result) := Temp.VUnknown; //this avoids the extra AddRef 47 | end; 48 | end. 49 | 50 | -------------------------------------------------------------------------------- /Source/SecurityManager.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/SecurityManager.pas -------------------------------------------------------------------------------- /Source/UI_Less.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/UI_Less.pas -------------------------------------------------------------------------------- /Source/UrlHistory.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Source/UrlHistory.pas -------------------------------------------------------------------------------- /Source/wbhFixes.pas: -------------------------------------------------------------------------------- 1 | unit wbhFixes; 2 | 3 | interface 4 | 5 | uses 6 | Windows, ActiveX; 7 | 8 | type 9 | {$EXTERNALSYM IServiceProvider} 10 | IServiceProvider = interface(IUnknown) 11 | ['{6d5140c1-7436-11ce-8034-00aa006009fa}'] 12 | function QueryService(const rsid, IID: TGuid; out Obj): HResult; stdcall; 13 | end; 14 | 15 | PServiceProvider = ^IServiceProvider; 16 | {$EXTERNALSYM PServiceProvider} 17 | 18 | type 19 | IDispatch = interface(IUnknown) 20 | ['{00020400-0000-0000-C000-000000000046}'] 21 | function GetTypeInfoCount(out Count: Integer): HResult; stdcall; 22 | function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; 23 | stdcall; 24 | function GetIDsOfNames(const IID: TGUID; Names: Pointer; 25 | NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall; 26 | function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; 27 | Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; 28 | stdcall; 29 | end; 30 | 31 | IDispatchEx = interface(IDispatch) 32 | ['{A6EF9860-C720-11D0-9337-00A0C90DCAA9}'] 33 | function GetDispID(const bstrName: TBSTR; const grfdex: DWORD; 34 | out id: TDispID): HResult; stdcall; 35 | function InvokeEx(const id: TDispID; const lcid: LCID; const wflags: 36 | WORD; const pdp: PDispParams; out varRes: OleVariant; out pei: 37 | TExcepInfo; const pspCaller: PServiceProvider): HResult; stdcall; 38 | function DeleteMemberByName(const bstr: TBSTR; 39 | const grfdex: DWORD): HResult; stdcall; 40 | function DeleteMemberByDispID(const id: TDispID): HResult; stdcall; 41 | function GetMemberProperties(const id: TDispID; const grfdexFetch: 42 | DWORD; out grfdex: DWORD): HResult; stdcall; 43 | function GetMemberName(const id: TDispID; out bstrName: TBSTR): 44 | HResult; stdcall; 45 | function GetNextDispID(const grfdex: DWORD; const id: TDispID; 46 | out nid: TDispID): HResult; stdcall; 47 | function GetNameSpaceParent(out unk: IUnknown): HResult; stdcall; 48 | end; 49 | 50 | implementation 51 | 52 | end. 53 | -------------------------------------------------------------------------------- /Tools/XPThemedBand.zip: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Tools/XPThemedBand.zip -------------------------------------------------------------------------------- /Tools/delphiband102.zip: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Tools/delphiband102.zip -------------------------------------------------------------------------------- /Tools/iehelper.zip: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Tools/iehelper.zip -------------------------------------------------------------------------------- /Tools/urlsearchhook.zip: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ghquant/Delphi-EmbeddedWB/c8c3a2956c609a0b6f35f424bb269401dca6ece2/Tools/urlsearchhook.zip --------------------------------------------------------------------------------