Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.02.2010, 14:09   #11
Voody
Форумчанин
 
Регистрация: 22.06.2009
Сообщений: 310
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var params,responseres:tstringlist;
begin
idhttp1.HandleRedirects:=true;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvSSLv23;
params:=TStringList.Create;
  responseres:=TStringList.Create;
try
params.Add('username=log');
params.Add('password=pas');
params.Add('Submit=Login');
responseres.Text:=idhttp1.Post('https://kiosk.atlantidacasino.com/login.php',params);
if Pos('logout',responseres.Text)>0 then
ShowMessage('Авторизовались!') else ShowMessage('Error');
finally
params.free;
responseres.free;
end;
end;
естественно IdSSLIOHandlerSocketOpenSSL1 присоединен к IdHTTP1
Voody вне форума Ответить с цитированием
Старый 08.02.2010, 17:47   #12
Ronaldinho16
 
Регистрация: 05.02.2010
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Voody Посмотреть сообщение
Код:
procedure TForm1.Button1Click(Sender: TObject);
var params,responseres:tstringlist;
begin
idhttp1.HandleRedirects:=true;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvSSLv23;
params:=TStringList.Create;
  responseres:=TStringList.Create;
try
params.Add('username=log');
params.Add('password=pas');
params.Add('Submit=Login');
responseres.Text:=idhttp1.Post('https://kiosk.atlantidacasino.com/login.php',params);
if Pos('logout',responseres.Text)>0 then
ShowMessage('Авторизовались!') else ShowMessage('Error');
finally
params.free;
responseres.free;
end;
end;
естественно IdSSLIOHandlerSocketOpenSSL1 присоединен к IdHTTP1
Выдает ошибку HTTP/1.1 404 Not found
Все перепробовал, что знал, ничего не получается
Ronaldinho16 вне форума Ответить с цитированием
Старый 08.02.2010, 18:53   #13
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию

Цитата:
Сообщение от Voody Посмотреть сообщение
Код:
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvSSLv23;
Никогда это не использовал, и вроде нормально работало.
А как узнать какой метод использовать? На сайте искал - не нашёл.
TwiX вне форума Ответить с цитированием
Старый 08.02.2010, 19:03   #14
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,183
По умолчанию

Протокол шифрования не правильный у вас, на самом деле он такой:
Цитата:
TLS v1.0 256 bit AES-256 (1024 bit DHE_RSA/SHA)
Alter вне форума Ответить с цитированием
Старый 08.02.2010, 22:57   #15
Voody
Форумчанин
 
Регистрация: 22.06.2009
Сообщений: 310
По умолчанию

Цитата:
Сообщение от Ronaldinho16 Посмотреть сообщение
Выдает ошибку HTTP/1.1 404 Not found
Все перепробовал, что знал, ничего не получается
скопировал полностью код из своего проекта
проверил просто:
Memo1.Text:=responseres.Text;
В Memo1 появился исходный код страницы

Не знаю, в чем проблема у вас. Попробуйте обновить библиотеки: ftp://indy.fulgan.com/SSL/openssl-0.9.8l-i386-win32.zip

Цитата:
Сообщение от TwiX Посмотреть сообщение
Никогда это не использовал, и вроде нормально работало.
А как узнать какой метод использовать? На сайте искал - не нашёл.
методом перебора) их там всего 4

Цитата:
Сообщение от Alter Посмотреть сообщение
Протокол шифрования не правильный у вас, на самом деле он такой:
пробовал TLS - ошибка
мой приведенный код у меня работает (D2010, Indy 10.5.5)

Последний раз редактировалось Voody; 08.02.2010 в 22:59.
Voody вне форума Ответить с цитированием
Старый 08.02.2010, 23:26   #16
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,183
По умолчанию

Opera показывает следующее, нельзя игнорировать:
Alter вне форума Ответить с цитированием
Старый 08.02.2010, 23:34   #17
Voody
Форумчанин
 
Регистрация: 22.06.2009
Сообщений: 310
По умолчанию

Цитата:
Сообщение от Alter Посмотреть сообщение
Opera показывает следующее, нельзя игнорировать:
я пишу факты, которые получаются у меня:
TLS пробовал - ошибка
SSLv23 попробовал - отлично загрузилось (и привел код)

если у вас получится с этим протоколом - ради бога
Voody вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Авторизация на https arm82 Работа с сетью в Delphi 15 23.01.2011 20:54
Получить страницу, https, сертификат и авторизация. xPrizrak Работа с сетью в Delphi 0 18.01.2010 15:26
Авторизация на сайте Niklan Общие вопросы Delphi 1 07.11.2009 00:39
Авторизация на сайте MultiBit Работа с сетью в Delphi 6 13.03.2009 18:45
Авторизация по HTTPS Coffein Работа с сетью в Delphi 1 12.03.2009 11:54