[Delphi] проблема с Get запросом

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by solo, 25 Apr 2011.

  1. solo

    solo New Member

    Joined:
    16 Apr 2011
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    Есть готовая написанная функция авторизации на сайте vceti.by
    Code:
    function TForm1.GetNameVSetiBy(email, password: string): string;
    
    При нажатии на Button2 в Caption формы выводится Имя и фамилия пользователя.
    Code:
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    Form1.Caption:=('Вы вошли как:') + (GetNameVSetiBy(Edit3.Text, Edit4.Text));
    end;
    
    Как создать Get запрос с использованием уже написанной ранее функции, что бы при нажатии уже на Button1 мы в проголосовали в опросе какой либо группы...
    пробовал так:
    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    IdHTTP1.Get('http://vseti.by/groups.php?act=avote&option=1&vid='+Edit2.Text+'&type=voting&tid='+Edit5.Text+'&oid='+Edit1.Text);
    end;
    
    Но выбило ошибку. Надеюсь на вашу помощь.
    Человек я щедрый ^^ , тому кто поможет небольшое вознограждение в виде голосов вконтакте - профиль vkontakte.ru/solo555
     
    #1 solo, 25 Apr 2011
    Last edited: 25 Apr 2011
  2. Voland-791

    Voland-791 Member

    Joined:
    1 May 2009
    Messages:
    163
    Likes Received:
    13
    Reputations:
    5
    Наколько знаю если накручивать голосование то делается через Post
    и немешало бы дабавить
    try
    ..
    except
    end;
     
  3. @leks@

    @leks@ New Member

    Joined:
    28 Nov 2009
    Messages:
    32
    Likes Received:
    0
    Reputations:
    0
    ну во первых IdHTTP1.Get тот не нужен..... хотя так проще но это кака..
    юзай IdHTTP1.Post
    в третихю.... лучше брать свае чем брать готовае....
    перепиши готовый и поймешь...
     
  4. solo

    solo New Member

    Joined:
    16 Apr 2011
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    что то на подобии этого?

    Code:
    begin
      http:=TIdHTTP.Create(nil);
      cook:=TIdCookieManager.Create(nil);
      http.CookieManager:=cook;
      http.HandleRedirects:=true;
      http.AllowCookies:=true;
      s:=TStringList.Create;
      s.Add('act=avote');
      s.Add('option=1');
      s.Add('vid='+Edit2.text);
      s.Add('type=voting');
      s.Add('tid='+Edit5.Text);
      s.Add('oid='+Edit1.Text);
      try
      resp:=http.Post('http://vseti.by/groups.php', s);
      except
      end;
    end;
    
    Ошибку не выбивает, но и голосование осталось неизменным..
     
  5. solo

    solo New Member

    Joined:
    16 Apr 2011
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    Готовое, всмысле уже написанное мной ранее...
     
  6. Voland-791

    Voland-791 Member

    Joined:
    1 May 2009
    Messages:
    163
    Likes Received:
    13
    Reputations:
    5
    Возможно какойто запрос не указан.. эту нехватку можно найти через аддон Temper Data отлично справляется
     
  7. solo

    solo New Member

    Joined:
    16 Apr 2011
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    Это сниффер? Я пользовался http Analyzer'ом вот всё что показало
    Code:
    act=avote&option=1&vid=XXXXXXXX&type=voting&tid=XXXXXXXXX&oid=XXXXXXXXXXXXXX
    и при переходе по обычной ссылке в браузере
    http://vseti.by/groups.php?act=avote&option=1&vid=XXXXXXXXXX&type=voting&tid=XXXXXXXXX&oid=XXXXXXXX
    мы проголосуем но лишь за первый пост
     
  8. @leks@

    @leks@ New Member

    Joined:
    28 Nov 2009
    Messages:
    32
    Likes Received:
    0
    Reputations:
    0
    ошибка очевидна...... вот тебе подсказка
     
  9. solo

    solo New Member

    Joined:
    16 Apr 2011
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    мб мне туго доходит ^^..?
    сложно исправить ошибку? я же не прошу написать всю функцию
     
  10. patcher

    patcher Banned

    Joined:
    15 Dec 2009
    Messages:
    190
    Likes Received:
    37
    Reputations:
    10
    solo, перепиши чуть функцию логина так, чтобы CookieManager передавался ей в качестве переменной и используй его далее для необходимых тебе мпнипуляций. а вообще если ты просишь чтобы за тебя писали все процедуры по отдельности, а потом еще и помогали их совместить, то ты ошибся разделом - тебе в работу;)
     
  11. @leks@

    @leks@ New Member

    Joined:
    28 Nov 2009
    Messages:
    32
    Likes Received:
    0
    Reputations:
    0
    UTF8Encode