Delphi a html forrás mentését a webbrowserből
Ma megtanuljuk, hogyan mentse a HTML-forrást a TWebBrowser.Document-ről a lemezre. Ez nagyon egyszerűen történik, és úgy gondolom, hogy nehézségek merülnének fel.
Nos, elindultunk, mint mindig, elindítjuk Delphit, és az első dolog, amit meg kell tennünk, hogy befejezzük az ActiveX felhasználási részében. Most továbbhaladunk a formanyomtatványon két gombnyomással (button) a könyvjelző standart-ből. a SaveDialog elemet a Dialog fülön és az internetes fülön található webBrowser összetevőn. Tehát olyan komponensekkel, mint a rendezett
Az első gombon egy onclick eseménykezelőt hozunk létre, és a következő kódot írjuk:
Tehát most menj a csúcsra és közvetlenül a nyilvánosság előtt írj:
eljárás SaveHTMLSourceToFile (const fájlnév sztring; WB: TWebBrowser);
Nyomja meg a Ctrl + Shift + C billentyűkombinációt
És Delphi automatikusan létrehoz egy eljárást, úgy néz ki, mint ez:
TForm1.SaveHTMLSourceToFile eljárás (const FileName. string;
WB: TWebBrowser);
kezdődik
Most írjuk le azokat az intézkedéseket, amelyeket ez az eljárás végrehajt, azaz mentse el az aktuális dokumentumot a webbrowser összetevőben HTML forrásként
TForm1.SaveHTMLSourceToFile eljárás (const FileName. string;
WB: TWebBrowser);
var
PersistStream. IPersistStreamInit;
FileStream. TFileStream;
Áramlat: IStream;
SaveResult. HRESULT;
kezdődik
PersistStream: = WB.Document mint IPersistStreamInit;
FileStream: = TFileStream.Create (FileName.fmCreate);
megpróbál
Stream: = TStreamAdapter.Create (FileStream.soReference) mint IStream;
SaveResult: = PersistStream.Save (adatfolyam, igaz);
ha FAILED (SaveResult), akkor
MessageBox (Handle, "HTML forrás mentése sikertelen", "Error", 0);
végül
FileStream.Free;
végén;
végén;
Ez gyakorlatilag mindössze annyit jelent, hogy létrehoz egy onClick eseménykezelőt a második gombra, és ott regisztrálhat:
ha a SaveDialog1.Execute majd
SaveHTMLSourceToFile (SaveDialog1.FileName, WebBrowser1);
Futtassa a programot, kattintson először az első gombra, várjon addig, amíg a WebBrowser összetevő betölti az oldalt.
Most kattintson a második gombra, és mentse el a betöltött oldalt a Fájlnév mezőben: írja be például a tesztet.