Difference between revisions of "LazActiveX"

From Free Pascal wiki
Jump to navigationJump to search
(category)
Line 91: Line 91:
  
 
=== Creating visual ActiveX components from type libraries or objects ===
 
=== Creating visual ActiveX components from type libraries or objects ===
 +
 +
[[Category:Components]]

Revision as of 11:07, 15 April 2012

Overview

The LazActiveX package contains the TActiveXContainer component and the IDE integration of the necessary tools to create ActiveX components from a type library or directly from the object (exe or dll). ActiveX is a Microsoft Windows technology and can only be used on that platform. Cross compilation to windows is possible but the typelib importer used to create the COM bindings works only on Windows (wine not tested).

Installing

WARNING: LazActiveX needs FPC >= 2.6.1. Importing type libraries only works on Windows XP or newer.

From the 'Package'/'Install/Uninstall Packages ...' window, select LazActiveX 0.1, click 'Install Selected' and then 'Save and Rebuild IDE'. Alternatively, open the LazActiveX.lpk package and click on 'Use >>'/'Install'.

When the installation succeeds, a new 'ActiveX' tab is added to you component palette.

LazActiveX-Install1.png

Usage

There are 3 different ways of using ActiveX components:

  1. drop the TActiveXContainer on a form and assign the ActiveX ClassName to the OleClassName property. Suitable for late binding and without direct event support.
  2. import the ActiveX type library, drop the TActiveXContainer on a form, instantiate the ActiveX object and assign it to the ComServer property. Suitable for early binding and with event support.
  3. create a new component from the type library or the object and drop that new component on the form. This also uses early binding and has full event support. Event handlers can be assigned from the IDE.

TActiveXContainer late binding

Although the theory is quite complex, late binding is the fastest way to get an ActiveX component running.

Late binding refers to the fact that the interfacing to the object is all done at run-time. References to objects are stored as dispinterfaces in variants and the methods and properties of the objects are "discovered" at run-time. The compiler generates all the run-time magic for you but the downside is that the compiler isn't able to help you in finding the names of methods or properties at design time. Good documentation for the ActiveX object is very important (sample code for VB can easily be translated to pascal). All errors in method names and their parameters are run-time errors. The run-time "discovery" is also adding quite some overhead.

Example: Embed VLC player in a form. VLC has to be installed !!

- Drop a TActiveXContainer, a TButton and a TFileNameEdit on a form.

- Resize and position TActiveXContainer to your liking and enter 'VideoLAN.VLCPlugin.2' as OleClassName, set Active to true. This will give a form that resembles the following:

LazActiveX-VLC-Form.png

- create an Onclick event for the button and enter

procedure TForm1.Button1Click(Sender: TObject);
var
  Actx:variant;
begin
  Actx:=ActiveXContainer1.ComServer;
  Actx.playlist.add(widestring(FileNameEdit1.FileName));
  Actx.playlist.play;
end;

- Run the program, select a movie and click the button to view the movie. Note that vlc and gdb seem to cause some problems (slow start-up in the best case, hangs or crashes). Run the program preferably outside the IDE.

TActiveXContainer early binding

Early binding means that all interfaces are known to the compiler. So we need to create the pascal bindings for the ActiveX object. The importtl.exe tool in the fpc utils directory does that for you and creates coclasses and event listeners to facilitate the use of the objects in pascal. A GUI for the importtl.exe tool is integrated with the LazActiveX package and is accessible in the Tools menu: Import Type Library.

LazActiveX-Importtl.png

Check 'Convert dependent typelibs' to convert also the typelibs for the COM objects that are eventually used by the selected object. Clicking OK will start the typelib import and create new units in the IDE. The units have the following naming: LibraryName_MajorVersion_MinorVersion_TLB. Ex: Access_9_0_TLB.

Delphi users: Delphi unit naming does not use version numbers.

Instantiating an ActiveX object is done at run-time by calling the Create method for the appropriate CoClass created for the library. Some ActiveX libraries expose several objects and multiple CoClasses are created. Consult the documentation for the ActiveX library in case of doubt. Assigning the instantiated ActiveX object to the ComServer property of an TActiveXContainer on a form and setting it's active property to true is all that is needed to embed it in the application.

Example: Embed VLC player in a form. VLC has to be installed !!

- Drop a TActiveXContainer, a TButton and a TFileNameEdit on a form. Resize and position TActiveXContainer to your liking

- Open 'Import Type Library' from the tools menu and select 'axvlc.dll' in your VLC installation directory. Click OK. The AXVLC_1_0_TLB unit is created.

- Add AXVLC_1_0_TLB to the uses clause.

- Create an OnClick event for the button and an OnCreate event for the form. Enter the following code:

var
  VLC:IVLCControl2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  VLC.playlist.add(utf8decode(FileNameEdit1.FileName),'',vararrayof([':aspect-ratio=16:9']));
  VLC.playlist.play;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  VLC:=CoVLCPlugin2.Create;
  ActiveXContainer1.ComServer:=VLC;
  ActiveXContainer1.Active:=true;
end;

Creating visual ActiveX components from type libraries or objects