HTTP server application
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
Imants · 2015-03-20 07:42

I am building HTTP server application and I have question how can I
make basic authorization?

My request is like this:
procedure TForm1.Button1Click(Sender: TObject);
var
  FStream: TMemoryStream;
begin
  FStream := TMemoryStream.Create;
  with TFPHttpClient.Create(Self) do
  try
    UserName:= 'test';
    Password := 'test';
    Get('http://localhost:8080/resources/images/get?id=application-
exit-4.png', FStream);
    FStream.Position := 0;
    Image1.Picture.LoadFromStream(FStream)
  finally
    Free;
    FStream.Free
  end;
end; 

I want to know what I need to do in

procedure TwmResources.DataModuleRequest(Sender: TObject; ARequest:
TRequest;
  AResponse: TResponse; var Handled: Boolean);
begin

end;

to receive user name and password.

----------------------------------------------------------------------
Leledumbo · 2015-03-20 08:09

http://svn.freepascal.org/svn/fpc/trunk/packages/fcl-
web/examples/combined/