LazActiveX/es: what changed

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

Old	New		Line
1	1		## Resumen
2	2
3	3		El paquete LazActiveX contiene el componente TActiveXContainer y la integración con el IDE de las herramientas necesarias para crear componentes ActiveX desde una librería de tipos o directamente desde el objeto (exe o dll). ActiveX es una tecnología de Microsoft Windows y sólo se puede utilizar en esa plataforma. Compilación cruzada para Windows es posible, pero el importador de librerías de tipos (typelib) para crear los enlaces COM sólo funciona en Windows (no probado en Wine)
4	4
5	5		## Instalación
6	6
7	7		Aviso: LazActiveX necesita FPC \>= 2.6.1. La importación de librerías de tipos sólo funciona en Windows XP o posterior.
8	8
9	9		Desde la opción del menú 'Paquete'/'Instalar/Desinstalar Paquetes ...' en la ventana, seleccionar LazActiveX 0.1, y dar al botón 'Instalar Seleccionado' y después a 'Guardar y Reconstruir el IDE'. Alternativamente, abrir el paquete LazActiveX.lpk y pulsar en 'Usar \>\>'/'Instalar'.
10	10
11	11		Cuando la instalación termine correctamente, una nueva pestaña 'ActiveX' se añade a la paleta de componentes.
12	12
13		-	~~<figure>~~
14		-	~~<img src="LazActiveX-Install1.png" title="LazActiveX-Install1.png" />~~
15		-	~~<figcaption>LazActiveX-Install1.png</figcaption>~~
16		-	~~</figure>~~
	13	+	![](/wiki-images/9/91/LazActiveX-Install1.png)
17	14
18	15		## Utilización
19	16
20	17		Existen 3 maneras diferentes de utilizar los componentes de ActiveX:
21	18
22	19		1. Poner el componente TActiveXContainer en un formulario y asignar el nombre de la clase ActiveX a la propiedad OleClassName. Adecuado para el enlace en tiempo de ejecución ( o tardío) y sin el apoyo directo para eventos.
23	20		2. Importar la biblioteca de tipo ActiveX, poner el componente TActiveXContainer en un formulario, crear una instancia del objeto ActiveX y asignarlo a la propiedad ComServer. Adecuado para el enlace en tiempo de compilación (o temprano) y con el apoyo para eventos.
24	21		3. Crear un nuevo componente desde la librería de tipos o el objeto y poner nuevo componente en el formulario. Esto también utiliza enlace anticipado y tiene soporte completo para eventos. Los controladores de eventos pueden ser asignados desde el IDE.
25	22
26	23		### Enlace tardío de TActiveXContainer
27	24
28	25		Aunque la teoría es bastante compleja, el enlace en tiempo de ejecución (o tardío) es la manera más rápida para crear y ejecutar un componente ActiveX.
29	26
30	27		Por enlace tardío se refiere el hecho de que la interfaz con el objeto se realiza completamente en tiempo de ejecución. Las referencias a objetos se almacenan como dispinterfaces en variables variant y los métodos y propiedades de los objetos se descubren en tiempo de ejecución. El compilador genera toda la magia de tiempo de ejecución para ti, pero el inconveniente es que el compilador no es capaz de ayudar a encontrar los nombres de los métodos o propiedades en tiempo de diseño. Una buena documentación para el objeto ActiveX es muy importante (el código de ejemplo para VB puede ser fácilmente traducido a pascal). Todos los errores en los nombres de método y sus parámetros serán errores en tiempo de ejecución. El descubrimiento en tiempo de ejecución también agregará sobrecarga al proceso.
31	28
32	29		Ejemplo: Embeber el reproductor VLC en un formulario. ¡VLC ha de estar correctamente instalado!
33	30
34	31		- Colocar un TActiveXContainer, un TButton y un TFileNameEdit en un formulario.
35	32
36	33		- Da el tamaño y la posición deseada al componente TActiveXContainer y escribe 'VideoLAN.VLCPlugin.2' en la propiedad OleClassName, pon a verdadera la propiedad Active. Esto dará un formulario similar a este:
37	34
38		-	~~<figure>~~
39		-	~~<img src="LazActiveX-VLC-Form.png" title="LazActiveX-VLC-Form.png" />~~
40		-	~~<figcaption>LazActiveX-VLC-Form.png</figcaption>~~
41		-	~~</figure>~~
	35	+	![](/wiki-images/3/37/LazActiveX-VLC-Form.png)
