VPF::Регистрация на сайте - Форум программистов

ZZnOB

Дата 31.3.2010, 18:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

Доброго времени суток, уважаемые форумчане.
Помогите с регистрацией на сайте (управляется движком DLE). С пост запросом все ясно, не могу получить капчу в TImage. Помогите с ней разобраться. smile

PS: Не для спама , а для личной образованности.

Akella

Дата 31.3.2010, 20:03 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329

Ошибка в 17ой строке.

Matematik

Дата 31.3.2010, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Цитата(ZZnOB @ 31.3.2010, 18:18

)

не могу получить капчу в TImage

ищешь в HTML коде ссылку на картинку
скачиваешь картинку
загружаешь картинку в Timage
???
PROFIT

На каком пункте не получается?

ZZnOB

Дата 31.3.2010, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

Расскажу по порядку.
При регистрации на сайте управляемом CMS DLE , с расширеным методом я сначала захожу на страницу по урлу
http://sait.ru/index.php?do=register передавая параметр методом POST содержащим dle_rules_accept=yes, после этого попадаю на страницу с формой регистрации. Во время соединения скрипт делает запрос GET к http://site.ru/engine/modules/antibot.php (это и есть картинка). Далее мне нужно вывести эту самую картинку в Image, после чего заполнив из едитов все данные пост запроса, отправить все это методом POST на сайт.
Проблема в том, что я недавно начал программировать (точнее пытаться) и это мое первое знакомство с программированием в интернет и с Indy в частности. Я не понимаю, как вывести эту картинку в Image/
Если не затруднит, то пример приведите. Буду очень признателен.

Matematik

Дата 1.4.2010, 00:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Примерно так

Код


uses GIFImg,Jpeg;
procedure TForm1.btn2Click(Sender: TObject);
var mem: TMemoryStream;
begin
    mem := TMemoryStream.Create;
    try
      htp.Get('http://forum.vingrad.ru/style_images/2/menu/menu.gif', mem);
      mem.Position := 0;
      mem.SaveToFile('img.gif');
    finally
      mem.Free
    end;
  img1.Picture.LoadFromFile('img.gif');
end;

ZZnOB

Дата 1.4.2010, 08:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

Проблема в том что при прямом обращении к скрипту http://site.ru/engine/modules/antibot.php, допустим если этот адрес ввести в адресную строку, то картинка не показывается, а пишется Hacking Attemp. Как сделать так чтобы все же показалась картинка. На ум приходит только сохранить страницу на компьютер и вывести в имэйдж локально. Или я все же чего то не понимаю?
Если можно, если у кого то есть время, напишите в асю 272девять29821. Или пример с сайтна на DLE. Нужен только вывод картинки в Image

Matematik

Дата 1.4.2010, 12:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Цитата(ZZnOB @ 1.4.2010, 08:32

)

Тогда надо всё скачивать одним экземпляром TIdHTTP
включить запоминание cookie

Код


htp.AllowCookies := True;

и передевать в заголовке referer адрес страницы регистрации

Код


htp.Request.Referer := 'http://sait.ru/index.php?do=register ';

А вообще, смотри какие запросы делает браузер. Я пользуюсь Firefox с аддонами HttpFox или FireBug

ZZnOB

Дата 1.4.2010, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

Цитата(Matematik @ 1.4.2010, 12:17

)

А вообще, смотри какие запросы делает браузер. Я пользуюсь Firefox с аддонами HttpFox или FireBug

Спасибо за плагины. Буду пробовать.

ZZnOB

Дата 1.4.2010, 19:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

Пробую так... Пока задача минимум вывести картинку в имэйдж.

Код


procedure TForm1.Button2Click(Sender: TObject);
var mem: TMemoryStream;
zap:TStringList;

begin
    mem := TMemoryStream.Create;
    idhttp.AllowCookies := True;
    try
    zap:=TStringList.Create;
    zap.Add('dle_rules_accept=yes');
    idhttp1.Request.Referer := 'http://textured.ru/index.php?do=register ';
    idhttp1.Post('http://textured.ru/index.php?do=register',zap);
    idhttp1.Get('http://textured.ru/engine/modules/antibot.php', mem);
    mem.Position := 0;
    mem.SaveToFile('img.gif');
    finally
      mem.Free
    end;
  image1.Picture.LoadFromFile('img.gif');
end;

Компилится без ошибок. Запускаю, жму на кнопку и получаю ошибку
"Invalid GIF Signature" Что, на мой взгляд, говорит о том что не картинка это smile

, в чем косячу?

Это сообщение отредактировал(а) ZZnOB - 1.4.2010, 19:09

ZZnOB

Дата 1.4.2010, 20:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

Код


procedure TForm1.Button2Click(Sender: TObject);
var mem: TMemoryStream;
zap:TStringList;

begin
    mem := TMemoryStream.Create;
    idHttp1.AllowCookies:=true;
    try
    zap:=TStringList.Create;
    zap.Add('dle_rules_accept=yes');
    idhttp1.Request.Referer := 'http://textured.ru/index.php?do=register ';
    idhttp1.Post('http://textured.ru/index.php?do=register',zap);
    idhttp1.Get('http://textured.ru/engine/modules/antibot.php', mem);
    mem.Position := 0;
    mem.SaveToFile('img.jpeg');
    finally
      mem.Free
    end;
  image1.Picture.LoadFromFile('img.jpeg');
end;

А вот это заработало smile

, только вот не пойму, почему ему GIF не нравился, хотя в uses GIFImage был прописан

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »