Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 30.06.2011, 14:38
павлик морозоф павлик морозоф вне форума
Прохожий
 
Регистрация: 30.06.2011
Сообщения: 11
Репутация: 10
По умолчанию товарищи, просветите меня темного, ковыряю idHTTP и экспериментирую, есть вопросец

надо выбрать checkbox и нажать кнопку. код формы такой(проект otvet.mail.ru):

Код:
  <form method=post action="/doit">
    <input type=hidden name=action value='authvoteopros'>
    <input type=hidden name=ch value='45dd40589cabfafebd9fb6c7b667829f'>
    <input type=hidden name=qid value='60188888'>


    <h2 class="mt20">Варианты</h2>
<table class="Vote">

<tr><td class="pt5">
  
  <input type="checkbox" name="vote" value="5069664">
  <label for="5069664">физкультура</label>
</td>
<td class="pic"> 
    
               
</td>
<td class="right pt5">
           
        
</td>
<td class="prc pt5">
           
    
</td></tr> 
<tr><td class="pt5">

  
  <input type="checkbox" name="vote" value="5069665">
  <label for="5069665">народная медицина</label>
</td>
<td class="pic"> 
           
        
</td>
<td class="right pt5">
    
               
</td>
<td class="prc pt5">
          
    
</td></tr>  
</table>
    
        <div class="mb15"><input class="arial t75" type="submit" value="Проголосовать" /></div>
      
  </form>

то что делаю я:

Код:
post:=TStringList.Create;
//формируем пост запрос
post.Add('action=authvoteopros');
post.Add('ch=45dd40589cabfafebd9fb6c7b667829f');
post.Add('qid=60188888');
post.Add('vote=5069664');
post.Add('submit=Проголосовать');

memo2.Text:=IdHTTP1.Post('/doit',post);

что не так? почему "socket Error #10061 Connection refused" в последней строке с присваиванием в memo2 IdHTTP1.Pos? даже если в запрос забить только строки
Код:
post.Add('vote=5069664');
post.Add('submit=Проголосовать');
то результат аналогичный...
в чём трабла?
Ответить с цитированием
  #2  
Старый 30.06.2011, 14:43
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

либо Host у IdHTTP1, либо "http://host..." в IdHTTP1.Post
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 30.06.2011, 15:33
павлик морозоф павлик морозоф вне форума
Прохожий
 
Регистрация: 30.06.2011
Сообщения: 11
Репутация: 10
По умолчанию

NumLock, в host загнал адрес страницы. появилась ошибка socket error 11004. чегой-то я делаю не так?
Ответить с цитированием
  #4  
Старый 30.06.2011, 15:41
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

не знаю - я не вижу как ты делаешь.
либо так:
Код:
  IdHTTP1.Host:='www.delphisources.ru';
  Memo1.Text:=IdHTTP1.Get('/forum/showthread.php?p=83401#post83401');
либо так:
Код:
  Memo1.Text:=IdHTTP1.Get('http://www.delphisources.ru/forum/showthread.php?p=83401#post83401');
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #5  
Старый 30.06.2011, 16:14
павлик морозоф павлик морозоф вне форума
Прохожий
 
Регистрация: 30.06.2011
Сообщения: 11
Репутация: 10
По умолчанию

ну вот делаю я по аналогии, для страницы http://otvet.mail.ru/question/60188888
Код:
IdHTTP1.Host:='http://otvet.mail.ru/question/60188888'; 
Memo1.Text:=IdHTTP1.Get('/doite');
и получаю socket error 11004
Ответить с цитированием
  #6  
Старый 30.06.2011, 16:37
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

нет. аналогия это:
либо так:
Код:
  IdHTTP1.Host:='otvet.mail.ru';
  Memo1.Text:=IdHTTP1.Get('/question/60188888/doit');
либо так:
Код:
  Memo1.Text:=IdHTTP1.Get('http://otvet.mail.ru/question/60188888/doit');
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:53.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter