pascal
/
fpc
огледало от https://gitlab.com/freepascal.org/fpc/source.git


			
				
					
						
						
							12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667
							program testweb;

{$mode objfpc}{$H+}

uses
  Classes, SysUtils, httpdefs, custcgi,cgiapp,fphttp,fpcgi,
  webutil, fpweb;

Type
  TMyWeb=Class(TCustomCGIApplication)
    procedure HandleRequest(ARequest: TRequest; AResponse: TResponse); override;
  end;

procedure TMyWeb.HandleRequest(ARequest: TRequest; AResponse: TResponse);

  Procedure AddNV(Const N,V : String);

  begin
    AResponse.Contents.Add('<TR><TD>'+N+'</TD><TD>'+V+'</TD></TR>');
  end;

Var
  I,P : Integer;
  N,V : String;

begin
  With AResponse.Contents do
    begin
    BeginUpdate;
    Try
      Add('<HTML><TITLE>FPC CGI Test page</TITLE><BODY>');
      DumpRequest(ARequest,AResponse.Contents);
      Add('<H1>CGI environment:</H1>');
      Add('<TABLE BORDER="1">');
      Add('<TR><TD>Name</TD><TD>Value</TD></TR>');
      For I:=1 to GetEnvironmentVariableCount do
        begin
        V:=GetEnvironmentString(i);
        P:=Pos('=',V);
        N:=Copy(V,1,P-1);
        system.Delete(V,1,P);
        AddNV(N,V);
        end;
      Add('</TABLE>');
      Add('</BODY></HTML>');
    Finally
      EndUpdate;
    end;
    end;
end;

Procedure Run;

begin
  With TMyWeb.Create(Nil) do
    try
      Initialize;
      Run;
    Finally
      Free;
    end;
end;

begin
  Run;
end.