Memo1->Lines->Add("---------------=NEXUS=----------------");
TStringStream *Receive = new TStringStream("") ;
idHttp->Get("https://nexus.passport.com/rdr/pprdr.asp", Receive);
Memo1->Lines->Add("---------------=ANSWER=----------------");
Memo1->Lines->Add(Receive->ReadString(0));
delete Receive;
Что я не так делаю ? Https
Кидаю на форму: TIdSSLIOHandlerSocket и TIdHTTP.
У IdHTTP меняю свойства IOHandler на IdSSLIOHandlerSocket1.
Далее пишу:
В итоге не получаю ничего. Ни ошибки, не зависания...Помоему получаю я пустую страницу. Но мне нужно с этой страницы прочитать HEADER. Как это сделать ??? Страница должна вернуть нечто вроде:
У IdHTTP меняю свойства IOHandler на IdSSLIOHandlerSocket1.
Далее пишу:
Код:
В итоге не получаю ничего. Ни ошибки, не зависания...Помоему получаю я пустую страницу. Но мне нужно с этой страницы прочитать HEADER. Как это сделать ??? Страница должна вернуть нечто вроде:
Цитата:
<<< HTTP/1.1 200 OK\r\n
<<< Server: Microsoft-IIS/5.0\r\n
<<< Date: Mon, 02 Jun 2003 11:57:47 GMT\r\n
<<< Connection: close\r\n
<<< PassportURLs: DARealm=Passport.Net,DALogin=login.passport.com/login2.srf....
<<< Content-Length: 0\r\n
<<< Content-Type: text/html\r\n
<<< Cache-control: private\r\n
<<< \r\n
<<< Server: Microsoft-IIS/5.0\r\n
<<< Date: Mon, 02 Jun 2003 11:57:47 GMT\r\n
<<< Connection: close\r\n
<<< PassportURLs: DARealm=Passport.Net,DALogin=login.passport.com/login2.srf....
<<< Content-Length: 0\r\n
<<< Content-Type: text/html\r\n
<<< Cache-control: private\r\n
<<< \r\n