helloworld fcl-web
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
mspowage · 2016-03-15 17:14

There are 3 directories for an apache service, cgi,fcgi, apache.

This platform is ubuntu/64

All compile Ok as in the readme.txt . However only cgi easily works.
The apache module fails to load via the LoadModule command.

Any idea how to get the query string from the supporting api in fcl-
web ?

----------------------------------------------------------------------
Leledumbo · 2016-03-15 19:10

Quote from: mspowage on March 15, 2016, 06:14:36 pmAny idea how to get
the query string from the supporting api in fcl-web ?
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i {$mode
objfpc}{$H+} uses  Classes, HTTPDefs, fpHTTP, fpWeb, 
fpHTTPApp; type   { THelloWorldModule }   THelloWorldModule =
class(TFPWebModule)    constructor CreateNew(AOwner: TComponent;
Crea]"]>Blockedde: Integer); override;    procedure Request(Sender:
TObject; ARequest: TRequest;      AResponse: TResponse; var Handled:
Boolean);  end; constructor THelloWorldModule.CreateNew(AOwner:
TComponent; Crea]"]>Blockedde: Integer  );begin  inherited
CreateNew(AOwner,Crea]"]>Blockedde);  OnRequest :=
@Request;end; procedure THelloWorldModule.Request(Sender: TObject;
ARequest: TRequest;  AResponse: TResponse; var Handled:
Boolean);begin  AResponse.Content := 'QUERY_STRING: ' +
ARequest.QueryString;  Handled := true;end; begin 
THelloWorldModule.RegisterModule('',true);  Application.Port:=8080; 
Application.Initialize;  Application.Run;end. Request
http://localhost:8080/?query=string in browser / curl / whatever that
understands http request and you will get:
QuoteQUERY_STRING: query=stringdisplayed. The parsed version is in
ARequest.QueryFields. Feel free to read my tutorial.