Extraer datos de una pagina en java que tiene clave (sabiendo la clave claro) ;)

[kalimocho]

Os comento mis progresos a ver si os animais a participar.

Buscando y buscando ya he encontrado la forma de que se autentifique y conecte, el problema como me temía es que al ser en java (jsp+javascript), el navegar por la pagina desde delphi es algo asi como un infierno.

Necesito que alguien me de una pista de donde leer para saber el siguiente paso que debo dar, con eso me conformo, ¿desde delphi puedo navegar por una pagina de este tipo?

¿como manejo cosas como popups para seleccion de perfil por ejemplo?

¿Se puede hacer de otra forma? Usando TWebBrowser por ejemplo con navegacion automatica a traves de Delphi (no tengo ni idea de si realmente se puede).

El codigo que he encontrado:

procedure TForm1.Button3Click(Sender: TObject);
var
SSLIO: TidSSLIOHandlerSocket;
UseSSL: boolean;
HTTP: TIdHTTP;
THURL: string;

begin

UseSSL := true;
THURL := 'https://servidor.con.clave/jsp/index.jsp';

Http := TIdHTTP.Create(nil);
Http.Request.Username := 'usuario';
Http.Request.Password := 'clave';


try

Http.HTTPOptions := [hoInProcessAuth];
Http.HandleRedirects := true;
Http.AuthRetries := 1; //you should not need more

if UseSSL then begin
SSLIO := TidSSLIOHandlerSocket.Create(Http);
Http.IOHandler := SSLIO;
SSLIO.SSLOptions.Method := sslvTLSv1; // or sslvSSLv23 (version 2 or 3 auto)
// if you are using ssl then you can use basic authentication as it will be encrypted.
// in fact you have to because by default idhttp uses non basic and SSL breaks it.
Http.Request.BasicAuthentication := true;
end;

memo1.lines.text := http.get(THURL);

finally

if http.ResponseCode = 401 then
showmessage('Authorisation required!');
if UseSSL then SSLIO.Free;
Http.Free;
end;
end;