Code: Alles auswählen
program cgiweb;
uses
...
CgiApp;
type
Tcgi = class(TCGIApplication)
procedure DoRun; override;
end;
// Abfrage auswerten
procedure Tcgi.DoRun;
var
list : TStrings;
i : integer;
begin
list := TStringList.Create;
try
if (RequestVariableCount > 0) then // is depracted
begin
GetRequestVarList(list, true); // is depracted
for i := 0 to list.Count - 1 do
begin
... // diverse Abfragen
ContentType := 'text/html; charset=iso-8859-1'; // is depracted
EmitContentType(); // is depracted
... // diverse Ausgaben
end;
end;
finally
Terminate;
end;
end;
// Hauptprogramm
begin
with Tcgi.Create(nil) do // is depracted
try
Title := 'Web';
Initialize; // is depracted
Run;
finally
Free;
end;
end.
Sollte mir das zu denken geben? Die CGIs funktionieren soweit, laut github ist das Projekt Stand 2014.
Ich hab mir auch fcl-web (http://wiki.lazarus.freepascal.org/fcl-web) angesehen, aber bin da nicht durchgestiegen. Ist doch ein ganzes Stück aufwendiger als die CgiApp.
Bevor ich da weitere CGIs baue: Spricht etwas gegen die CgiApp, sollte ich auf fcl-web umsteigen?