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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.09.2009, 22:28   #1
pesi
Подтвердите свой е-майл
 
Регистрация: 05.03.2009
Сообщений: 65
По умолчанию HTTP/1.1 500 Internal Server Error

Делаю Post на (http://sms.tele2.ru/Default.aspx) и получаю ошибку HTTP/1.1 500 Internal Server Error подскажите что делать?
pesi вне форума Ответить с цитированием
Старый 22.09.2009, 22:46   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

возможно изза незаполненных полей запроса
попробуйте вбить реферера (tele2.ru)
и прочие поля(подсмотреть и браузера можно)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 22.09.2009, 23:15   #3
pesi
Подтвердите свой е-майл
 
Регистрация: 05.03.2009
Сообщений: 65
По умолчанию

не помого
Код:
var
messaga, otvet: TStringList;
st1, st2:string;
begin
st1:= 'dDwtMTU2NDA3NjUyMTt0PDtsPGk8MT47PjtsPHQ8O2w8aTwzPjs+O2w8dDx0PHA8cDxsPERhdGFUZXh0RmllbGQ7RGF0YVZhbHVlRmllbGQ7Pjts';
st2:='PHByZWZpeDtwcmVmaXg7Pj47Pjt0PGk8Nz47QDw5MDI7OTA0OzkwODs5NTA7OTUxOzk1Mjs5NTM7PjtAPDkwMjs5MDQ7OTA4Ozk1MDs5NTE7OTUyOzk1Mzs+Pjs+Ozs+Oz4+Oz4+Oz4HBqVRonImnri1oBXh875o45/P1w==';

Application.ProcessMessages;
  idhttp1.Request.Referer:='http://sms.tele2.ru/Default.aspx';
  idhttp1.Request.ContentType:='application/x-www-form-urlencoded';
  idhttp1.Request.CacheControl:='no-cache';
  idhttp1.Request.Connection:='Keep-Alive';
  idhttp1.Request.Host:='sms.tele2.ru';
  idhttp1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 3.0.04506)';
  idhttp1.Request.AcceptLanguage:='ru';
  idhttp1.Request.Accept:='image/gif, image/jpeg, image/pjpeg, application/x-ms-application, application/vnd.ms-xpsdocument, application/xaml+xml, application/x-ms-xbap, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*';
  idhttp1.Request.ContentLength:=678;

  messaga:=TStringList.Create;
  otvet:=TStringList.Create;
  messaga.Add('__VIEWSTATE=' + st1+st2);
  messaga.Add('PrePhone='+combobox1.Text);
  messaga.Add('phoneNumber='+Edit1.Text);
  messaga.Add('smsText='+Memo1.Text);
  messaga.Add('code='+Edit2.Text);
  messaga.Add('Button1=Отправить');
  otvet.Clear;
  otvet.Text:=IdHTTP1.Post('http://sms.tele2.ru/Default.aspx', messaga);
  messaga.Free;
  otvet.Free;
  IdHTTP1.ReadTimeout:= 10000;
end;
pesi вне форума Ответить с цитированием
Старый 22.09.2009, 23:30   #4
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Цитата:
<input type="hidden" name="__VIEWSTATE" value="dDwtMTU2NDA3NjUyMTt0PDtsPGk8 MT47PjtsPHQ8O2w8aTwzPjs+O2w8dDx0PHA 8cDxsPERhdGFUZXh0RmllbGQ7RGF0YVZhbH VlRmllbGQ7PjtsPHByZWZpeDtwcmVmaXg7P j47Pjt0PGk8Nz47QDw5MDI7OTA0OzkwODs5 NTA7OTUxOzk1Mjs5NTM7PjtAPDkwMjs5MDQ 7OTA4Ozk1MDs5NTE7OTUyOzk1Mzs+Pjs+Oz s+Oz4+Oz4+Oz4HBqVRonImnri1oBXh875o4 5/P1w==" />
не думаю что он постоянный.
+там походу куки
+а где капчу то получаете??
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 23.09.2009, 15:45   #5
pesi
Подтвердите свой е-майл
 
Регистрация: 05.03.2009
Сообщений: 65
По умолчанию

Запрашиваю страницу.
Оттуда извлекаю value для __VIEWSTATE и ссылку на капчу.
Потом загружаю капчу.
pesi вне форума Ответить с цитированием
Старый 23.09.2009, 16:01   #6
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

в вашем примере этого нет.
что с куки?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
SQL Error: MySQL server has gone away [Smarik] БД в Delphi 1 14.02.2009 21:47
Client-Server на 500+ пользователей. Mixasik Работа с сетью в Delphi 8 22.08.2008 12:01
Не работает http server Дядя Фёдор Работа с сетью в Delphi 2 06.09.2007 12:53
ImageList1.Draw(Canvas,500,500,n); KAMASUTR Gamedev - cоздание игр: Unity, OpenGL, DirectX 6 12.08.2007 01:44