* Added BasicAuth support
This commit is contained in:
parent
974c5ef298
commit
5689b89d90
|
@ -151,6 +151,20 @@ begin
|
|||
{$endif}
|
||||
end;
|
||||
|
||||
procedure CmdBasicAuth(AData: String);
|
||||
var
|
||||
separator: Char;
|
||||
i: Integer;
|
||||
begin
|
||||
separator := AData[1];
|
||||
i := 2;
|
||||
while (i < Length(AData)) and (AData[i] <> separator) do
|
||||
Inc(i);
|
||||
|
||||
http.UserName := Copy(AData, 2, i - 2);
|
||||
http.Password := Copy(AData, i + 1, Length(AData));
|
||||
end;
|
||||
|
||||
function ProcessCommand(ALine: String): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
@ -169,6 +183,14 @@ begin
|
|||
Result := True;
|
||||
method := Copy(ALine, 8, Length(ALine));
|
||||
end else
|
||||
// We don't include the space here, since we also interpret this following
|
||||
// char as separator for username and password! (In case the username itself
|
||||
// contains a space.)
|
||||
if AnsiStartsStr('BasicAuth', ALine) then
|
||||
begin
|
||||
Result := True;
|
||||
CmdBasicAuth(Copy(ALine, 10, Length(ALine)));
|
||||
end else
|
||||
if AnsiStartsStr('Call ', ALine) then
|
||||
begin
|
||||
Result := True;
|
||||
|
|
Loading…
Reference in New Issue