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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.01.2014, 15:33   #1
Gudzik11
Форумчанин
 
Регистрация: 20.10.2011
Сообщений: 138
По умолчанию rutracker.org

Подскажите пожалуйста как искать на сайте .
Пробую вот так .
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
begin
  HTTML.Clear;
  HTTML.Text:= IdHTTP1.Get('http://rutracker.org/forum/tracker.php?nm=' + Edit1.Text );
  HTTML.SaveToFile('proverka.html');
  parser;


end;

procedure TForm1.FormCreate(Sender: TObject);
var
LoginData: TStrings;
begin
  LoginData := TStringList.Create;
  HTTML := TStringList.Create;
  try
  LoginData.Add('login_username=');
  LoginData.Add('login_password=');
  LoginData.Add('login=Вход');

  HTTML.Text := IdHTTP1.Post('http://login.rutracker.org/forum/login.php',LoginData);

  if Pos('logout',HTTML.Text)>0 then
   begin
    Form1.Caption:= 'Авторизовались!' ;


   end

  else
  Form1.Caption:= 'Авторизация не удалась!';

  finally
   LoginData.Free;
 end;
end;
Всё находит если писать слово целиком например Delphi то всё находит но если ввести к примеру ву то выводит меня на страницу где написано Недостаточно параметров для поиска если писать в браузере то всё находиться

скажите как можно это исправить?

Последний раз редактировалось Gudzik11; 09.01.2014 в 16:07.
Gudzik11 вне форума Ответить с цитированием
Старый 09.01.2014, 15:51   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
Код:
LoginData.Add('login_password=012986');
Беспалива )
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.

Последний раз редактировалось Alex11223; 09.01.2014 в 16:27.
Alex11223 вне форума Ответить с цитированием
Старый 09.01.2014, 16:00   #3
Gudzik11
Форумчанин
 
Регистрация: 20.10.2011
Сообщений: 138
По умолчанию

вот блин
Gudzik11 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Curl, rutracker.org SteAlzzer C/C++ Сетевое программирование 3 21.11.2011 21:35
InMAC.org BoozZzilla Свободное общение 5 09.08.2011 11:58
Вопрос по домену org.ua vlad777 Помощь студентам 5 26.02.2011 22:37
dyndns.org Bat{CMD}_Men Фриланс 6 09.11.2010 18:11
Парсим bash.org.ru Merkator Работа с сетью в Delphi 1 21.04.2009 21:21