paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 09:09:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed Custom CGI application generation for 2.5.1

Browse Source 
git-svn-id: trunk@30322 -
This commit is contained in:
michael 2011-04-16 14:23:59 +00:00
parent ce8a4be282
commit a63a06a10c
1 changed files with 33 additions and 5 deletions

38
components/fpweb/weblazideintf.pp
View File

@ -304,22 +304,50 @@ begin
+'{$mode objfpc}{$H+}'+le
+le
+'uses'+le
+' Classes,SysUtils,httpDefs,custcgi;'+le
+' Classes, SysUtils, httpDefs, fpweb,'
{$ifndef VER2_4}
+' custweb, custcgi;'+le
{$else}
+' custcgi;'+le
{$endif}
+le
+'Type'+le
+' TCGIApp = Class(TCustomCGIApplication)'+le
{$ifndef VER2_4}
+' TMyCGIHandler = Class(TCgiHandler)'+le
+' Public'+le
+' Procedure HandleRequest(ARequest : Trequest; AResponse : TResponse); override;'+le
+' end;'+le
+le
+'Procedure TCGIApp.HandleRequest(ARequest : Trequest; AResponse : TResponse);'+le
+le+le
+' TMyCGIApp = Class(TCustomCGIApplication)'+le
+' Protected'+le
+' function InitializeWebHandler: TWebHandler; override;'+le
+' end;'+le
+le+le
+'Procedure TMyCGIHandler.HandleRequest(ARequest : Trequest; AResponse : TResponse);'+le
+le
+'begin'+le
+' // Your code here'+le
+'end;'+le
+le+le
+'Function TMyCGIApp.InitializeWebHandler: TWebHandler; '+le
+'begin'+le
+' Result:=TMyCgiHandler.Create(self);'+le
+'end;'+le
{$else VER2_4}
+' TMyCGIApp = Class(TCustomCGIApplication)'+le
+' Protected'+le
+' Procedure HandleRequest(ARequest : Trequest; AResponse : TResponse); override;'+le
+' end;'+le
+le+le
+'Procedure TMyCGIApp.HandleRequest(ARequest : Trequest; AResponse : TResponse);'+le
+le
+'begin'+le
+' With TCGIApp.Create(Nil) do'+le
+' // Your code here'+le
+'end;'+le
{$endif VER2_4}
+le+le
+'begin'+le
+' With TMyCGIApp.Create(Nil) do'+le
+' try'+le
+' Initialize;'+le
+' Run;'+le