Само полезни материали
Основен акционер в Alibaba стана най-богатият човек в Китай
статии
Microsoft започна тестване частен офис 16
статии
Експертите са установили, вратички в Windows 8.1 за сигурност
статии
В метрото в Москва ще бъде единна мобилна мрежа
статии
иБей ще приема Bitcoin
статии
Vivitek въведе "училище" проектор D755WTIR
статии
В Twitter е имало бутона "Купи"
статии
"Yandeks.Novosti" вече могат да се видят на iPhone
статии
Днес ние ще се научим да спаси източника HTML на TWebBrowser.Document на диск. Това се прави много просто и мисля, че трудността с тези пари е трябвало да бъдат вас.
Е, това отидох както обикновено, за да започнете с отворен Delphi и първото нещо, което трябва да направите е да завърши в раздела използва ActiveX. Преминавайки сега хвърлят под формата на два бутона (бутон) с отметки стандартни, SaveDialog компонент маркер Dialog и уеббраузър компонент маркер интернет. Така че с компоненти като разбрах
Създаване на манипулатор събитие (OnClick) на първия бутон и го предписва следния код:
Така че сега да отидем до самия връх, и веднага след публикуват нови мнения:
процедура SaveHTMLSourceToFile (Конст FileName: низ; WB: TWebBrowser);
Натиснете комбинацията от Ctrl + Shift + C
И Delphi генерира автоматично процедура трябва да получите нещо подобно:
процедура TForm1.SaveHTMLSourceToFile (Конст FileName: низ;
WB: TWebBrowser);
започвам
Сега нека да предписва действия, за да се извършва от тази процедура, а именно, тя трябва да се запази отворен в момента документ компонент уеббраузър под формата на HTML код
процедура TForm1.SaveHTMLSourceToFile (Конст FileName: низ;
WB: TWebBrowser);
Var
PersistStream: IPersistStreamInit;
FILESTREAM: TFileStream;
Поток: IStream;
SaveResult: HRESULT;
започвам
PersistStream: = WB.Document като IPersistStreamInit;
FILESTREAM: = TFileStream.Create (FileName, fmCreate);
опитвам
Поток: = TStreamAdapter.Create (FILESTREAM, soReference) като IStream;
SaveResult: = PersistStream.Save (поток, True);
ако Неуспешно (SaveResult) след това
MessageBox (дръжка, "Fail да спаси HTML източник", "Грешка", 0);
накрая
FileStream.Free;
приключи;
приключи;
Това е почти всичко, което се създаде само един манипулатор събитие (OnClick) на втория бутон и да се регистрирате там:
ако SaveDialog1.Execute след това
SaveHTMLSourceToFile (SaveDialog1.FileName, WebBrowser1);
Стартирайте програмата, кликнете първо върху първия бутон, изчакайте, докато компонент уеббраузър зареди страницата.
Сега кликнете върху втория бутон и да спаси заредена страница, в името на файла: въведе такава delphi.txt или expert.html
Това е всичко, за да отговори Delphi Expert.ru
P.S и запомнящо се абонирате за бюлетина.
Свързани статии