转帖个给你吧,挺简单的:
How can I convert my stand alone application to ISAPI in Delphi?
Lets take the Guess demo as an example:
program Guess;
uses
IWInitStandAlone, Main in 'Main.pas' {formMain: TIWFormModuleBase},
ServerController in 'ServerController.pas' {IWServerController: TDataModule};
{$R *.res}
begin
IWRun(TFormMain, TIWServerController);
end.
Change the program clause to library.
Chage IWInitStandAlone in the uses clause to IWInitISAPI.
Your project file should now look like this:
library Guess;
uses
IWInitISAPI, Main in 'Main.pas' {formMain: TIWFormModuleBase},
ServerController in 'ServerController.pas' {IWServerController: TDataModule};
{$R *.res}
begin
IWRun(TFormMain, TIWServerController);
end.