Сборник лабораторных работ по дисциплине "Прикладное программное обеспечение". Самохвалов К.М. - 37 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

37
if Document <> nil then
Memo1.Text :=
(Document.all.Item(NULL, 0) as IHTMLElement).OuterHTML;
end;
Как получить текст HTML документа из TWebBrowser без тегов?
uses
..., MSHTML, ActiveX;
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://decoding.narod.ru');
end;
procedure GetHtmlCode(WebBrowser: TWebBrowser; FileName: string);
var
htmlDoc: IHtmlDocument2;
PersistFile: IPersistFile;
begin
htmlDoc := WebBrowser.document as IHtmlDocument2;
PersistFile := HTMLDoc as IPersistFile;
PersistFile.Save(StringToOleStr(FileName), true);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetHtmlCode(WebBrowser1, 'C:\HTMLDoc.txt'); end;
Содержание задания:
Создать и протестировать программу, реализующую вывод информации о
курсе валюты на выбранную пользователем дату. Для получения информа-
ции о курсе валюты на любую дату использовать любой доступный web-
ресурс, например, http://conv.rbc.ru/convert.shtm. Вид
валюты выбирается из

Страницы