42	36
43	37		- Crea un evento Onclick para el botón con este código:
44	38
45	39		``` pascal
46	40		procedure TForm1.Boton1Click(Sender: TObject);
47	41		var
48	42		Actx:variant;
49	43		begin
50	44		Actx:=ActiveXContainer1.ComServer;
51	45		Actx.playlist.add(widestring(FileNameEdit1.FileName));
52	46		Actx.playlist.play;
53	47		end;
54	48		```
55	49
56	50		- Ejecuta el programa, selecciona una película y haz clic en el botón para verla. Ten en cuenta que VLC junto con gdb parecen causar algunos problemas (lenta puesta en marcha en el mejor de los casos, se cuelga o se bloquea). Mejor ejecuta el programa fuera del IDE.
57	51
58	52		### Enlace temprano de TActiveXContainer
59	53
60	54		El Enlace temprano permite conocer todos los interfaces al compilador. Así que tenemos que crear los enlaces pascal para el objeto ActiveX. La herramienta importtl.exe en el directorio utils FPC lo hace por ti y crea *coclases* y detectores de eventos para facilitar el uso de los objetos en pascal. Una interfaz gráfica de usuario para la herramienta importtl.exe está integrada con el paquete LazActiveX y es accesible en el menú Herramientas: Import Type Library
61	55
62		-	~~<figure>~~
63		-	~~<img src="LazActiveX-Importtl.png" title="LazActiveX-Importtl.png" />~~
64		-	~~<figcaption>LazActiveX-Importtl.png</figcaption>~~
65		-	~~</figure>~~
	56	+	![](/wiki-images/4/47/LazActiveX-Importtl.png)
