Login to secured website programmatically

  

I have setup the help for my Firemonkey app on a password-secured website hosted by site44.com.

Passing the password as part of the URL doesn’t work with certain browsers because they consider it insecure. So I tried the following code. This doesn’t work either. Function Login returns the login HTML of the website but does not actually log me in. Can you tell me where my code is wrong?

procedure TMyMainForm.OnlineHelp1Execute(Sender: TObject);
function Login: string;
var
IdHTTP: TIdHTTP;
Request: TStringList;
Response: TMemoryStream;
begin
Result := ”;
try
Response := TMemoryStream.Create;
try
Request := TStringList.Create;
try
Request.Add(‘password=mypassword’);
IdHTTP := TIdHTTP.Create;
try
IdHTTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
IdHTTP.AllowCookies := True;
IdHTTP.HandleRedirects := False;
IdHTTP.Post(‘https://mysite.site44.com/’, Request, Response);
Result := IdHTTP.Get(‘https://mysite.site44.com/’);
finally
IdHTTP.Free;
end;
finally
Request.Free;
end;
finally
Response.Free;
end;
except
on E: Exception do
ShowMessage(E.Message);
end;
end;

begin
ShowMessage(Login);
end;

Comments are closed.