Webbrowser/ru: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		# Запуск веб-браузера для просмотра страницы/адреса
2	2
3	3		## OpenURL
4	4
5	5		OpenURL — это простейший способ открыть URL. Эта процедура определит, какой программой адрес должен быть открыт по умолчанию, и откроет в ней указанный URL. Она может использоваться для адресов вида 'mailto:aname@AnAddress?subject=:::A subject line', веб-адресов вида 'http://' и адресов файлов в виде 'file:///'.
6	6
7	7		``` pascal
8	8		uses LCLIntf;
9	9		...
10	10		OpenURL('http://www.lazarus.freepascal.org');
11	11		```
12	12
13	13		## Определение браузера, используемого по умолчанию
14	14
15	15		Для каждой платформы существует свой механизм, позволяющий определять программы, используемые по умолчанию. Модуль LCL lazhelphtml содержит класс THTMLBrowserHelpViewer, позволяющий запускать веб-браузер для просмотра справки LCL. Можно использовать его (класса THTMLBrowserHelpViewer) метод FindDefaultBrowser, чтобы определить браузер, используемый по умолчанию, и запустить его. Далее пример:
16	16
17	17		``` pascal
18	18		uses
19	19		Classes, ..., LCLProc, LazHelpHTML;
20	20
21	21		...
22	22
23	23		implementation
24	24
25	25		procedure TMainForm.Button1Click(Sender: TObject);
26	26		var
27	27		v: THTMLBrowserHelpViewer;
28	28		BrowserPath, BrowserParams: string;
29	29		begin
30	30		v:=THTMLBrowserHelpViewer.Create(nil);
31	31		v.FindDefaultBrowser(BrowserPath,BrowserParams);
32	32		debugln(['Path=',BrowserPath,' Params=',BrowserParams]);
33	33		v.Free;
34	34		end;
35	35		```
36	36
37	37		В Убунту (Linux) вы можете получить, как пример:
38	38
39		-	~~`Browser=/usr/bin/xdg-open Params=%s`~~
	39	+	```text
	40	+	Browser=/usr/bin/xdg-open Params=%s
	41	+	```
40	42
41	43		В Windows:
42	44
43		-	~~`Browser=C:\windows\system32\rundll32.exe Params=url.dll,FileProtocolHandler %s`~~
	45	+	```text
	46	+	Browser=C:\windows\system32\rundll32.exe Params=url.dll,FileProtocolHandler %s
	47	+	```
44	48
45	49		## Запуск браузера
46	50
47	51		Если вы знаете, что такое командная строка и параметры, вы можете использовать класс TProcessUTF8, чтобы запустить браузер:
48	52
49	53		``` pascal
50	54		uses
51	55		Classes, ..., LCLProc, LazHelpHTML, UTF8Process;
52	56
53	57		...
54	58
55	59		implementation
56	60
57	61		procedure TMainForm.Button1Click(Sender: TObject);
58	62		var
59	63		v: THTMLBrowserHelpViewer;
60	64		BrowserPath, BrowserParams: string;
61	65		p: LongInt;
62	66		URL: String;
63	67		BrowserProcess: TProcessUTF8;
64	68		begin
65	69		v:=THTMLBrowserHelpViewer.Create(nil);
66	70		try
67	71		v.FindDefaultBrowser(BrowserPath,BrowserParams);
68	72		debugln(['Path=',BrowserPath,' Params=',BrowserParams]);
69	73
70	74		URL:='http://www.lazarus.freepascal.org';
71	75		p:=System.Pos('%s', BrowserParams);
72	76		System.Delete(BrowserParams,p,2);
73	77		System.Insert(URL,BrowserParams,p);
74	78
75	79		// запуск браузера
76	80		BrowserProcess:=TProcessUTF8.Create(nil);
77	81		try
78	82		BrowserProcess.CommandLine:=BrowserPath+' '+BrowserParams;
79	83		BrowserProcess.Execute;
80	84		finally
81	85		BrowserProcess.Free;
82	86		end;
83	87		finally
84	88		v.Free;
85	89		end;
86	90		end;
87	91		```
88	92
89	93		# Использование компонента turbopower internet pro
90	94
91	95		Lazarus предоставляет пакет TurboPowerIPro (lazarus/components/turbopower_ipro/turbopoweripro.lpk), который имеет следующие возможности:
92	96
93	97		- Содержит компоненты, которые можно поместить на форму. Когда вы установите пакет в IDE, появятся несколько новых компонентов на палитре (панели компонентов), которые можно бросить на форму, также, как и другие компоненты LCL.
94	98		- Он полностью написан на паскале, и будет работать на всех платформах "из коробки" без каких-либо дополнительных манипуляций.
95	99		- Вы получите полный контроль над тем, какие файлы/адреса будут открываться.
96	100		- Все-таки у него меньше возможностей, чем у полноценного веб-браузера. Не умеет проигрывать мультимедийные данные, использовать ява-скрипт или flash. Эти функции должны быть добавлены вами.
97	101
98	102		Можно найти несколько примеров в lazarus/components/turbopower_ipro/examples, демонстрирующих как открывать локальный html-файл с изображениями, гиперссылками и кнопками истории посещений.
99	103
100	104		# QT Webkit
101	105
102	106		Если вы используете набор визуальных компонентов Qt, то вы сможете использовать Qt Webkit для того, чтобы вставить браузер в LCL-форму. Lazarus LCL/Qt WebKit доступен по адресу [1](http://users.telenet.be/Jan.Van.hijfte/qtforfpc/fpcqt4.html).
103	107
104	108		# THtmlPort
105	109
106	110		THtmlPort - это версия HTML-компонентов, разработанных Дэйвом Болдуином, для Lazarus/Free Pascal, включает THtmlViewer, TFrameViewer и TFrameBrowser. [THtmlPort вики](http://wiki.lazarus.freepascal.org/THtmlPort)
107	111
108	112		# GeckoPort
109	113
110	114		GeckoPort - это адаптированная для Lazarus/Free Pascal версия Gecko SDK, разработанного Таканори Ито для Delphi, включая компонент TGeckoBrowser.
111	115
112	116		[GeckoPort вики](http://wiki.lazarus.freepascal.org/GeckoPort)
113	117
114	118		## [[LazActiveX]]
115	119
116	120		Импортированная библиотека объектов Internet Explorer.
117	121
118	122		## LazWebKit
119	123
120	124		Webkit для GTK2 [lazwebkit](http://sourceforge.net/p/lazwebkit/wiki/Home/)
121	125
122	126		# See also
123	127
124	128		- [[Executing External Programs]]
125	129
126	130		---
127	131		From the Free Pascal wiki, page "Webbrowser/ru", as it stood on 2020-03-04 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history