66	57
67	58		Marca 'Convert dependent typelibs' para convertir también las librerías de tipos para los objetos COM que son finalmente utilizados por el objeto seleccionado. Al hacer clic en Aceptar, se comenzará la importación de librería de tipos y creará nuevas unidades en el IDE. Las unidades tienen la siguiente nomenclatura: NombreLibreriaVersionMayor_VersionMenor_TLB. Ej: Access_9_0_TLB.
68	59
69	60
70	61		Usuarios Delphi: Los nombres de unidad en Delphi no utilizan los números de versión.
71	62
72	63		La creación de instancias de un objeto ActiveX se realiza en tiempo de ejecución mediante una llamada al método Create para la CoClass apropiado creado para la librería. Algunas librerías ActiveX exponen varios objetos y por tanto se crean múltiples coclases. Consulta la documentación de la librería ActiveX en caso de duda. Asignar el objeto instanciado ActiveX a la propiedad de un ComServer TActiveXContainer en un formulario y establecer la propiedad Active en True es todo lo que se necesita para embeberlo en la aplicación
73	64
74	65		Ejemplo: Embeber el reproductor VLC en un formulario. ¡VLC ha de estar correctamente instalado!
75	66
76	67		- Pon un TActiveXContainer, un TButton y un TFileNameEdit en un formulario. Da el tamaño y la posición deseada al componente TActiveXContainer.
77	68		- Abre 'Import Type Library' desde el menú de herramientas y selecciona 'axvlc.dll' en el directorio de instalación de VLC. Clic OK. Se creará la unidad AXVLC_1_0_TLB.
78	69
79	70		- Añade AXVLC_1_0_TLB a la cláusula uses.
80	71
81	72		- Crea un evento OnClick para el botón y un evento OnCreate para el formulario. Escribe el siguiente código:
82	73
83	74		``` pascal
84	75		var
85	76		VLC:IVLCControl2;
86	77
87	78		procedure TForm1.Button1Click(Sender: TObject);
88	79		begin
89	80		VLC.playlist.add(utf8decode(FileNameEdit1.FileName),'',vararrayof([':aspect-ratio=16:9']));
90	81		VLC.playlist.play;
91	82		end;
92	83
93	84		procedure TForm1.FormCreate(Sender: TObject);
94	85		begin
95	86		VLC:=CoVLCPlugin2.Create;
96	87		ActiveXContainer1.ComServer:=VLC;
97	88		ActiveXContainer1.Active:=true;
98	89		end;
99	90		```
100	91
101	92		- Ejecuta el programa, selecciona una película y pulsa el botón para verla.
102	93
103	94		El importador de tipos de librerías también añade soporte para los eventos que el ActiveX genera. En este caso, junto a la CoClass se define un descendiente de TEventSink para implementar el objeto ActiveX y todas sus propiedades OnEvent. Utiliza el descendiente de TEventSink en lugar de la CoClass si deseas utilizar los eventos. Su nombre empieza con TEvs seguido por el nombre de la clase.
104	95
105	96		Ejamplo: Internet Explorer en un formulario con soporte de eventos.
106	97
107	98		- Pon un a TActiveXContainer, un TButton, un TLabel y un TEdit en un formulario. Da el tamaño y la posición deseada al componente TActiveXContainer.
108	99		- Abre 'Import Type Library' desde le menú Herramientas y selecciona 'C:\WINDOWS\system32\ieframe.dll'. Pulsa OK. Se creará la unidad SHDocVw_1_1_TLB.
109	100		- Añade la unidad SHDocVw_1_1_TLB a la cláusula uses.
110	101		- Crea un evento OnClick para el botón y un evento OnCreate para el formulario.
111	102		- Crea en la clase TForm1 el procedimiento privado OnStatusTextChange(Sender: TObject;Text_:WideString);
112	103		- Escribe este código:
113	104
114	105		``` pascal
115	106		var
116	107		Browser:TEvsWebBrowser;
117	108
118	109		procedure TForm1.Button1Click(Sender: TObject);
119	110		var
120	111		url,onull:Olevariant;
121	112
122	113		begin
123	114		url:=Utf8decode(Edit1.Text);
124	115		onull:=NULL;
125	116		Browser.ComServer.Navigate2(url,onull,onull,onull,onull);
126	117		end;
127	118
128	119		procedure TForm1.FormCreate(Sender: TObject);
129	120		begin
130	121		Browser:=TEvsWebBrowser.Create(Self);
131	122		ActiveXContainer1.ComServer:=Browser.ComServer;
132	123		ActiveXContainer1.Active:=true;
133	124		Browser.OnStatusTextChange:=@OnStatusTextChange;
134	125		end;
135	126
136	127		procedure TForm1.FormDestroy(Sender: TObject);
137	128		begin
138	129		Browser.Free;
139	130		end;
140	131
141	132		procedure TForm1.OnStatusTextChange(Sender: TObject; Text_: WideString);
142	133		begin
143	134		Label1.Caption:=UTF8Encode(Text_);
144	135		end;
145	136		```
146	137
147	138		- Ejecuta el programa, introduce una URL en el control de edición y haz clic en el botón para navegar hasta la dirección URL. Label1 mostrará los mensajes de estado enviados por el navegador.
148	139		- Para acceder al objeto de documento (DOM), tienes que importar también la biblioteca de tipos de C:\WINDOWS\system32\mshtml.tlb y añadir la unidad MSHTML_4_0_TLB creada a la cláusula uses. Para mostrar por ejemplo el contenido de la etiqueta \<body\> de la página descargada, agrega un TMemo y un segundo TButton al formulario y agrega el siguiente código
149	140
150	141		``` pascal
151	142		procedure TForm1.Button2Click(Sender: TObject);
152	143		var Doc: IHTMLDocument2; //defined in MSHTML_4_0_TLB
153	144		begin
154	145		Doc := Browser.ComServer.Document as IHTMLDocument2;
155	146		Memo1.Lines.Text := utf8encode(Doc.parentWindow.document.Get_body.innerHTML);
156	147		end;
157	148		```
158	149
159	150		Ten en cuenta que coclases no se destruye. Como todos los objetos COM tiene un contador de referencias y se destruyen cuando la última referencia está fuera de ámbito. El descendiente TEventSink tiene que ser destruido.
160	151
161	152		### Crear componentes visuales ActiveX desde objetos de librerías de tipos
162	153
163	154		En lugar de utilizar el componente TActiveXContainer directamente la herramienta importtl puede crear descendientes de TActiveXContainer para cada objeto ActiveX incluido en la librería de tipos y crear un paquete lpk. Los descendientes tienen soporte completo para los eventos generados por los objetos. Para crear un paquete con los componentes ActiveX abre el diálogo 'Import Type Library' desde el menú 'Herramientas'. Selecciona la librería a importar, marca 'Create package' y adicionalmente 'Convert dependent typelibs', haz clic en 'OK' para crear el paquete. Se preguntará por un directorio para almacenar el paquete. Instala el nuevo paquete. Después de la reconstrucción de Lazarus encontrarás los nuevos componentes en la pestaña ActiveX de la paleta de componentes.
164	155
165		-	~~<figure>~~
166		-	~~<img src="LazActiveX-Install2.png" title="LazActiveX-Install2.png" />~~
167		-	~~<figcaption>LazActiveX-Install2.png</figcaption>~~
168		-	~~</figure>~~
	156	+	![](/wiki-images/2/21/LazActiveX-Install2.png)
