paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 03:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Set global CustomApplication variable

Browse Source 
git-svn-id: trunk@14795 -
This commit is contained in:
joost 2010-01-24 15:10:48 +00:00
parent 5b1e713e5b
commit ac7c145c04
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-web/src/fpcgi.pp
View File

@ -32,10 +32,13 @@ Var
Implementation Implementation
uses CustApp;
Procedure InitCGI; Procedure InitCGI;
begin begin
Application:=TCGIApplication.Create(Nil); Application:=TCGIApplication.Create(Nil);
CustomApplication:=Application;
end; end;
Procedure DoneCGI; Procedure DoneCGI;