[fpc-pascal] support for using an activex

[Ludo Brands]

The following delphi articles should help creating an event sink:

http://www.informit.com/articles/article.aspx?p=130494&seqNum=5  This is an
interesting one since it is written for Delphi 3-4 which missed a lot of the
automated COM handling. This is much closer to where fpc is now. 

http://www.blong.com/Conferences/IConUK2000/DelphiMoreAutomation/More%20Auto
mation%20In%20Delphi.htm#HandcraftedEventSink

A good intruduction to connectable objects:
http://www.gtro.com/delphi/comevents_e.php

Ludo


-----Message d'origine-----
De : fpc-pascal-bounces at lists.freepascal.org
[mailto:fpc-pascal-bounces at lists.freepascal.org] De la part de Roberto
Padovani
Envoyé : mardi 24 mai 2011 11:24
À : FPC-Pascal users discussions
Objet : Re: RE : RE : [fpc-pascal] support for using an activex


Thanks a lot!
I've been able to create the object and connect to my device.. and even
reading some strings! This FPC + ActiveX stuff is really cool.

> Don't know if your ActiveX sends events that you want to catch. 
> Creating "event sinks" is relatively complex.
>

Yes, the most important thing is fired as an event. So, at least, I have to
try that...

> Com reference information can be found here: 
> http://msdn.microsoft.com/en-us/library/ms221375.aspx
>

Basically, I didn't understand anything over there. Probably I should read a
lot more of docs, but also the content organization is not clear to me.

Does anyone have a code example of this "event sinking" ?

Thanks anyway,

  Roberto


> Ludo
>
>
> -----Message d'origine-----
> De : fpc-pascal-bounces at lists.freepascal.org
> [mailto:fpc-pascal-bounces at lists.freepascal.org] De la part de Roberto 
> Padovani Envoyé : lundi 23 mai 2011 15:07
> À : FPC-Pascal users discussions
> Objet : Re: RE : [fpc-pascal] support for using an activex
>
>
> Wow, this sound like good news!
>
> The activex I have is not visual; it is "simply" a class that creates 
> a thread in which a physical device is controlled through a serial 
> port, with a particular protocol. The class then has methods like 
> "Open channel", "Read Mesaure", and so on.
>
> Is there any documentation I can read? I think I have to translate 
> some header files to understand the exchanged data...or shall I use 
> only variant ? I suppose I have to change   MSWord :=
> CreateOleObject('Word.Application');   into something related to my
> class; where do I discover the "name.surname" ?
>
> Thanks all!
>
>
> 2011/5/23 Ludo Brands <ludo.brands at free.fr>:
>> If the activex is not a visual control that you want to put on a LCL 
>> form you can use CreateOleObject. Note that you don't load ActiveX 
>> dll's directly. ActiveX objects are registered in Windows by the 
>> installer or manually with Regsvr32.exe. Windows loads the ddl for 
>> you when you call CreateOleObject. Ole components are reference 
>> counted and released when not used anymore.
>>
>> Here is a simple sample program when you have MS Word installed.
>>
>>
>> program Project1;
>>
>> {$mode objfpc}{$H+}
>>
>> uses
>>  {$IFDEF UNIX}{$IFDEF UseCThreads}
>>  cthreads,
>>  {$ENDIF}{$ENDIF}
>>  Classes
>>  { you can add units after this }
>>  ,sysutils,ComObj;
>>
>> {$R *.res}
>>
>> var
>>  MSWord,WordDoc,WordPara: Variant;
>> begin
>>  MSWord := CreateOleObject('Word.Application');
>>  MSWord.Visible:=true;
>>  WordDoc := MSWord.Documents.Add;
>>  WordDoc.Activate;
>>  WordPara := WordDoc.Content.Paragraphs.Add;
>>  WordPara.Range.Text := 'Hello World!';
>>  WordDoc.SaveAs('C:\Test.Doc');
>>  Sleep(10000);
>>  WordDoc.Close(False);
>>  MSWord.Quit;
>>  MSWord := Unassigned;
>>  WordDoc := Unassigned;
>>  WordPara := Unassigned;
>> end.
>>
>>
>>
>> -----Message d'origine-----
>> De : fpc-pascal-bounces at lists.freepascal.org
>> [mailto:fpc-pascal-bounces at lists.freepascal.org] De la part de 
>> Roberto Padovani Envoyé : lundi 23 mai 2011 12:24 À : FPC-Pascal 
>> users discussions Objet : [fpc-pascal] support for using an activex
>>
>>
>> Hi List!
>>
>> I looked around the archives and forum, but I didn't come up with a 
>> clear answer. Besides, I'm not expert of the win32 and COM world.
>>
>> If I am given an ActiveX, with source code included, is it possible 
>> to using from a freepascal / lazarus app like any other dll? I mean 
>> loading the dll, instantiating the object and calling some methods.
>>
>> If so, can anyone point me to some documentation or example?
>>
>> Thanks a lot,
>>
>>  Roberto
>> _______________________________________________
>> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org 
>> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>>
>> _______________________________________________
>> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org 
>> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>>
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org 
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org 
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
_______________________________________________
fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal