unit Main;
interface
uses
SysUtils, Classes, HTTPApp;
type
TWebModule1 = class(TWebModule)
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
const
SPQAResp =
''#13#10 +
'Hello from a Delphi server
Your zipcode is: %s
'#13#10 +
'Your device ID is: %s
';
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content := Format(SPQAResp, [Request.ContentFields.Values['zip'],
Request.ContentFields.Values['id']]);
end;
end.