paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 13:36:17 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
components/fpweb/weblazideintf.pp
View File

@ -304,22 +304,50 @@ begin
+'{$mode objfpc}{$H+}'+le +'{$mode objfpc}{$H+}'+le
+le +le
+'uses'+le +'uses'+le
+' Classes,SysUtils,httpDefs,custcgi;'+le +' Classes, SysUtils, httpDefs, fpweb,'
{$ifndef VER2_4}
+' custweb, custcgi;'+le
{$else}
+' custcgi;'+le
{$endif}
+le +le
+'Type'+le +'Type'+le
+' TCGIApp = Class(TCustomCGIApplication)'+le {$ifndef VER2_4}
+' TMyCGIHandler = Class(TCgiHandler)'+le
+' Public'+le +' Public'+le
+' Procedure HandleRequest(ARequest : Trequest; AResponse : TResponse); override;'+le +' Procedure HandleRequest(ARequest : Trequest; AResponse : TResponse); override;'+le
+' end;'+le +' end;'+le
+le +le+le
+'Procedure TCGIApp.HandleRequest(ARequest : Trequest; AResponse : TResponse);'+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 +le
+'begin'+le +'begin'+le
+' // Your code here'+le +' // Your code here'+le
+'end;'+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 +le
+'begin'+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 +' try'+le
+' Initialize;'+le +' Initialize;'+le
+' Run;'+le +' Run;'+le