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ăm acum pe formularul cu două butoane (buton) din standartul marcajelor. 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:
procedură SaveHTMLSourceToFile (const Numele de fișier; șir; 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: introduceți, de exemplu, testul.