Отображение HTML на экранной форме - История изменений

SYSDBA в 12:55, 12 декабря 2011

2011-12-12T12:55:51Z

SYSDBA в 11:14, 12 декабря 2011

2011-12-12T11:14:49Z

SYSDBA в 07:29, 8 декабря 2011

2011-12-08T07:29:20Z

SYSDBA в 17:56, 7 декабря 2011

2011-12-07T17:56:03Z

SYSDBA в 17:55, 7 декабря 2011

2011-12-07T17:55:21Z

SYSDBA в 17:52, 7 декабря 2011

2011-12-07T17:52:16Z

SYSDBA в 17:50, 7 декабря 2011

2011-12-07T17:50:47Z

SYSDBA в 17:50, 7 декабря 2011

2011-12-07T17:50:38Z

SYSDBA в 17:49, 7 декабря 2011

2011-12-07T17:49:32Z

SYSDBA: Новая страница: «Для отображения HTML странички следует воспользоваться компонентом TWebBrowser. Создадим чистую…»

2011-12-07T17:48:38Z

Новая страница: «Для отображения HTML странички следует воспользоваться компонентом TWebBrowser. Создадим чистую…»

Новая страница

Для отображения HTML странички следует воспользоваться компонентом TWebBrowser. Создадим чистую форму и расположем на ней два компонента:

# usrg_WB типа TWebBrowser
# usrg_Btn типа TButton

Напишем обработчик события OnClick для кнопки usrg_Btn:

<sourcehighlight lang="vbnet">
Option Explicit
Sub usrg_BtnOnClick(ByVal Sender)

Dim WB, Doc
Set WB = Sender.OwnerForm.GetComponent("usrg_WB")
Set Doc = WB.Document

Doc.Body.InnerHTML = _
"<h1>Привет из Гедымина!</h1><p/><img src=""http://gsbelarus.com/gs/images/gs/2007/d6.jpg"" />"

End Sub
</sourcehighlight>

По нажатию на кнопку в поле веб браузера будет отображаться фраза "Привет из Гедымина!" и загружаться изображения с сайта компании Golden Software.

[[Category:Документация]]
[[Category:Учебный курс]]

← Предыдущая		Версия 12:55, 12 декабря 2011
Строка 29:		Строка 29:

	По нажатию на кнопку в поле веб браузера отобразится фраза "Привет из Гедымина!" и загрузится изображение с сайта компании Golden Software.		По нажатию на кнопку в поле веб браузера отобразится фраза "Привет из Гедымина!" и загрузится изображение с сайта компании Golden Software.
		+
		+	Обратите внимание, что через свойство Body мы получаем доступ только к тегу BODY документа. Для определения своих стилей необходимо использовать метод CreateStyleSheet как показано на примере ниже.
		+
		+	<syntaxhighlight lang="vbnet">
		+	Option Explicit
		+	Sub usrg_BtnOnClick(ByVal Sender)
		+
		+	Const READYSTATE_COMPLETE = 4
		+
		+	Dim WB, Doc, SS
		+	Set WB = Sender.OwnerForm.GetComponent("usrg_WB")
		+
		+	WB.Navigate "about:blank", null, null, null, null
		+	While WB.ReadyState < READYSTATE_COMPLETE
		+	Application.ProcessMessages
		+	WEnd
		+
		+	Set Doc = WB.Document
		+
		+	Set SS = Doc.CreateStyleSheet("", 0)
		+	SS.cssText = "body {background-color:#d0e4fe;}"
		+
		+	Doc.Body.InnerHTML = _
		+	"<h1>Привет из Гедымина!</h1><p/><img src=""http://gsbelarus.com/gs/images/gs/2007/d6.jpg"" width=""200"" />"
		+
		+	End Sub
		+	</syntaxhighlight>

	====См. также====		====См. также====

@@ Строка 1: / Строка 1: @@
-Для отображения HTML странички следует воспользоваться компонентом TWebBrowser. Создадим чистую форму и расположем на ней два компонента:
+Для отображения HTML странички следует воспользоваться компонентом '''TWebBrowser'''. Создадим чистую форму и расположем на ней два компонента:
-# usrg_WB типа TWebBrowser
+# '''usrg_WB''' типа '''TWebBrowser'''
-# usrg_Btn типа TButton
+# '''usrg_Btn''' типа '''TButton'''
-Напишем обработчик события OnClick для кнопки usrg_Btn:
+Напишем обработчик события '''OnClick''' для кнопки '''usrg_Btn''':
 <syntaxhighlight lang="vbnet">
@@ Строка 20: / Строка 20: @@
 </syntaxhighlight>
-По нажатию на кнопку в поле веб браузера будет отображаться фраза "Привет из Гедымина!" и загружаться изображения с сайта компании Golden Software.
+По нажатию на кнопку в поле веб браузера отобразится фраза "Привет из Гедымина!" и загрузится изображение с сайта компании Golden Software.
 ====См. также====

@@ Строка 25: / Строка 25: @@
 * [http://docwiki.embarcadero.com/VCL/en/SHDocVw.TWebBrowser TWebBrowser]
-* [http://docwiki.embarcadero.com/VCL/en/Controls.TButton TButton]
+* [http://docwiki.embarcadero.com/VCL/en/StdCtrls.TButton TButton]
 [[Category:Документация]]
 [[Category:Учебный курс]]

← Предыдущая		Версия 17:49, 7 декабря 2011
Строка 15:		Строка 15:

	Doc.Body.InnerHTML = _		Doc.Body.InnerHTML = _
−	~~"<h1>Привет из Гедымина!</h1><p/><img src=""http://gsbelarus.com/gs/images/gs/2007/d6.jpg"" />"~~

	End Sub		End Sub

@@ Строка 9: / Строка 9: @@
 Option Explicit
 Sub usrg_BtnOnClick(ByVal Sender)
    Dim WB, Doc
    Set WB = Sender.OwnerForm.GetComponent("usrg_WB")
    Set Doc = WB.Document

@@ Строка 15: / Строка 15: @@
    Doc.Body.InnerHTML = _
-     "<h1>Привет из Гедымина!</h1><p/><img src=""http://gsbelarus.com/gs/images/gs/2007/d6.jpg"" />"
+     "<h1>Привет из Гедымина!</h1><p/><img src=""http://gsbelarus.com/gs/images/gs/2007/d6.jpg"" width=""200"" />"
 End Sub

← Предыдущая		Версия 17:50, 7 декабря 2011
Строка 15:		Строка 15:

	Doc.Body.InnerHTML = _		Doc.Body.InnerHTML = _
		+	"<h1>Привет из Гедымина!</h1><p/><img src=""http://gsbelarus.com/gs/images/gs/2007/d6.jpg"" />"

	End Sub		End Sub