If you haven't written http servers before, I think its best to start with the simplest example, so you can see how this stuff actually works. It is kinda fun.
So, start with a simple console server:
program VerySimpleHttpServer;
uses SysUtils, fphttpserver;
type
TMySimpleServer = class(TFPHttpServer)
public
procedure HandleRequest(var ARequest: TFPHTTPConnectionRequest; var AResponse: TFPHTTPConnectionResponse); override;
end;
procedure ShowMe(const AName, AValue: string);
begin
WriteLn(AName, ': ', AValue);
end;
procedure TMySimpleServer.HandleRequest(var ARequest: TFPHTTPConnectionRequest; var AResponse: TFPHTTPConnectionResponse);
begin
inherited;
ShowMe('Method', ARequest.Method);
ShowMe('UserAgent', ARequest.UserAgent);
ShowMe('PathInfo', ARequest.PathInfo);
ShowMe('Query', ARequest.Query);
ShowMe('URL', ARequest.URL);
if Assigned(ARequest.QueryFields) then begin
ShowMe('QueryFields', ARequest.QueryFields.CommaText);
end;
if Assigned(ARequest.ContentFields) then begin
ShowMe('ContentFields', ARequest.ContentFields.CommaText);
end;
with AResponse.Contents do begin
Add('<HTML><BODY>');
Add('<H1>Hello, World!<H1>');
Add('</BODY></HTML>');
AResponse.ContentType := 'text/html';
end;
end;
begin
with TMySimpleServer.Create(nil) do begin
Port := 1234;
WriteLn('Start HTTP Server');
Active := True;
end;
end.
The server binds to port 1234, so run the server and pull up a browser and try these URL's
http://localhost:1234/http://localhost:1234/?apple=orange&lazarus=greathttp://localhost:1234/?date=27/8/22&time=9:40&temp=coldAn example output on the console is:
Start HTTP Server
Method: GET
UserAgent: Mozilla/5.0 (X11; Linux armv7l; rv:91.0) Gecko/20100101 Firefox/91.0
PathInfo:
Query: date=27/8/22&time=9:40&temp=cold
URL: /?date=27/8/22&time=9:40&temp=cold
QueryFields: date=27/8/22,time=9:40,temp=cold
ContentFields:
Method: GET
UserAgent: Mozilla/5.0 (X11; Linux armv7l; rv:91.0) Gecko/20100101 Firefox/91.0
PathInfo: /favicon.ico
Query:
URL: /favicon.ico
QueryFields:
ContentFields:
Its knda fun once you get started. Its just a matter of knowing what data is being sent and where it is stored. But... Adding this to a GUI is another story. The server needs to be threaded, and access to the TForm's controls _must_ be synchronized.
Have fun.
Recent
