I have imported full picgoto tbl to my project and tried to run the application as com server but any client tested was able to connect.
I dont know what I´m doing wrong because inicialization code works fine for delphi but seems to have no effect on FPC
PicgotoPlusfi.pas initialization section
initialization
CoInitializeex(nil, COINIT_APARTMENTTHREADED);
//RegisterThySelf;
TAutoObjectFactory.Create(ComServer,TpgtFocuser, Class_Focuser,
ciSingleInstance, tmApartment);
end.
program PicgotoPlus;
{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
uses
{$IFNDEF FPC}
{$ELSE}
Interfaces,
{$ENDIF}
Forms,comserv,
PicGoto in 'PicGoto.pas' {Main},
serial in 'serial.pas',
ptool in 'ptool.pas',
setupfrm in 'setupfrm.pas' {SetupDialogForm},
PicgotoPlus_TLB in 'PicgotoPlus_TLB.pas',
PicgotoPlusfi in 'PicgotoPlusfi.pas'{Focuser: CoClass},
PicgotoPlusi in 'PicgotoPlusi.pas' {Telescope: CoClass},
telescope in 'telescope.pas',
PicgotoPLusWi in 'PicgotoPLusWi.pas' {Filter: CoClass},
align in 'align.pas',
picplus in 'picplus.pas';
{$R *.TLB}
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TMain, Main);
Application.Run;
end.
It possible to do what i trying (build a exe COM server /automation object) in Lazarus or must I built my application as Active X control ?