numai materiale utile
Acționarul principal al Alibaba a devenit cel mai bogat om din China
Articole
Microsoft a început testarea închisă a Office 16
Articole
Experții au găsit găuri de securitate în Windows 8.1
Articole
În metroul din Moscova va fi o rețea mobilă unificată
Articole
eBay va accepta Bitcoin
Articole
Vivitek a prezentat proiectorul "școală" D755WTIR
Articole
Butonul "Cumpărați" a apărut pe Twitter
Articole
"Yandex.News" poate fi acum vizualizat pe iPhone
Articole
Astăzi vom învăța cum să salvați sursa HTML din TWebBrowser.Document pe disc. Acest lucru se face foarte simplu și cred că nu trebuie să apară dificultăți în acest sens.
Ei bine, haideți să mergem, ca întotdeauna, deschidem mai întâi Delphi și primul lucru pe care trebuie să-l facem este să-l terminăm în secțiunea utilizări a ActiveX. Deplasând acum, aruncăm pe formular două butoane (buton) din marcajul standard, componenta SaveDialog din fila Dialog și componenta webBrowser din fila Internet. Deci, cu componente cum ar fi sortate
Creăm un handler de evenimente onclick pe primul buton și în care scriem următorul cod:
Deci, acum du-te la început și imediat după ce publicul scrie:
procedura SaveHTMLSourceToFile (const FileName: string; WB: TWebBrowser);
Apăsați combinația de taste Ctrl + Shift + C
Și Delphi generează automat o procedură, ar trebui să arate cam așa:
procedura TForm1.SaveHTMLSourceToFile (const FileName: string;
WB: TWebBrowser);
începe
Acum, să notăm acțiunile pe care această procedură le va efectua, și anume să salveze documentul curent în componenta webbrowser ca sursă HTML
procedura TForm1.SaveHTMLSourceToFile (const FileName: string;
WB: TWebBrowser);
var
PersistStream: IPersistStreamInit;
FileStream: TFileStream;
Stream: IStream;
SaveResult: HRESULT;
începe
PersistStream: = WB.Document ca IPersistStreamInit;
FileStream: = TFileStream.Create (FileName, fmCreate);
încerca
Stream: = TStreamAdapter.Create (FileStream, soReference) ca IStream;
SaveResult: = PersistStream.Save (Stream, True);
dacă este FAILED (SaveResult) atunci
MessageBox (Handle, 'Fără salvarea sursei HTML', 'Eroare', 0);
în cele din urmă
FileStream.Free;
se încheie;
se încheie;
Asta e practic ceea ce este nevoie este doar să creezi un handler de evenimente onClick pe al doilea buton și să te înregistrezi acolo:
dacă SaveDialog1.Execute atunci
SaveHTMLSourceToFile (SaveDialog1.FileName, WebBrowser1);
Rulați programul, faceți clic mai întâi la primul buton, așteptați până când componenta WebBrowser încarcă pagina.
Faceți clic pe cel de-al doilea buton și salvați pagina încărcată, în câmpul Nume fișier: tastați de ex. Delphi.txt sau expert.html
Asta este, înainte de a întâlni Delphi Expert.ru
P.S Da, și este de neuitat să vă abonați la newsletter.