automatyczne logowanie :: 4programmers.net

Witam , robie program do logowania sie na strone , o to moj kod :

procedure TForm1.Button3Click(Sender: TObject);
var data: TIdMultiPartFormDataStream;
begin
strona2.Navigate('https://www.bossa.pl/');
sleep(500); application.ProcessMessages;sleep(500); application.ProcessMessages;
sleep(500); application.ProcessMessages;sleep(500); application.ProcessMessages;
sleep(500); application.ProcessMessages;sleep(500); application.ProcessMessages;
 try
    data := TIdMultiPartFormDataStream.Create;
    data.AddFormField('user',user.Text);
    data.AddFormField('pin',pin.Text);
    data.AddFormField('lang','POL');
    data.AddFormField('vasco','');
    data.AddFormField('B3', '      Akceptuj      ');
    strona.OleObject.Document.documentElement.innerHTML:=ht.Post('https://www.bossa.pl/', data);
 finally
    data.Free;
 end;
end;

strona:

<form action="login" method="POST"> Logowanie do systemu:

Proszę podać:
(Identyfikator wpisuj wielkimi literami)

Identyfikator
PIN

Cyfry odczytane z
generatora haseł <input type="text" name="user" size="20">
<input type="password" name="pin" size="20">

<input type="text" name="vasco" size="20"> <input type="hidden" name="lang" value="POL">
<input type="submit" name="B3" value=" Akceptuj " class="f10"> <input type="reset" name="B4" value=" Wyczy?ć " class="f10">

i wyrzuca mi errora: IOHandler value s not valid

co pownienem zrobic?

czy cso mzoe z tym : <form action="login" method="POST"> ?

musisz użyć IOHandlera do obługi SSL.

ok polaczylem IDHTTP z IdSSLIOHandlerSocket i pisze teraz :
could not load SSL Library

znalazlem cos takiego:
You need to assign an IOHandler to the HTTP client that uses the SSL
transport.
You also need the OpenSSL .DLLs (or a third-party product implementing the
TIdSSLIOHandlerSocketBase class) installed on your computer to allow SSL to
work at all.
sslIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(Nil);
IdHttp.IOHandler := sslIOHandler;
theResults := IdHttp.Get('https:\www.somesecuresite.net');

ale np. TIdSSLIOHandlerSocketBase, TIdSSLIOHandlerSocketOpenSSL nie ma u mnie

sleep(500); application.ProcessMessages;sleep(500); application.ProcessMessages;
sleep(500); application.ProcessMessages;sleep(500); application.ProcessMessages;
sleep(500); application.ProcessMessages;sleep(500); application.ProcessMessages;

rany - co to ma być.... zamknij to w pętli :|