Išsaugokite tinklalapį kaip HTML arba MHT naudodami „Delphi“

Kai dirbate su Delphi, „TWebBrowser“ komponentas leidžia jums sukurti pritaikytą Žiniatinklio naršymo programa arba norėdami į savo programas įtraukti interneto, failų ir tinklo naršymo, dokumentų peržiūros ir duomenų atsisiuntimo galimybes.

Kaip išsaugoti tinklalapį iš „TWebBrowser“

Kai naudojate „Internet Explorer“, jums leidžiama peržiūrėti šaltinio HTML kodą ir išsaugoti tą puslapį kaip failą vietiniame diske. Jei žiūrite puslapį, kurį norite išlaikyti, eikite į failą / išsaugoti kaip... meniu punktas. Atsidariusiame dialogo lange siūlomi keli failų tipai. Puslapio išsaugojimas kaip kito tipo failas turės įtakos puslapio išsaugojimo būdams.

„TWebBrowser“ komponentas (esantis komponentų paletės „Internetas“ puslapyje) suteikia prieigą prie interneto naršyklės funkcijų iš jūsų „Delphi“ programos. Paprastai norėsite įgalinti tinklalapio, rodomo „WebBrowser“ viduje, kaip HTML failo, išsaugojimą diske.

Tinklalapio išsaugojimas kaip neapdorotą HTML

Jei norite išsaugoti tinklalapį tik kaip neapdorotą HTML, pasirinkite „Tinklalapis, tik HTML (* .htm, * .html)“. Tai tiesiog sugadins dabartinio puslapio šaltinio HTML į diską. Šis veiksmas neišsaugos grafikos iš puslapio ar kitų jame naudojamų failų, tai reiškia, kad jei įkėlėte failą iš vietinio disko, pamatysite sugadintas vaizdo nuorodas.

instagram viewer

Štai kaip išsaugoti tinklalapį kaip neapdorotą HTML naudojant „Delphi“ kodą:

Naudojimo pavyzdys:

Pastabos

  • „IPersistStreamInit“ ir „IStream“ sąsajos deklaruojamos „ActiveX“ įrenginio viduje.
  • Tinklalapis išsaugomas kaip neapdorotas HTML failas „WebBrowser1.html“ faile, esančiame C disko šakniniame aplanke.

MHT: interneto archyvas, vienas failas

Kai išsaugote tinklalapį kaip „Žiniatinklio archyvas, vienas failas (* .mht)“, žiniatinklio dokumentas išsaugomas daugiafunkcinio interneto pašto plėtinio HTML (MHTML) formatu su .mht failo plėtiniu. Visos santykinės nuorodos tinklalapyje yra perdarytos, o įterptasis turinys įtraukiamas į .mht failą, užuot išsaugotas atskirame aplanke (kaip yra „Tinklalapis, baigtas (* .htm, * .html) “).

MHTML suteikia galimybę siųsti ir gauti tinklalapius ir kitus HTML dokumentus naudojantis el. Pašto programomis, tokiomis kaip „Microsoft Outlook“ ir „Microsoft Outlook Express“; ar net jūsų pasirinktinius „Delphi“ el. pašto siuntimo sprendimus. MHTML suteikia galimybę įterpti vaizdus tiesiai į savo el. Pašto žinučių rinkinį, o ne pridėti juos prie pranešimo.

Štai kaip išsaugoti tinklalapį kaip vieną failą (MHT formatu) naudojant „Delphi“ kodą:

Pavyzdžio naudojimas:

Pastaba

  • _Stream klasė yra apibrėžta ADODB_TLB rinkinyje, kurį jūs tikriausiai jau sukūrėte. IMessage ir IConfiguration sąsajų kodas iš cdosys.dll bibliotekos. CDO reiškia „Collaboration Data Objects“ - objektų bibliotekas, skirtas įgalinti SMTP pranešimus.

CDO_TLB yra „Delphi“ automatiškai sugeneruotas vienetas. Norėdami jį sukurti, pagrindiniame meniu pasirinkite „Import Type Library“, pasirinkite „C: \ WINDOWS \ system32 \ cdosys.dll“, tada spustelėkite mygtuką „Sukurti vienetą“.

Nėra „TWebBrowser“

Galite perrašyti „WB_SaveAs_MHT“ procedūrą, kad priimtumėte URL eilutę (ne „TWebBrowser“), kad galėtumėte tiesiogiai išsaugoti tinklalapį - nereikia naudoti „WebBrowser“ komponento. URL iš „WebBrowser“ nuskaitomas naudojant „WB.LocationURL“ nuosavybę.