Jump to content

Como pasar un projecto standalone a isapi


tsaavedra

Recommended Posts

  • 2 weeks later...

Hola tssavedra,

 

Si te fijas en el fuente del proyecto dice lo siguiente:

 

 

 

{$define UNIGUI_VCL} // Comment out this line to turn this project into an ISAPI module'
 
{$ifndef UNIGUI_VCL}
library
{$else}
program
{$endif}

 

fijate que solo tienes que comentar la primera linea que dice {$define UNIGUI_VCL} para convertir tu proyecto en ISAPI, asi de simple.

 

Saludos

 

Rafael Liriano

Link to comment
Share on other sites

  • 4 months later...

Yo lo utilizo de esta forma!

 

{$IFDEF APACHE}
library SebaotWeb;
{$ELSE}
program SebaotWeb;
{$ENDIF}

uses
{$IFDEF SERVICE}
  SvcMgr,
  ServiceModule in 'ServiceModule.pas' {UniServiceModuleCP: TUniGUIService},
{$ELSE}
  {$IFDEF APACHE}
  uniGUIISAPI,
  {$ELSE}
  Forms,
  {$ENDIF}
{$ENDIF}
  ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule},
  MainModule in 'MainModule.pas' {UniMainModule: TUniGUIMainModule},
  Principal in 'Principal.pas' {frmPrincipalSebaotWeb: TUniForm},
.

.

.

 

{$R *.res}

 

{$IFDEF APACHE}
exports
  GetExtensionVersion,
  HttpExtensionProc,
  TerminateExtension;
{$ELSE}
begin
  {$IFDEF SERVICE}
  if not Application.DelayInitialize or Application.Installing then
    Application.Initialize;
  Application.Title := 'Sebaot Web';
  Application.CreateForm(TUniServiceModuleCP, UniServiceModuleCP);
  {$ELSE}
  Application.Initialize;
  TUniServerModule.Create(Application);
  Application.Title := 'Sebaot Web';
  {$ENDIF}
  Application.Run;
{$ENDIF}
end.

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...