169	157
170	158		Ejemplo: Embeber el reproductor VLC en un formulario. ¡VLC ha de estar instalado correctamente!
171	159
172	160		- Abre 'Import Type Library' desde el menú Herramientas y selecciona 'axvlc.dll' en el directorio de instalación de VLC. Marca 'Create package'. Haz clic en Aceptar. Selecciona un directorio para almacenar el paquete. El paquete AXVLC_1_0_TLBP y todas las unidades necesarias se crearan. Instala el paquete AXVLC_1_0_TLBP y reconstruye el IDE.
173	161		- Pon un TAxcVLCPlugin2 (desde la pestaña de componentes ActiveX), un TButton y un TFileNameEdit en un formulario.
174	162		- Establece TAxcVLCPlugin2.Active en true y cambia el tamaño y la posición de TActiveXContainer a tu gusto.
175	163		- Crea un evento de clic para el botón y escribe:
176	164
177	165		``` pascal
178	166		uses variants;
179	167		...
180	168		procedure TForm1.Button1Click(Sender: TObject);
181	169		begin
182	170		AxcVLCPlugin2_1.OleServer.playlist.add(widestring(FileNameEdit1.FileName,'',vararrayof([':aspect-ratio=16:9']));
183	171		AxcVLCPlugin2_1.OleServer.playlist.play;
184	172		end;
185	173		```
186	174
187	175		- Ejecuta el programa, selecciona una película y haz clic en el botón para verla.
188	176
189	177		Los manejadores de eventos para los componentes se pueden crear directamente desde el Inspector de Objetos. (Nota de la versión 1.1.5.0 de la typelib de la VLC de tipos avisa de los eventos, pero falla al establecer un punto de conexión. Esto parece ser un error en la VLC).
190	178
191	179
192	180		Usuarios Delphi: Delphi crea un esqueleto para todos los métodos y propiedades de los componentes ActiveX, importtl no añade esta capa adicional y los métodos AxctiveX son llamados a través de la propiedad OleServer del componente. Por ejemplo: AxcVLCPlugin2_1.OleServer.playlist.play es el equivalente a VLCPlugin21.playlist.play en Delphi.
193	181
194	182		---
195	183		From the Free Pascal wiki, page "LazActiveX/es", as it stood on 2020-02-18 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