Mentse a html forrást a twebbrowserből
csak hasznos anyagok
Alibaba fő részvényese lett Kína leggazdagabb embere
Cikkek
A Microsoft elindította az Office 16 zárt tesztelését
Cikkek
A szakértők biztonsági réseket találtak a Windows 8.1-ben
Cikkek
A moszkvai metró egy egységes mobilhálózat lesz
Cikkek
Az eBay elfogadja a Bitcoint
Cikkek
Vivitek bemutatta az "iskolai" projektort D755WTIR
Cikkek
A "Vásárlás" gomb megjelent a Twitteren
Cikkek
A "Yandex.News" mostantól megtekinthető az iPhone-on
Cikkek
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, hogy elment a szokásos módon indul nyitott Delphi, és az első dolog, amit meg kell tennie, hogy befejezni a szakaszt használ ActiveX. Áttérve most dobja formájában két gomb (gomb) könyvjelzők standart, SaveDialog alkatrész könyvjelző Dialog és webböngésző alkatrész könyvjelző interneten. 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: string; 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:
eljárás TForm1.SaveHTMLSourceToFile (const Fájlnév: 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
eljárás TForm1.SaveHTMLSourceToFile (const Fájlnév: string;
WB: TWebBrowser);
var
PersistStream: IPersistStreamInit;
FileStream: TFileStream;
Áramlat: IStream;
SaveResult: HRESULT;
kezdődik
PersistStream: = WB.Document mint IPersistStreamInit;
FileStream: = TFileStream.Create (Fájlnév, 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: pl. Delphi.txt vagy expert.html
Ez az, mielőtt találkoztam a Delphi Expert.ru-val
P.S Igen, és felejthetetlen feliratkozni a hírlevélre.