Vytvořte si vlastní internetový prohlížeč - Builder.cz - Informacni server o programovani

Jdeme na to...

    Komponenta TWebBrowser je součástí ovládacího prvku ActiveX Microsoft Internet Controls (u mně ve verzi 1.1). Už z názvu je patrný výrobce komponenty. To, že je v Delphi komponenta, která je použita při tvorbě MSIE má jisté výhody i nevýhody. Nespornou výhodou určije je, že komponenta dokáže zobrazit vše to co MSIE tzn. že umí Javu, Flash a všechny ostatní moderní technologie. Mezi nevýhody patří velká závislost na MSIE. Např. když zavoláte proceduru GoHome, tak se komponenta přesune na stránku, kterou máte v MSIE nastavenou jako domácí.

    Céčkaři mají velkou výhodu, protože mají podporu přímo od MS. Kdybyste si přeci jenom chtěli takový MSIE vytvořit, snad vám pomůže stránka zabývající se touto problematikou (http://www.euromind.com/iedelphi).

    Proč vlastně píši tento článek, když s touto komponentou nemůžete žádný konkurenceschopný prohlížeč vytvořit? Protože pomocí této komponenty nemusíte vytvářet jen internetový prohlížeč. Komponenta TWebBrowser by se mohl hodit do více programů. Namátkou mě napadá off-line verze nekomerčního časopisu (čtenář si stáhne příspěvky odpojí se od internetu a pak si je v klidu off-line prohlídne).

    Teď už opravdu jdeme na to.

    Základní  procedury:

• GoBack - vrátí se na předchozí stránku směrem k domovské
• GoFoward - vrátí se na předchozí stránku směrem k poslední
• GoHome - přejde na domovskou stránku
• Refresh - opětovně načte stránku
• Stop - zastavý načítání stránky
• Navigate() - zobrazí stránku, kterou jsme mu předali jako parametr

    Existují ještě procedury Refresh2 a Navigate2, ale pro náš jednoduchý prohlížeč nám postačí procedury, které jsem vyjmenoval.

    Jako ToolBar jsem v našem exploreru použil komponenty ToolBar97, které popisuje tento článek. Obrázky na tlačítka jsem vybral z MSIE.

    Procedura Navigate() má více modifikací. Nám bohatě postačí ta nejjednodušší, jejíž formální deklarace vypadá takto:

    Každý správný explorer by měl umět otevřít nové okno s akuální stránkou. My to budeme dělat tak, že otevřeme náš explorer fcí ShellExecute() a jako parametr jí předáme aktuální internetovou adresu. Proč takhle složitě, když můžeme otevřít nové oknou třeba z kontextového menu? Protože by se otevřel MSIE a ne náš explorer.

    Takto předáme nové instanci exploreru adresu, která je v ComboBoxu nazvaném AddressCB. A takto parametr převezmeme.

    V pravé části exploreru jste si možná všimli, že jsem tam umístil zelené kolečko. Je to komponenta Shape a slouží k indikaci stavu exploreru. Když explorer pracuje (tzn. načítá stránku), tak je jeho barva červená a když nepracuje, tak má barvu zelenou.

    Náš explorer bude umět táké stránku vytisknout.

    Je to jednoduchý tisk, žádné nastavení kvality tisku. Pro náš příklad dostačující.

    Abychom mohli otevírat i off-line stránky, tak si na formulář umístíme komponentu OpenDialog a obshludu události tlačítka Open v hlavním menu upravíme takto:

    Pak jěště můžeme nastavit filtr pro soubory HTM a HTML.