Delphi Studio Авторизация на сайте vkontakte.ru на сокетах (ClientSocket) Пример на Delphi

Авторизация на сайте vkontakte.ru на сокетах (ClientSocket) Пример на Delphi

Пример авторизации на сайте vkontakte.ru на сокетах (Socket). На форму нужно добавить компонент ClientSocket, 2 Edit, Button

procedure TForm1.Button1Click(Sender: TObject);
begin
if ClientSocket1.Active = true then
ClientSocket1.Active := false;
ClientSocket1.Active := true;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
statusbar1.Panels[0].Text := 'Connect Success';
ClientSocket1.Socket.SendText('POST /login.php HTTP/1.1'#13#10+
'Accept: */*'#13#10+
'Referer: http://vkontakte.ru/login.php?u=1'#13#10+
'Accept-Language: ru'#13#10+
'Content-Type: application/x-www-form-urlencoded'#13#10+
'User-Agent: Mozilla/4.0'#13#10+
'Host: vkontakte.ru'#13#10+
'Content-Length: '+inttostr(length('success_url=&fail_url=&try_to_login=1&email='+edit1.Text+'&pass='+edit2.Text))+#13#10+
'Connection: Keep-Alive'#13#10+
'Cache-Control: no-cache'#13#10#13#10+
'success_url=&fail_url=&try_to_login=1&email='+edit1.text+'&pass='+edit2.Text);
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
statusbar1.Panels[0].Tex t:= 'Disconnected';
end;

procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
statusbar1.Panels[0].Text := 'Error #'+ inttostr(ErrorCode);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
ans : string;
begin
ans := ClientSocket1.Socket.ReceiveText;
if pos('HTTP/1.1 302 Found', ans) <>0 then
statusbar1.Panels[0].Text := 'Success login';
if pos('<div id="error" />',ans) &lt;&gt; 0 then
statusbar1.Panels[0].Text:= 'Bad login';
end;
  • 0
 (голосов: 0)
14861 | 0

    Информация
    Информация

      Посетители, находящиеся в группе Гости, не могут оставлять комментарии в данной новости.

        Лучшее на Delphi Studio

        Лучшие книги по Delphi

        • Книга Delphi 2010 Handbook with Source Code
          Книга Delphi 2010 Handbook with Source Code - Книга Delphi 2010 Handbook with Source Code посвящена CodeGear Delphi 2010
        • Книга Программирование в Delphi глазами хакера. Фленов
          Книга Программирование в Delphi глазами хакера. Фленов - В книге вы найдете множество нестандартных приемов программирования на языке Delphi, его недокументированные функции и возможности. Вы узнаете, как создавать маленькие шуточные программы. Большая часть книги посвящена программированию сетей
        • Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов
          Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов - Электронная книга о профессиональных приемах программирования в Delphi. В легкой и доступной форме с использованием большого количества профессиональных примеров рассмотрены вопросы корректного написания кода, оптимизации программ, работы с системным окружением, создания сетевых приложений
        • Книга Библия Delphi Михаил Фленов (2-е издание) + CD
          Книга Библия Delphi Михаил Фленов (2-е издание) + CD - Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений. Подробно описывается логика выполнения каждого участка кода, чтобы читатель смог использовать эти знания при решении собственных задач. Книга содержит большое количество примеров практического программирования
        • Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б
          Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б - Рассмотрены малоосвещенные вопросы программирования в Delphi. Описаны методы интеграции VCL и API. Показаны внутренние механизмы VCL и приведены примеры вмешательства в эти механизмы. Рассмотрено использование сокетов в Delphi: различные режимы их работы, особенности для протоколов TCP и UDP
        • Книга Delphi 7 Учебный курс С.Бобровский
          Книга Delphi 7 Учебный курс С.Бобровский - Электронная книга является руководством по программированию в среде Delplii 7. Описывается весь процесс разработки программы: от конструирования диалогового окна до организации справочной системы и создания установочного CD-ROM
        • Книга Delphi Быстрый Старт
          Книга Delphi Быстрый Старт - В книге описываются интерфейс системы визуального программирования Delphi на основе 6-й версии, состав и характеристика элементов проекта приложения, приемы программирования на языке Object Pascal
        • Книга Indy in Depth. Глубины Indy
          Книга Indy in Depth. Глубины Indy - Книга Indy in Depth Глубины Indy будет интересно для тех, кто интересуется хакингом, вирусописанием, а значит и для тех, кто занимается защитой сетей, программ, информации. Эта книга не только по Indy, она про Интернет, про протоколы, термины, методы работы, а к Indy относятся только примеры
        • Книга OpenGL - Графика в проектах Delphi + CD. М.В.Краснов
          Книга OpenGL - Графика в проектах Delphi + CD. М.В.Краснов - Книга посвящена использованию стандартной графической библиотеки OpenGL в проектах Delphi. Начиная с самой минимальной программы, последовательно и подробно рассматриваются все основные принципы программирования компьютерной графики: двухмерные итрехмерные построения, анимация, работа с текстурой, визуальные эффекты
        • Книга Delphi 7 для профессионалов. Марко Кэнту
          Книга Delphi 7 для профессионалов. Марко Кэнту - Книга, которую должен прочитать каждый, кто хочет стать профессиональным программистом на Delphi. Книга не предназначена для начинающих. Требуются хорошие знания Delphi. Предназначена для тех, кто хочет стать именно профессиональным программистом



        Поиск на Delphi Studio


        На Delphi Studio нашли

        richedit delphi richedit delphi
        delphi исходники interbase delphi исходники interbase
        showmessage delphi showmessage delphi
        как написать блокнот в delphi как написать блокнот в delphi
        Delphi скрыть панель задач Delphi скрыть панель задач
        парсинг тегов delphi парсинг тегов delphi
        форма без панели задач форма без панели задач
        самоучитель программиста самоучитель программиста
        курсовые работы по делфи курсовые работы по делфи
        курсовые работы по делфи ,tcgkfnyj курсовые работы по делфи ,tcgkfnyj
        api api
        delphi 2010 приложение в трее delphi 2010 приложение в трее
        Delphi IdFTP Delphi IdFTP
        Учебник по компоненту progressBar Учебник по компоненту progressBar
        rad studio 2010 книга rad studio 2010 книга
        программирование калькулятора в делфи программирование калькулятора в делфи
        как создать bat файл приложения в автозагрузку как создать bat файл приложения в автозагрузку
        как программно отключить диспетчер задач для всех пользователей как программно отключить диспетчер задач для всех пользователей
        курсовые по делфи ,tcgkfnyj курсовые по делфи ,tcgkfnyj
        библия delphi 2-е издание читать библия delphi 2-е издание читать
        delphi idhttp delphi idhttp
        Пример авторизации на сайте с помощью idHTTP.Post Пример авторизации на сайте с помощью idHTTP.Post
        idftp ghbvth idftp ghbvth
        delphi 7 если папка существует delphi 7 если папка существует
        добавления программ автозапуск добавления программ автозапуск
        turbodelphi idftp turbodelphi idftp
        как свернуть в трей visual studio 2008 как свернуть в трей visual studio 2008
        delphi компонент ftp delphi компонент ftp
        delphi 2010 delphi 2010
        Cooltrayicon описание Cooltrayicon описание
        прозрачность окна delphi 7
прозрачность окна delphi 7
        М.Фленова М.Фленова "Библия Дельфи"
        strtofloat, strtoint
strtofloat, strtoint
        примеры готовые задачи Delphi
примеры готовые задачи Delphi
        как сделать окно из паскаля
как сделать окно из паскаля
        opendialog to memo
opendialog to memo
        Delphi Диалоговое окно подтверждения
Delphi Диалоговое окно подтверждения


        Информация

        Сайт Delphi Studio рассчитан для начинающих, новичков, чайников, которые решили программировать на Delphi :)
        Добавляйте свои примеры, исходники, компоненты, статьи и тогда на сайте будет много полезной информации, что поможет друг другу находить нужный материал.


        Случайные новости

        Книга Библия Delphi Михаил Фленов (2-е издание) + CD
        Книга Библия Delphi Михаил Фленов (2-е издание) + CD - Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений. Подробно описывается логика выполнения каждого участка кода, чтобы читатель смог использовать эти знания при решении собственных задач. Книга содержит большое количество примеров практического программирования
        Книга Delphi 7 Учебный курс С.Бобровский
        Книга Delphi 7 Учебный курс С.Бобровский - Электронная книга является руководством по программированию в среде Delplii 7. Описывается весь процесс разработки программы: от конструирования диалогового окна до организации справочной системы и создания установочного CD-ROM
        Авторизация на сайте vkontakte.ru на сокетах (ClientSocket) Пример на Delphi
        Авторизация на сайте vkontakte.ru на сокетах (ClientSocket) Пример на Delphi - Пример авторизации на сайте vkontakte.ru на сокетах (Socket). На форму нужно добавить компонент ClientSocket, 2 Edit, Button


        Опрос

        Что вы хотите больше на Delphi Studio?
        Исходники
        Книги, Учебники
        Компоненты
        Статьи
        Примеры


        Лучшее на Delphi Studio


        Информация

        А знаете ли вы что такие известные программы как AIMP, Skype, QIP, QIP Infium, R&Q, The Bat!, FL Studio, Guitar Pro, Game Maker, Total Commander, PowerArchiver, Download Master написаны на Delphi? И это далеко не весь список программ чем может похвастаться продукция Borland Delphi!


        rss