Como pasar un projecto standalone a isapi

[tsaavedra]

Hola, tengo una aplicacion de prueba en unigui que funciona en win32 y como standalone , como una vez depurada la pasa a ISAPI para apache sin hacerla de nuevo desde el principio , que opcion hay que tocar...gracias

[Marlon Nardi]

There is documentation on the official UniGui that explains you how to do this on:

 

IIS 5

IIS 6

IIS 7

 

and

 

Apache 2.2

 

http://unigui.com/resources/online-documentation

[gpaulino]

GENERALMENTE YO LO QUE HAGO ES QUE CREO OTRA PROJECTO PERO ESTE ES ISAPI Y A ESTE LE AGREGO TODOS LOS FORMULARIOS DEL MODULO STANDANALONE, COMPILO Y LISTO.

 

ESPERO QUE TE SIRVA, CUALQUIR DUDA ME INFORMA.

[rasaliad]

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

[Darth Florus]

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.