Webbrowser/es: what changed

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

Title: Webbrowser/es

New		Line
1	+	Esta página resume varios modos para mostrar páginas HTML desde un programa pascal, que van desde llamar a un navegador externo hasta la adición de un componente capaz de mostrar una página html en un formulario.
2	+
3	+	# Iniciando un navegador web para mostrar una página desde su URL
4	+
5	+	## OpenURL
6	+
7	+	OpenURL es el modo más simple para abrir cualquier URL. Este procedimiento detecta el navegador por defecto del sistema y abre la URL colocado en su único parámetro. See puede usar con direcciones de correo electrónico con el siguiente formato 'mailto:UnNombre@UnDominio?subject=:::Es asunto', con las direcciones web con este formato 'http://' y para archivos locales con este otro 'file:///'.
8	+
9	+	``` pascal
10	+	uses LCLIntf;
11	+	...
12	+	OpenURL('http://www.lazarus.freepascal.org');
13	+	```
14	+
15	+	## Encontrando el navegador por defecto del sistema
16	+
17	+	Cada plataforma tiene un mecanismo para localizar el navegador predeterminado.La unidad lazhelphtml de la LCL dispone de la clase THTMLBrowserHelpViewer para ejecutar el navegador web para el subsistema de ayuda de las LCL. Usaremos el método FindDefaultBrowser para hallar el navegador web predeterminado y el parámetro de inicio. Por ejemplo:
18	+
19	+	``` pascal
20	+	uses
21	+	Classes, ..., LCLProc, LazHelpHTML;
22	+
23	+	...
24	+
25	+	implementation
26	+
27	+	procedure TMainForm.Button1Click(Sender: TObject);
28	+	var
29	+	v: THTMLBrowserHelpViewer;
30	+	BrowserPath, BrowserParams: string;
31	+	begin
32	+	v:=THTMLBrowserHelpViewer.Create(nil);
33	+	v.FindDefaultBrowser(BrowserPath,BrowserParams);
34	+	debugln(['Ruta=',BrowserPath,' Parámetros=',BrowserParams]);
35	+	v.Free;
36	+	end;
37	+	```
38	+
39	+	En Ubuntu (Linux) este nos daría:
40	+
41	+	` Ruta=/usr/bin/xdg-open Parámetros=%s`
42	+
43	+	En Windows obtendríamos:
44	+
45	+	` Ruta=C:\windows\system32\rundll32.exe Parámetros=url.dll,FileProtocolHandler %s`
46	+
47	+	## Iniciando un navegador
48	+
49	+	Una vez sabemos la línea de comandos y los parámetros usaremos TProcessUTF8 para lanzar el navegador:
50	+
51	+	``` pascal
52	+	uses
53	+	Classes, ..., LCLProc, LazHelpHTML, UTF8Process;
54	+
55	+	...
56	+
57	+	implementation
58	+
59	+	procedure TMainForm.Button1Click(Sender: TObject);
60	+	var
61	+	v: THTMLBrowserHelpViewer;
62	+	BrowserPath, BrowserParams: string;
63	+	p: LongInt;
64	+	URL: String;
65	+	BrowserProcess: TProcessUTF8;
66	+	begin
67	+	v:=THTMLBrowserHelpViewer.Create(nil);
68	+	try
69	+	v.FindDefaultBrowser(BrowserPath,BrowserParams);
70	+	debugln(['Ruta=',BrowserPath,' Parámetros=',BrowserParams]);
71	+
72	+	URL:='http://www.lazarus.freepascal.org';
73	+	p:=System.Pos('%s', BrowserParams);
74	+	System.Delete(BrowserParams,p,2);
75	+	System.Insert(URL,BrowserParams,p);
76	+
77	+	// start browser
78	+	BrowserProcess:=TProcessUTF8.Create(nil);
79	+	try
80	+	BrowserProcess.CommandLine:=BrowserPath+' '+BrowserParams;
81	+	BrowserProcess.Execute;
82	+	finally
83	+	BrowserProcess.Free;
84	+	end;
85	+	finally
86	+	v.Free;
87	+	end;
88	+	end;
89	+	```
90	+
91	+	# Integrando un componente navegador web en la aplicación
92	+
93	+	## Usando el control "Turbopower Internet pro"
94	+
95	+	Lazarus provee el paquete TurboPowerIPro (lazarus/components/turbopower_ipro/turbopoweripro.lpk) con las siguientes características:
96	+
97	+	- Dispone de un control para colocar en el formulario. Al instalar el paquete en el IDE, conseguimos algunos componentes nuevos en la paleta, que puedes colocar en un formulario como cualquier control de la LCL.
98	+	- Está escrito completamente en pascal y por lo tanto funciona en todas las plataformas sin ninguna instalación adicional.
99	+	- Tienes el control total, sobre que archivos/URLs se abren.
100	+	- No dispone de todas las características de un navegador web completo. No hay multimedia, javascript o flash. Si lo quieres tienes que implementarlo tú.
101	+
102	+	Hay algunos ejemplos en lazarus/components/turbopower_ipro/examples que demuestran cómo abrir un archivo HTML local con algunas imágenes, hipervínculos y botones de historial.
103	+
104	+	## QT Webkit
105	+
106	+	Si utilizamos Qt WidgetSet, hacemos uso de Qt WebKit para embeber el navegador en un formulario LCL.
107	+
108	+	[Lazarus LCL/Qt WebKit Demo](http://users.telenet.be/Jan.Van.hijfte/qtforfpc/lclwebkit.zip) disponible en [Free Pascal Qt4 Binding](http://users.telenet.be/Jan.Van.hijfte/qtforfpc/fpcqt4.html)
109	+
110	+	## THtmlPort
111	+
112	+	[[THtmlPort]] es una versión Lazarus/Free Pascal del componente HTML de Dave Baldwin, incluye *THtmlViewer, TFrameViewer'' y*TFrameBrowser''.
113	+
114	+	## GeckoPort (v2)
115	+
116	+	[[GeckoPort version2\|GeckoPort]] es una versión Lazarus/Free Pascal del SDK Gecko para Delphi de Takanori It, incluye el componente *TGeckoBrowser*.
117	+
118	+	# Ver también
119	+
120	+	- [[Executing External Programs/es\|Ejecutar programas externos]]
121	+
122	+	---
123	+	From the Free Pascal wiki, page "Webbrowser/es", 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