HTTPS и Запросы

Sharky · #1 30.01.2009, 18:05

Здравствуйте у меня такая проблема не могу сделать запрос на Https
вот код страницы

Код HTML:


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=koi8-r" />
<title>.: мЙЮОЩК лБВЙОЕФ рПМШЪПЧБФЕМС уРБТЛ</title>
<link rel="stylesheet" type="text/css" href="/main_ru.css" />
<!--[if IE 6]>
<link rel="stylesheet" type="text/css" href="/ie6.css" />
<![endif]-->
</head>
<body>

<h1 class="hide">мЙЮОЩК лБВЙОЕФ рПМШЪПЧБФЕМС</h1>
<form id="loginForm" action='/?lang=ru' method=post>
	<p>мПЗЙО&nbsp;<input type="text" name="login" /></p>
	<p>рБТПМШ&nbsp;<input type="password" name="password" /></p>

	<button type="submit"><img class="hide" src="/img_ru/lkAuthBtn.png" alt="чПКФЙ" /></button>
	<div id="loginShade"></div>
</form>

<div class="sparkenish" id="sparkenish">
	<div id="sparkenishBalloon">
		<img id="sparkenishBalloonLTC" src="/img_ru/lkSparkenishBalloonLTC.png" />
		<img id="sparkenishBalloonRTC" src="/img_ru/lkSparkenishBalloonRTC.png" />
		<img id="sparkenishBalloonLBC" src="/img_ru/lkSparkenishBalloonLBC.png" />
		<img id="sparkenishBalloonRBC" src="/img_ru/lkSparkenishBalloonRBC.png" />
		<img id="sparkenishBalloonArrow" src="/img_ru/lkSparkenishBalloonArrow.png" />
		<a id="sparkenishBalloonClose" href="#"><img src="/img_ru/lkSparkenishBalloonClose.png" alt="ЪБЛТЩФШ РПНПЭОЙЛБ" /></a>
				<p>
		    		    			дПВТП РПЦБМПЧБФШ Ч МЙЮОЩК ЛБВЙОЕФ! <br>
		    		</p>
		
	</div>
	<div id="sparkenishImgCont"><img id="sparkenishImg" src="/img_ru/lkSparkenish.png" alt="рПНПЭОЙЛ УРБТЛ" /></div>
</div>

<script language="javascript" src="/script.js"></script>

</body>
</html>

отсюда для себя я вынул след информацию:

запрс будет сделан с помощью Post запроса
"text" name="login" поле логина
"password" name="password" поле пароля
action='/?lang=ru

вот как я пытаюсь сделать запрос

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 tL: TStringList; 
 s: String;
  begin
   tL := TStringList.Create;
   tL.Add('text=E_103095'); 
   tL.Add('password=мой пас');
   form1.IdHTTP1.Request.Referer:='https://stat.spark-com.ru/';
    try
     s := IdHTTP1.Post('https://stat.spark-com.ru/?lang=ru',tL);
    finally
     tL.Free;
    end;
  memo1.Lines.Add(s);
  end;

мой аутпост говорит что приложение запрашивает исходящее соединение LocalHost
далее моё приложение просто виснет
я слышал что для Https нужны какие то Dll ки но я не знаю откуда мне их взять в гугле смотрел .
Не представляю что мне делать.помогите мне пожалуйста .

lmikle · #2 30.01.2009, 18:32

Да, для поддержки https (а собственно, это http + ssl) нужны библиотеки openSSL. Ищи в инете.

Sharky · #3 30.01.2009, 21:47

я скачал эти библиотеки но что с ними делать я не пойму Imikle СПАСАЙ)
помогите кто нибуть аа

говорит что IoHendler value is not valid

lmikle · #4 30.01.2009, 23:28

Там копоненту надо поставить SSL'ный хэндлер и положить радом с exe эти библиотечки. Если будет возможность потом напишу подробнее.

Sharky · #5 31.01.2009, 16:20

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdIntercept, IdTCPConnection, IdTCPClient, IdHTTP,
  IdBaseComponent, IdComponent, IdIOHandler, IdIOHandlerSocket,
  IdSSLOpenSSL, StdCtrls;

type
  TForm1 = class(TForm)
    IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket;
    IdHTTP1: TIdHTTP;
    IdConnectionIntercept1: TIdConnectionIntercept;
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.IdConnectionIntercept1:=form1.IdHTTP1.Intercept;
form1.IdHTTP1.Port:=443;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
tL: TStringList;
s: String;
begin
tL := TStringList.Create;
tL.Add('text=Акаунт');
tL.Add('password=маой пас');
form1.IdHTTP1.Request.Referer:='https://stat.spark-com.ru/';
try
   s := IdHTTP1.Post('https://stat.spark-com.ru/?lang=ru',tL);
finally
   tL.Free;
end;
memo1.Lines.Add(s);
  end;




end.

в папку с проектом положил 2 Dll ки а именно ssleay32.dll и libeay32.dll
скачал и поставил Indy 9 и все равно не пашет выскакивает ошибка на отладчике . отладчик ругается на строку :

Код:

s := IdHTTP1.Post('https://stat.spark-com.ru/?lang=ru',tL);

что не так я не понимаю
в нете подобных вопросов много а ответа четкого нету (((

Sharky · #6 01.02.2009, 02:41

так у меня все получилось . Ура.
Если кому интересно на счет этой темы пишите.

san-46 · #7 11.02.2009, 08:21

Пишу. Мне интересно. Каким образом все же получилось? Код можно?

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты