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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.01.2013, 20:26   #1
Romqanexx
Новичок
Джуниор
 
Регистрация: 08.01.2013
Сообщений: 2
По умолчанию IOHandler value is not valid

Вот пишу чекер для игры.., пока на стадии просто сделать для одного аккаунта, но уже начались проблемы при запуске выдает:IOHandler value is not valid, кто подскажет, что можно сделать?, библиотек множество перебрал..
Если действительно хотите помочь, буду благодарен (skype sh0tik1)

Код:
unit Unit11;

interface

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

type
  TForm11 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    Memo2: TMemo;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);
var
Http:TidHttp;
  Data:TStringList;
  s:  String;
begin
 try
    Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    Http.AllowCookies := true;
    Http.CookieManager := IdCookieManager1;
    Http.HandleRedirects := true;

    Http.Request.Host:='www.mail.ru/';
    Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.25) Gecko/20111212 Firefox/3.6.25';
    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';                                            Http.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    Http.Request.Referer:='https://e.mail.ru/cgi-bin/login?';


    Data.Add('Login=vitossssick@mail.ru');
    Data.Add('password=idkqac');

    s:= Http.Post('https://e.mail.ru/cgi-bin/login?', Data);
    memo1.text:=s;
    memo2.text:=http.Get('http://pw.mail.ru/profile.php');
  finally
    Data.Free;
    IdCookieManager1.Free;
    Http.Free;
  end;
end;

end.

Последний раз редактировалось Romqanexx; 08.01.2013 в 20:31.
Romqanexx вне форума Ответить с цитированием
Старый 08.01.2013, 20:46   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
https
Вот твоя проблема. Придется тебе библиотеки SSL подключать.
Мне когда-то не удалось нормально это сделать. Тут уже обсуждалось подобное - заряди поиск по слову https
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 08.01.2013, 23:00   #3
stasa9711
Форумчанин
 
Регистрация: 01.10.2012
Сообщений: 106
По умолчанию

легче всего это сделай через синапс ! ему нет разницы какая страница
stasa9711 вне форума Ответить с цитированием
Старый 08.01.2013, 23:18   #4
Romqanexx
Новичок
Джуниор
 
Регистрация: 08.01.2013
Сообщений: 2
По умолчанию

Цитата:
Сообщение от stasa9711 Посмотреть сообщение
легче всего это сделай через синапс ! ему нет разницы какая страница
уже начал изучать), завтра думаю сделаю)
Romqanexx вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Is not a valid integer value [Jank] Общие вопросы Delphi 11 18.09.2012 16:36
is not a valid integer value FanRa3 Общие вопросы Delphi 10 26.07.2011 19:54
Подвисание потока (idhttp -> iohandler -> idsocks) Puhovoi Помощь студентам 0 29.01.2011 13:58
Is not a valid integer value Lifefine Общие вопросы Delphi 8 04.03.2010 18:25
TIdTCPClient.IOHandler.InputBufferI sEmpty не сразу обновляется st01en Работа с сетью в Delphi 1 26.06.2009 08:34