Devart Forums

Code: Select all

//
// Used instead of onsubmit Javacode in Reportprograms.
// This program takes the submittet reportname and convert it to
// CGI program Name and posts the other submittet variabels to
// that program.
//
unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, HTTPApp, Db, MemDS, DBAccess,
  MyAccess;

type
  TWebModule1 = class(TWebModule)
    MyConnection1: TMyConnection;
    MyQuery1: TMyQuery;
    procedure WebModule1WebActionItem1Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WebModule1: TWebModule1;

implementation

{$R *.DFM}

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  Query: TStrings;
  Report, CGI, Vars: string;
  QueryNo: byte;
begin
  try
    Query := TStringList.Create;
    Query.AddStrings(Request.ContentFields); // POST variables
    Query.AddStrings(Request.QueryFields); // GET variables
    Report := Trim(Query.Values['Report']);
    CGI := 'Reports.exe';
    if Report  '' then
    begin
      // Query is written in the MyQuery1.SQL parameter under the object inspector:
      // SELECT cgi FROM webpages WHERE menuid="Reports1" AND displayname=&Report LIMIT 2
      // LIMIT 2 returns MyQuery1.RecordCount = 2 if more than one CGI exsist. Should be only one.
      MyQuery1.MacroByName('Report').Value := '"' + Report + '"';
      MyQuery1.Execute;
      MyQuery1.First;
      if MyQuery1.RecordCount = 1 then
        CGI := MyQuery1['cgi'];
      if not FileExists(CGI) then
        CGI := '../deniedinfo.htm';
    end;
    Vars    := '';
    QueryNo := 0;
    while QueryNo  '' then
      Vars[1] := '?'; // Makes the first char "?"
  finally
    FreeAndNil(Query);
    Response.SendRedirect(CGI+Vars);
  end;
end;

end.