[fpc-devel] CGI/Command line/GUI all in one

[Dariusz Mazur]

Gilles MARCOU pisze:
> Hello,
>
> I'm trying to build an interface for a program so that it could be used
> as a command line, a GUI or a CGI. For the CGI, I use powutils 1.7.1,
> FPC 2.2.0 and Lazarus 0.9.24. I mean that the same executable should be
> used either as a CGI, a command line or a GUI.
>
> Currently I have kept separated in different unit each user interface
> (see the code below). But, at execution, if there is an execution error,
> it always open message box. Therefore, even in command line, the
> software requires GUI libraries be there (GTK for instance) and it
> simply does not work as a CGI.
>   
You have to change all automatic initialization of visual components and 
make all linking with  GUI libraries dynamic. That i no easy.
But you can invoke second executable from this console (distribute 2 
file, but always invoke the same)
> Do you see a more clever solution? Otherwise, the only solution I see is
> to keep all three interfaces in separate executable.
>
>   
This is not problem to have separate executable, only have one source to 
both GUI.
I made program which can work as desktop and as web-based (FCGI or 
standalone web server)
Each form is create dynamical in runtime, source is one, but in compile 
time:
1 for desktop: clasic units from LCL (or rather VCL, on windows I use 
Delphi)
2.for web-base different set of units to handle web, but with the same 
API as  VCL

Darek

 

> Thanks in advance,
> Gilles Marcou
>
> program Predictor;
>
> {$mode objfpc}{$H+}
>
> uses
>   {$IFDEF UNIX}{$IFDEF UseCThreads}
>   cthreads,
>   {$ENDIF}{$ENDIF}
>   //{ you can add units after this },
>   Classes, sysutils, UnitRunGUI, UnitRunCMD, UnitRunCGI;
>
> type
>     TRuntype=(CGI,CMD,GUI,UNK);
>
> var
>    cfg: TStringList;
>    rt: TRuntype;
> begin
>   cfg:=TStringList.Create;
>   cfg.LoadFromFile('cfg');
>   rt:=UNK;
>   if (cfg[0]='CGI') then
>      rt:=CGI
>   else if (cfg[0]='CMD') then
>        rt:=CMD
>   else if (cfg[0]='GUI') then
>        rt:=GUI;
>   FreeAndNil(cfg);
>   if (rt=GUI) then
>      RunGUI
>   else if (rt=CMD) then
>        RunCMD
>   else if (rt=CGI) then
>        RunCGI;
> end.
> -------
> unit UnitRunGUI;
>
> {$mode objfpc}{$H+}
>
> interface
>
> uses
>   Classes, SysUtils, Interfaces, Forms, UnitPredictor;
>   
> procedure RunGUI;
>
> implementation
>
> procedure RunGUI;
> begin
>      Application.Initialize;
>      Application.CreateForm(TFormPredictor, FormPredictor);
>      Application.Run;
> end;
>
> end.
> --------
> unit UnitRunCGI;
>
> {$mode objfpc}{$H+}
>
> interface
>
> uses
>   Classes, SysUtils, pwinit, pwmain;
>
> procedure RunCGI;
>
> implementation
>
> procedure RunCGI;
> begin
>      outln('CGI: Not yet supported');
> end;
>
> end.
> --------
> unit UnitRunCMD;
>
> {$mode objfpc}{$H+}
>
> interface
>
> uses
>   Classes, SysUtils; 
>
> procedure RunCMD;
>
> implementation
>
> procedure RunCMD;
> begin
>      writeln('CMD: Not supported yet');
> end;
>
> end.
>  
>
> _______________________________________________
> fpc-devel maillist  -  fpc-devel at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-devel
>
>   


-- 
  Darek