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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.10.2011, 11:15   #1
Arsenx777
Delphi, c++, php
Форумчанин
 
Аватар для Arsenx777
 
Регистрация: 14.03.2011
Сообщений: 288
Печаль Создание своей темы на маил

Добрый день форумчане! Я написал авторизацию на mail.ru через idhttp (авторизация произлшла успешна!), потом я решил программно создать свой вопрос на otvet.mail.ru/ask/
Код:
procedure Tava.Execute;
var teminfo: TStringList;
  ch,htmlcod: string;
begin
  teminfo:=TStringList.Create;
  htmlcod:=form1.IdHTTP1.Get('http://otvet.mail.ru/ask/');
  ch:=copy(htmlcod,pos('name="ch"',htmlcod)+19, pos('name="test"',htmlcod)-pos('name="ch"',htmlcod)-46);
  form1.Memo2.Text:=form1.IdHTTP1.Get('http://otvet.mail.ru/ask/');
try
  teminfo.Add('qtext='+form1.Edit3.Text);
  teminfo.Add('Body='+form1.Memo1.Text);
  teminfo.Add('cid=4');
  teminfo.Add('subcid=1331');
  teminfo.Add('action=authaddqst');
  teminfo.Add('HTMLMessage=1');
  teminfo.Add('text=');
  teminfo.Add('ch='+ch);
  teminfo.Add('test=ТЕСТ');
  teminfo.Add('orfo=');
  teminfo.Add('tags=');
  teminfo.Add('watch=1');
  //teminfo.Add('poll_option=');
  form1.Memo2.Text:=form1.IdHTTP1.post('http://otvet.mail.ru/ask/doit',teminfo);
finally
  teminfo.free;
end;
Это происходит в потоке thread, ошибок некаких нет, но почемуто мой вопрос не появляется в теме, В чем у меня ощибка? уже второй день не получатся, я даже сниффером проверял вроде все параметры правильно передаю!
Мудр тот, кто знает нужное, а не многое.

Arsenx777 вне форума Ответить с цитированием
Старый 16.10.2011, 14:54   #2
Arsenx777
Delphi, c++, php
Форумчанин
 
Аватар для Arsenx777
 
Регистрация: 14.03.2011
Сообщений: 288
По умолчанию

noMoruTe no}|{aJIyu'cTa
Мудр тот, кто знает нужное, а не многое.

Arsenx777 вне форума Ответить с цитированием
Старый 16.10.2011, 17:53   #3
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

Может там кукисы? Без них авторизация не имеет смысла т.к. активная сессия живёт только в кукисе клиента. Или может так знаменитая капЧЁ...
Человек_Борща вне форума Ответить с цитированием
Старый 16.10.2011, 19:43   #4
Arsenx777
Delphi, c++, php
Форумчанин
 
Аватар для Arsenx777
 
Регистрация: 14.03.2011
Сообщений: 288
По умолчанию

Не дело не в кукисах проверял! и капчи там нет! не могу понять в чем проблема?
Мудр тот, кто знает нужное, а не многое.

Arsenx777 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
И снова создание своей ОС bookkc Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 10 02.01.2012 17:02
Wordpress создание шаблона(темы)! Andersen1313 WordPress и другие CMS 3 18.09.2011 04:39
Создание своей операционной системы Kj_ZloyiQ Операционные системы общие вопросы 14 22.02.2009 01:01
Создание своей процедуры kuzmich Общие вопросы Delphi 7 12.01.2009 15:17
создание своей кнопки А. Долматов Компоненты Delphi 8 27.08.2007 17:54