1. Panda518.07.2024 в 11:09от
Загрузка...

Delphi Support

Тема в разделе "С/С++/Pascal/Delphi", создана пользователем MDK, 25.07.2013.

  1. XCoder

    XCoder

    Статус:
    Оффлайн
    Регистрация:
    26.07.13
    Сообщения:
    151
    Репутация:
    11 +/-
    Я же тебе вроде уже код писал, как спарсить, или не тебе :D
    Ссылку на страницу дай.
     
  2. Gvays

    Gvays

    Статус:
    Оффлайн
    Регистрация:
    14.12.12
    Сообщения:
    141
    Репутация:
    46 +/-
    Да. Мне писал.
     
  3. Lifeda92

    Lifeda92

    Статус:
    Оффлайн
    Регистрация:
    10.03.13
    Сообщения:
    67
    Репутация:
    6 +/-
    Вот здесь аналогичный вопрос по сути моему вопросу выше. (более подробно расписана проблема) http://expert.delphi.int.ru/question/6428/
    Блин, в чем же проблема...
    Помогите пожалуйста.
     
    Последнее редактирование: 05.08.2013
  4. Lifeda92

    Lifeda92

    Статус:
    Оффлайн
    Регистрация:
    10.03.13
    Сообщения:
    67
    Репутация:
    6 +/-
    Все, проблему решил сам. Всем спасибо.:thank_you:
     
  5. Подарок

    Подарок

    Статус:
    Оффлайн
    Регистрация:
    27.07.12
    Сообщения:
    1.443
    Репутация:
    357 +/-
    кидай, у тебя утечка памяти.
     
  6. Lifeda92

    Lifeda92

    Статус:
    Оффлайн
    Регистрация:
    10.03.13
    Сообщения:
    67
    Репутация:
    6 +/-
    Я уже нашел нашел утечку, спасибо за отклик):thank_you:
     
  7. loloshka89nur

    loloshka89nur

    Статус:
    Оффлайн
    Регистрация:
    25.07.13
    Сообщения:
    61
    Репутация:
    1 +/-
    Нуб в делфи.. Смотрел туториал по созданию чекера от странника..

    Сделал все под чистую но когда нажимаю на проверить, ошибка и что то связано с этим "Data: TStringlist.Create;"

    Полный скрипт

    "procedure TForm1.startClick(Sender: TObject);
    var
    Data: TStringlist;
    HTML, go: string;
    Pars1, Pars2: string;
    begin
    go:= 'http://turbobit.net/user/login'
    Data: TStringlist.Create;
    Data.Add('user[login]='+ Edit1.Text);
    Data.Add('user[pass]='+ Edit2.Text);
    Data.Add('user[submit]=Войти');
    HTML:=IdHTTP.Post('go, data')
    end;

    end.
    "

    помогите..
     
  8. Alex Ey

    Alex Ey

    Статус:
    Оффлайн
    Регистрация:
    07.03.12
    Сообщения:
    1.191
    Репутация:
    693 +/-
    Data:=TStringlist.Create;
     
  9. loloshka89nur

    loloshka89nur

    Статус:
    Оффлайн
    Регистрация:
    25.07.13
    Сообщения:
    61
    Репутация:
    1 +/-
    Теперь другая проблема, где здесь ошибка?

    Memo1.Lines.Add(HTML);
     
  10. MDK

    MDK

    Статус:
    Оффлайн
    Регистрация:
    24.07.13
    Сообщения:
    248
    Репутация:
    42 +/-
    Это в потоке делается?
     
  11. loloshka89nur

    loloshka89nur

    Статус:
    Оффлайн
    Регистрация:
    25.07.13
    Сообщения:
    61
    Репутация:
    1 +/-
    Я незнаю:D но странник видео говорит то что это типо узнать HTML-исходный код страницы.
     
  12. Cortex

    Кортекся :3
    Cortex

    Статус:
    Оффлайн
    Регистрация:
    29.07.12
    Сообщения:
    1.729
    Репутация:
    1.235 +/-
    Вообще такое правило:
    - Из потока нельзя напрямую обращаться к визуальным компонентам формы. Следовательно правильно будет :

    Form1.Memo1.Lines.Add(HTML);
     
  13. loloshka89nur

    loloshka89nur

    Статус:
    Оффлайн
    Регистрация:
    25.07.13
    Сообщения:
    61
    Репутация:
    1 +/-
    Спасибо, а вот еще один вопрос.. А вот щас например этого скрипта

    procedure TForm1.СтартClick(Sender: TObject);
    var
    Data: TStringlist;
    HTML, go: string;
    Pars1, Pars2: string;
    begin
    go:= 'http://turbobit.net/user/login';
    Data:=TStringlist.Create;
    Data.Add('user[login]='+ Edit1.Text);
    Data.Add('user[pass]='+ Edit2.Text);
    Data.Add('user[submit]=Войти');
    HTML:=IdHTTP1.Post(go, data);
    Form1.Memo1.Lines.Add(HTML);
    end;

    end.

    можно делать и на подобие steam, origin, yandex.money и т.д?