david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
33 lines
872 B
ObjectPascal
33 lines
872 B
ObjectPascal
library MegaDemoISAPI;
|
|
|
|
{#ROGEN:MegaDemoLibrary.rodl} // RemObjects: Careful, do not remove!
|
|
|
|
uses
|
|
ActiveX,
|
|
ComObj,
|
|
WebBroker,
|
|
ISAPIApp,
|
|
MegaDemoISAPIMain in 'MegaDemoISAPIMain.pas' {MegaDemoISAPIMainForm: TROWebModule},
|
|
MegaDemoLibrary_Intf in 'MegaDemoLibrary_Intf.pas',
|
|
MegaDemoLibrary_Invk in 'MegaDemoLibrary_Invk.pas',
|
|
MegaDemoService_Impl in 'MegaDemoService_Impl.pas' {MegaService: TDARemoteService};
|
|
|
|
{$R *.RES}
|
|
{$R RODLFile.RES} // RemObjects: Careful, do not remove!
|
|
|
|
{
|
|
Important note: if you have Delphi 6 you should add the unit ISAPIThreadPool to the above list
|
|
}
|
|
|
|
exports
|
|
GetExtensionVersion,
|
|
HttpExtensionProc,
|
|
TerminateExtension;
|
|
|
|
begin
|
|
CoInitFlags := COINIT_MULTITHREADED;
|
|
Application.Initialize;
|
|
Application.CreateForm(TMegaDemoISAPIMainForm, MegaDemoISAPIMainForm);
|
|
Application.Run;
|
|
end.
|