On Fri, 18 Mar 2016, Marcos Douglas wrote:
Hi Michael,
On Fri, Mar 18, 2016 at 6:00 AM, Michael Van Canneyt
<mich...@freepascal.org> wrote:
As far as I know, the only thing you need to do is create a class that
implements IDispatch. You hardly need a wizard for that, I think ?
Well, using Delphi 7 I click in 'New'>'ActiveX'>'Active Server Object'.
After type the "CoClass Name" -- TFooClass for example -- and choose
some parameters, the IDE creates:
1. An unit contents a pre-implementation of my class:
uses
ComObj, ActiveX, AspTlb, Project1_TLB, StdVcl;
type
TFooClass = class(TASPObject, IFooClass)
protected
procedure OnEndPage; safecall;
procedure OnStartPage(const AScriptingContext: IUnknown); safecall;
end;
2. A file like "project_TLB.pas" that have, between others things:
IFooClass = interface;
IFooClassDisp = dispinterface;
...
CoFooClass = class
class function Create: IFooClass;
class function CreateRemote(const MachineName: string): IFooClass;
end;
...
class function CoFooClass.Create: IFooClass;
begin
Result := CreateComObject(CLASS_FooClass) as IFooClass;
end;
class function CoFooClass.CreateRemote(const MachineName: string): IFooClass;
begin
Result := CreateRemoteComObject(MachineName, CLASS_FooClass) as IFooClass;
end;
3. An "wizard" to insert new methods to simplify, I think, and a
"Text" is created on demand like that:
FooClass = coclass(IFooClass [default] )
[ uuid '{E984E6AF-C43A-4B34-BF96-E03B43AC6A3E}',
version 1.0,
helpstring 'FooClass Object' ];
But I don't know if is relevant... anyway.
So, how an new FPC programer should know these things to make a ActiveX?
By studying ActiveX maybe ?
I could be wrong, but I don't think just implement IDispatch is enough, do you?
Maybe I was a bit short on details in my reply :-)
Yes, you can of course write a wizard that does all this.
It's just generating text, after all.
Michael.
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
