Saglabājiet Web lapu kā HTML vai MHT, izmantojot Delphi

Strādājot ar Delphi, TWebBrowser komponents ļauj jums izveidot pielāgotu Tīmekļa pārlūkošanas lietojumprogramma vai arī lai programmām pievienotu interneta, failu un tīkla pārlūkošanu, dokumentu skatīšanu un datu lejupielādes iespējas.

Kā saglabāt Web lapu no TWebBrowser

Izmantojot Internet Explorer, jums ir atļauts apskatīt lapas avota HTML kodu un saglabāt šo lapu kā failu lokālajā diskā. Ja skatāties lapu, kuru vēlaties paturēt, dodieties uz File / Save As... izvēlnes vienums. Atvērtajā dialoglodziņā tiek piedāvāti vairāki failu tipi. Lapas saglabāšana kā atšķirīgs faila tips ietekmēs lapas saglabāšanas veidu.

Komponentu paletes "Internets" lapā esošais komponents TWebBrowser nodrošina piekļuvi Web pārlūka funkcionalitātei no jūsu Delphi lietojumprogrammas. Parasti vēlaties iespējot Web lapas WebBrowser iekšienē saglabātas HTML lapas saglabāšanu diskā.

Web lapas saglabāšana kā neapstrādātu HTML

Ja vēlaties saglabāt Web lapu tikai kā neapstrādātu HTML, jūs izvēlaties "Web lapa, tikai HTML (* .htm, * .html)". Tas vienkārši saglabās pašreizējās lapas avota HTML jūsu diskā neskartu. Veicot šo darbību, netiks saglabāta lapas grafika vai citi faili, kas tiek izmantoti lapā, kas nozīmē, ka, ielādējot failu atpakaļ no lokālā diska, jūs redzēsit bojātas attēlu saites.

instagram viewer

Tālāk ir norādīts, kā saglabāt Web lapu kā neapstrādātu HTML, izmantojot Delphi kodu:

Lietojuma paraugs:

Piezīmes

  • IPersistStreamInit un IStream saskarnes tiek deklarētas ActiveX vienības iekšpusē.
  • Web lapa tiek saglabāta kā neapstrādāts HTML failā WebBrowser1.html failā C diska saknes mapē.

MHT: tīmekļa arhīvs, atsevišķs fails

Saglabājot Web lapu kā “Web arhīvs, atsevišķs fails (* .mht)”, tīmekļa dokuments tiek saglabāts daudzfunkcionālā interneta pasta paplašinājuma HTML (MHTML) formātā ar .mht faila paplašinājumu. Visas relatīvās saites Web lapā tiek pārtaisītas, un iegultais saturs ir iekļauts .mht failā, nevis jāsaglabā atsevišķā mapē (kā tas ir gadījumā ar “Web lapa, pabeigta (* .htm, * .html) ").

MHTML ļauj nosūtīt un saņemt Web lapas un citus HTML dokumentus, izmantojot e-pasta programmas, piemēram, Microsoft Outlook un Microsoft Outlook Express; vai pat jūsu pielāgotie Delphi e-pasta sūtīšanas risinājumi. MHTML ļauj iegult attēlus tieši e-pasta ziņojumos, nevis pievienot tos ziņojumam.

Tālāk ir norādīts, kā saglabāt Delphi kodu kā vienu failu (MHT formātā):

Parauga izmantošana:

Piezīme

  • _Stream klase ir definēta ADODB_TLB vienībā, kuru jūs, iespējams, jau esat izveidojis. IMessage un IConfiguration interfeisu kods no cdosys.dll bibliotēkas. CDO nozīmē Sadarbības datu objekti - objektu bibliotēkas, kas paredzētas SMTP ziņojumapmaiņas iespējošanai.

CDO_TLB ir Delphi automātiski ģenerēta vienība. Lai to izveidotu, galvenajā izvēlnē atlasiet “Importa veida bibliotēka”, atlasiet “C: \ WINDOWS \ system32 \ cdosys.dll” un pēc tam noklikšķiniet uz pogas “Izveidot vienību”.

Nav TWebBrowser

Jūs varētu pārrakstīt WB_SaveAs_MHT procedūru, lai pieņemtu URL virkni (nevis TWebBrowser), lai varētu tieši saglabāt Web lapu - nav nepieciešams izmantot WebBrowser komponentu. URL no WebBrowser tiek izgūts, izmantojot īpašību WB.LocationURL.