library Project1;uses
ActiveX,
ComObj,
WebBroker,
ISAPIThreadPool,
ISAPIApp,
IDemoImpl in 'IDemoImpl.pas',
IDemoIntf in 'IDemoIntf.pas',
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {WebModule2: TWebModule},
Unit3 in 'Unit3.pas' {DataModule3: TDataModule};{$R *.res}exports
GetExtensionVersion,
HttpExtensionProc,
TerminateExtension;begin
CoInitFlags := COINIT_MULTITHREADED;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TWebModule2, WebModule2);
Application.CreateForm(TDataModule3, DataModule3); //屏蔽后正常,否则无法访问
Application.Run;
end
ActiveX,
ComObj,
WebBroker,
ISAPIThreadPool,
ISAPIApp,
IDemoImpl in 'IDemoImpl.pas',
IDemoIntf in 'IDemoIntf.pas',
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {WebModule2: TWebModule},
Unit3 in 'Unit3.pas' {DataModule3: TDataModule};{$R *.res}exports
GetExtensionVersion,
HttpExtensionProc,
TerminateExtension;begin
CoInitFlags := COINIT_MULTITHREADED;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TWebModule2, WebModule2);
Application.CreateForm(TDataModule3, DataModule3); //屏蔽后正常,否则无法访问
Application.Run;
end
Application.CreateForm(TDataModule3, DataModule3);
应该在函数里写,我试了正常!