Вход в защищеную зону (login.wmtransfer.com),"https"

[alexpro2004]

Привет всем , у меня сложились затруднение..
Немогу методом GET открыть страницу(методом Post не пробывал, нужно сначало GEt) https://login.wmtransfer.com/GateKee...8a1&loginTab=3
Вылетает ошибка!!!
я выложил на форму компоненты Idhttp из вкладки Indy Clients и IdSSLIOHandlerSocket из вкладки Indy I/O Handlers.
Затем в компоненте IdHttp в св-ве IOHandler выбрал компонент IdSSLIOHandlerSocket.
Далее скачал архив openssl-0.9.8l-i386-win32.zip и кинул в Windows/system32

procedure TForm1.Button14Click(Sender: TObject);

begin
   res:= IdHTTP3.Get('https://login.wmtransfer.com/GateKeeper.aspx?RID=209eafc5-37ed-47b5-828c-9c0000df48a1&loginTab=3');

        memo3.lines.add(res);

Что у меня не так?МОЖЕТ НАДО КАКОЙНИТЬ СЕРТИФЕКАТ ?

[Alex Cones]

скачал архив openssl-0.9.8l-i386-win32.zip

Просто бросили или разархивировали перед этим?

[Usov]

Какая версия инди, какая конкретно ошибка?
Может быть что версия ssl библиотек не подходит для твоей версии инди.

[alexpro2004]

вроде с этим разобрался.....все заработало, только почемуто авторизация не происходит.делаю так

procedure TForm1.Button16Click(Sender: TObject);
var
   sl: TStringList;
   VIEWSTATE,EVENTVALIDATION,cmdLogin,resKeeper: string;
begin
      resKeeper:=IdHTTP1.get('https://login.wmtransfer.com/GateKeeper.aspx?RID=209eafc5-37ed-47b5-828c-9c0000df48a1&loginTab=3');


        VIEWSTATE:= TextBetween(resKeeper,'id="__VIEWSTATE" value="','" />');

       EVENTVALIDATION:= TextBetween(resKeeper,'id="__EVENTVALIDATION" value="','" />');

       cmdLogin:= TextBetween(resKeeper,'name="ctlGateKeeper$ctlLogin$ctlKM$cmdLogin" value="','" onclick=');

        // memo3.lines.add(cmdLogin);


               sl := TStringList.Create;
               sl.Add('__LASTFOCUS=');
               sl.Add('__EVENTTARGET=');
               sl.Add('__EVENTARGUMENT=');
               sl.Add('__VIEWSTATE='+VIEWSTATE);
               sl.Add('__EVENTVALIDATION='+EVENTVALIDATION);
               sl.Add('ctlGateKeeper$ctlLogin$ctlKM$txtLogin='+Edit17.Text);
               sl.Add('ctlGateKeeper$ctlLogin$ctlKM$txtPassword='+Edit18.Text);
               sl.Add('ctlGateKeeper$ctlLogin$ctlKM$cmdLogin='+cmdLogin);



                //  IdHTTP1.HandleRedirects := true;
                  //IdHTTP1.Request.UserAgent:='Internet Explorer 6.0';
                  IdHTTP1.Request.Referer:='login.wmtransfer.com';
                  res:=IdHTTP1.Post('https://login.wmtransfer.com/GateKeeper.aspx?RID=209eafc5-37ed-47b5-828c-9c0000df48a1&loginTab=3', sl);


                    memo3.lines.add(res);





end;

кто захочет памоч, кину исходник...после отправки методом поста , должна показать что савторизавался, а появляется страница ошибки ....кто поможет?

[Usov]

Там на сабмите выполнение яваскрипта, поэтому простой отправки формы не достаточно.
Я подобное смог сделать только через вебброузер.
Но если у кого есть решение - мне тоже будет интересно.