VPF::Берем данные с интернет-страницы.

Vladimir_K

Дата 20.12.2007, 19:35 (ссылка)

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

Загрузка ...

Шустрый

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

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

Сложности...

Вот: http://www.angelsads.com/pages/enter.php
логин: w123
пароль: 12345

Это сообщение отредактировал(а) Vladimir_K - 20.12.2007, 20:11

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

Artem91

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

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

Загрузка ...

Шустрый

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

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

А как сделать, чтобы при загрузке страницы, используя idHTTP, прога не подвисала? Processmessages не помогает!!!

remax

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

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

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

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

Используй инди антифриз (TIdAntiFreeze)

--------------------

Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку

VICTAR

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

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

Загрузка ...

Эксперт

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

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

Запихни idHTTP в поток. Или используй другие компоненты (например SwinHTTP)

mr_smit

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

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

Загрузка ...

Опытный

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

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

Цитата(Vladimir_K @ 20.12.2007, 08:24)

Вот эта часть:

Код


  lData := TStringList.Create;
  try
    lData.Add('username=s12x');
    lData.Add('password=12345');
    IdHTTP.Post('http://www.yandex.ru/', lData);
    ShowMessage(IdHTTP.Get('http://www.yandex.ru/'));
  finally
    lData.Free;
  end;

Логин и пароль от реального почтового ящика!
Этот код вводит пароль на странице, и типа нажимает кнопку "Войти"? И тогда уже можно на следующей открывшейся странице искать определенные слова и т.д.?
У меня вот в этой части во время выполнения проги возникает ошибка. Я ее приводил выше.
Правильно ли составлена эта часть кода?

Я пробую по простому вот так и всё равно не заходит:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  d: TStringList;
  s: String;
begin
  d := TStringList.Create;
  d.Add('login=мой логин');
  d.Add('passwd=мой пасс');
try
  s := IdHTTP1.Post('http://passport.yandex.ru/passport?mode=auth',d);
finally
  d.Free;
end;
end;

что ему ещё нужно?

Вот код со страницы яндекса:

Код


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
    <title>Untitled</title>
</head>

<body>
<form action="http://passport.yandex.ru/passport?mode=auth" method="post" name="MainLogin" id="loginform">
<img src="http://img.yandex.net/wmi/modern/static/4/i//login/heading.gif" alt="Почта" width="136" height="36" style="margin: 15px 0 10px 0;">
<div class="input login"><label for="inputLogin">логин:</label><br><input type="text" name="login" id="inputLogin" tabindex="1"></div>
<div class="input passwd"><label for="inputPassword">пароль:</label><br><input type="password" name="passwd" id="inputPassword" tabindex="2"></div>
<p style="text-align: center;"><label for="twoweeks"><input type="checkbox" id="twoweeks" name="twoweeks" value="yes" autocomplete="no" tabindex="3" style="vertical-align: middle;"> запомнить меня</label></p>
<div><input type="hidden" name="retpath" value="http://mail.yandex.ru/?from=mail..........."><input type="submit" value="Войти" class="hugeBtn" tabindex="4"></div>
</form>
</body>
</html>

Это сообщение отредактировал(а) mr_smit - 9.3.2008, 13:24

dumb

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

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

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

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

Цитата(mr_smit @ 9.3.2008, 13:18

)

что ему ещё нужно?

Код

IdHTTP1.HandleRedirects := true;

aktuba

Дата 11.3.2008, 14:44 (ссылка)

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

Загрузка ...

Смышленный

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

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

Цитата(mr_smit @ 9.3.2008, 14:18

)

что ему ещё нужно?

Ему нужно не много - чтобы ты хоть краем глаза посмотрел в спецификацию http...

--------------------

XerSon

Дата 17.3.2008, 22:15 (ссылка)

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

Загрузка ...

Новичок

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

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

Все решил)

Это сообщение отредактировал(а) XerSon - 28.3.2008, 15:42

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