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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.01.2011, 16:02   #11
nikolas0
Пользователь
 
Аватар для nikolas0
 
Регистрация: 18.12.2010
Сообщений: 85
По умолчанию

Код:

login :=Edit1.Text;
  try
    Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    Http.HandleRedirects := true;

    Http.Request.Host:='localhost';
    Http.Request.UserAgent:='brayzer/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    Http.Request.Referer:='http://localhost/auth_script/auth.php';

    Data.Add('value=Login');
    Data.Add('auth=login');
    Data.Add('login=' +login);
    Data.Add('password=' +password);

    StrPage := Http.Post('http://localhost/auth_script/auth.php', Data);
  finally
    Data.Free;
    Http.Free;
  end;

  if Pos('Неверный логин или пароль!',StrPage) <> 0 then
    begin
       memo2.Text :=StrPage;
    end
Держите!
удачи
nikolas0 вне форума Ответить с цитированием
Старый 10.01.2011, 18:38   #12
vebster35
Пользователь
 
Регистрация: 09.01.2011
Сообщений: 11
По умолчанию

nikolas0 спасибо но еще бы скрипт пхп для денвера чтобы т.с. локально потестить и если вас не затруднит выложите плз и его т.е. /auth_script/auth.php
vebster35 вне форума Ответить с цитированием
Старый 10.01.2011, 18:51   #13
nikolas0
Пользователь
 
Аватар для nikolas0
 
Регистрация: 18.12.2010
Сообщений: 85
По умолчанию

вот держи!у меня их две версии елсли эта не та то отпишись...
http://q32.ru/2795
nikolas0 вне форума Ответить с цитированием
Старый 22.01.2011, 21:56   #14
vebster35
Пользователь
 
Регистрация: 09.01.2011
Сообщений: 11
По умолчанию

Спасибо, очень пригодился
vebster35 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Смена картинки при авторизации tyze Общие вопросы Delphi 3 30.06.2010 21:49
Условие для диапазона ячеек, при вводе числовых значений. segail Microsoft Office Excel 3 20.06.2010 00:14
Логическое условие if() Junk1E Общие вопросы C/C++ 3 10.12.2009 22:47
Условие при пустой ячейке victort Microsoft Office Excel 3 29.09.2009 07:00
Условие Locate при активации формы ArtInt БД в Delphi 6 18.04.2009 23:14