Webbrowser/de: what changed

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

Old	New		Line
1	1		Diese Seite fasst die unterschiedlichen Varianten zusammen, HTML-Seiten von einem Pascal-Programm aus anzuzeigen. Es reicht von "einen externen Browser aufrufen" bis zu "Darstellung einer HTML-Seite im Form".
2	2
3	3		# Einen externen Webbrowser mit einer Seite/URL starten
4	4
5	5		## OpenURL
6	6
7	7		OpenURL ist die einfachste Form eine URL anzuzeigen. Diese Prozedur erkennt den voreingestellten Browser und öffnet eine URL mit den angegebenen Parametern. Sie kann benutzt werden um:
8	8
9	9		- eMail zu senden 'mailto:einname@EineAddresse?subject=:::Betreff'
10	10		- eine Webadresse zu öffnen z.B:'http://'
11	11		- lokale Dateien anzuzeigen'file:///'.
12	12
13	13		``` pascal
14	14		uses LCLIntf;
15	15		...
16	16		OpenURL('http://www.lazarus.freepascal.org');
17	17		```
18	18
19	19		## Den voreingestellten Webbrowser finden
20	20
21	21		Jede Plattform hat ihren eigenen Mechanismuss um den voreingestellten Browser zu definieren. Die LCL-Unit lazhelphtml enthält eine Klasse THTMLBrowserHelpViewer um einen Webbrowser für das LCL-Hilfe-System zu starten. Man kann deren Methode FindDefaultBrowser benutzen um den voreingestellten browser und dessen Startparameter herauszufinden. Zum Beispiel:
22	22
23	23		``` pascal
24	24		uses
25	25		Classes, ..., LCLProc, LazHelpHTML;
26	26
27	27		...
28	28
29	29		implementation
30	30
31	31		procedure TMainForm.Button1Click(Sender: TObject);
32	32		var
33	33		v: THTMLBrowserHelpViewer;
34	34		BrowserPath, BrowserParams: string;
35	35		begin
36	36		v:=THTMLBrowserHelpViewer.Create(nil);
37	37		v.FindDefaultBrowser(BrowserPath,BrowserParams);
38	38		debugln(['Path=',BrowserPath,' Params=',BrowserParams]);
39	39		v.Free;
40	40		end;
41	41		```
42	42
43	43		Unter Ubuntu (Linux) zum Beispiel ergibt diese:
44	44
45		-	~~`Browser=/usr/bin/xdg-open Params=%s`~~
	45	+	```text
	46	+	Browser=/usr/bin/xdg-open Params=%s
	47	+	```
46	48
47	49		Unter Windows:
48	50
49		-	~~`Browser=C:\windows\system32\rundll32.exe Params=url.dll,FileProtocolHandler %s`~~
	51	+	```text
	52	+	Browser=C:\windows\system32\rundll32.exe Params=url.dll,FileProtocolHandler %s
	53	+	```
50	54
51	55		## Start des Browsers
52	56
53	57		Wenn man die Kommandozeile und Parameter für den Browser kennt kann man TProcessUTF8 benutzen um den Browser zu starten:
54	58
55	59		``` pascal
56	60		uses
57	61		Classes, ..., LCLProc, LazHelpHTML, UTF8Process;
58	62
59	63		...
60	64
61	65		implementation
62	66
63	67		procedure TMainForm.Button1Click(Sender: TObject);
64	68		var
65	69		v: THTMLBrowserHelpViewer;
66	70		BrowserPath, BrowserParams: string;
67	71		p: LongInt;
68	72		URL: String;
69	73		BrowserProcess: TProcessUTF8;
70	74		begin
71	75		v:=THTMLBrowserHelpViewer.Create(nil);
72	76		try
73	77		v.FindDefaultBrowser(BrowserPath,BrowserParams);
74	78		debugln(['Path=',BrowserPath,' Params=',BrowserParams]);
75	79
76	80		URL:='http://www.lazarus.freepascal.org';
77	81		p:=System.Pos('%s', BrowserParams);
78	82		System.Delete(BrowserParams,p,2);
79	83		System.Insert(URL,BrowserParams,p);
80	84
81	85		// Browser starten
82	86		BrowserProcess:=TProcessUTF8.Create(nil);
83	87		try
84	88		BrowserProcess.CommandLine:=BrowserPath+' '+BrowserParams;
85	89		BrowserProcess.Execute;
86	90		finally
87	91		BrowserProcess.Free;
88	92		end;
89	93		finally
90	94		v.Free;
91	95		end;
92	96		end;
93	97		```
94	98
95	99		# Eine Webbrowser-Komponente in die Applikation integrieren
96	100
97	101		## Turbopower internet pro-Elemente benutzen
98	102
99	103		Lazarus stellt das Paket TurboPowerIPro (lazarus/components/turbopower_ipro/turbopoweripro.lpk) bereit. Es hat folgende Vorzüge:
100	104
101	105		- Es enthält Steuerelemente für den Form-Designer. Bim installieren in die IDE, erhält man neue Komponenten in der Komponenten-Palette, die man einfach, wie jedes andere LCL-Element benutzen kann.
102	106		- Es ist vollkommen in Pascal geschrieben. Es arbeitet deshalb von Vorn herein platformübergreifend, ohne zusätzlichen Installationsaufwand.
103	107		- Man hat volle Kontrolle, welche Dateien/URLs geöffnet werden.
104	108		- Es hat nicht alle Features eines 'richtigen' Webbrowsers, z.B: Kein Multimedia-Zeug, Javascript oder Flash, dies muß man selbst implementieren.
105	109
106	110		Es exitieren Beispiele in lazarus/components/turbopower_ipro/examples die demonstrieren, wie man eine lokale HTML-Datei mit Bildern anzeigt, Hyperlinks verfolgt mit Historie.
107	111
108	112		## QT Webkit
109	113
110	114		Benutzt man das Qt-WidgetSet (-\> [[Qt Interface]]) kann man auch das Qt-WebKit benutzen um einen Browser in ein LCL-Form zu intrgrieren.
111	115
112	116		Lazarus LCL/Qt WebKit Demo verfügbar auf [FPC Qt4 Binding Web Page](http://users.telenet.be/Jan.Van.hijfte/qtforfpc/fpcqt4.html)
113	117
114	118		## [[THtmlPort]]
115	119
116	120		THtmlPort ist eine Lazarus/Free Pascal Version von Dave Baldwins HTML-Komponenten. Enthalten ist u.a. THtmlViewer, TFrameViewer und TFrameBrowser.
117	121
118	122		## [[fpCEF3]]
119	123
120	124		Chromium Embedded Framework für Free Pascal
121	125
122	126		## [[GeckoPort]]
123	127
124	128		GeckoPort ist eine Lazarus/Free Pascal Version von Takanori Ito's Gecko SDK für Delphi. Enthält u.a. TGeckoBrowser-Komponente.
125	129
126	130		## [[LazActiveX]]
127	131
128	132		Importiert die Internet Explorer Typen-Bibliothek. (nur für Windows)
129	133
130	134		## LazWebKit
131	135
132	136		Webkit für [[GTK2]]
133	137
134	138		[lazwebkit](http://sourceforge.net/p/lazwebkit/wiki/Home/)
135	139
136	140		# Siehe auch
137	141
138	142		- [[Executing External Programs/de]]
139	143		- [[fphttpclient]] Teil der FCL-Web, kann aber auch allein benutzt werden um HTTP-Content zu laden.
140	144
141	145		---
142	146		From the Free Pascal wiki, page "Webbrowser/de", 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