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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.01.2011, 22:23   #1
fate
Форумчанин
 
Аватар для fate
 
Регистрация: 17.03.2009
Сообщений: 318
По умолчанию TWebBrowser передать post запрос

значит такс, нужно через Navigate передать парамерты post запроса
Код:
procedure TForm1.Button3Click(Sender: TObject);
var
  Flags, Headers, TargetFrameName, PostData: OLEVariant;
  Ref: string;
begin
  Flags:='4';  //не совсем понимаю для чего нужен этот параметр
  TargetFrameName:= '';
  PostData := 'resp242447_=621683&finishattempt=Отправить всё и завершить тест$timeup=0&questionids=242447';
  Ref := 'http://******/teach/mod/quiz/attempt.php?id=39522';
  Headers:='Referer: ' + Ref + #10 + #13
            +'User-Agent :      Opera/9.50 (Windows NT 5.1; U; MRA 5.6 (build 03278); ru)'+ #10 + #13
            +'Host :    ****.ru'+ #10 + #13
            +'Accept :  text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1'+ #10 + #13
            +'Accept-Language:ru-RU,ru;q=0.9,en;q=0.8'+ #10 + #13
            +'Accept-Charset:iso-8859-1, utf-8, utf-16, *;q=0.1'+ #10 + #13
            +'Accept-Encoding   :deflate, gzip, x-gzip, identity, *;q=0'+ #10 + #13
            +'Cookie: ession=3ee55f0e4e1c6be94bed88cf49e04764; PHPSESSID=73002ba1371a593bc082196170335379; vfmgiu_notauth=52240599; essionTest=86OFJ1pOqL; DLEID_=%25EF%25CD%2504M%25A1x%25BE%2505%25EF'+ #10 + #13
            +'Cookie2   :$Version=1'+ #10 + #13
            +'Connection        :Keep-Alive, TE'+ #10 + #13
            +'TE :      deflate, gzip, chunked, identity, trailers'+ #10 + #13
            +'Content-Length    :703'+ #10 + #13
            +'Content-Type:multipart/form-data; boundary=----------85NB9MngdGjxzIQWbK9W4X'+ #10 + #13 ;
 
WebBrowser1.Navigate(Edit1.Text, Flags, TargetFrameName, PostData, Headers);
 
end;
может я не правильно задаю значение PostData ?
мне WebBrowser выдает ошибку что запрос не может быть обработан
написано GET /teach/mod/quiz/attempt.php?q=6940&page=0 HTTP/1.1
и дале весь мой запрос. Но почему GET ???
fate вне форума Ответить с цитированием
Старый 15.01.2011, 03:58   #2
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,543
По умолчанию

"Кракозябры" в PosData, я так понимаю, - это русский текст?
И ещё нашeл ошибку:
+'Cookie: ession=
Надо +'Cookie: Session=
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Старый 15.01.2011, 13:17   #3
fate
Форумчанин
 
Аватар для fate
 
Регистрация: 17.03.2009
Сообщений: 318
По умолчанию

Цитата:
Сообщение от Smitt&Wesson Посмотреть сообщение
"Кракозябры" в PosData, я так понимаю, - это русский текст?
фиг знает это снифер мне показал такой запрос, это не в кракозябрах дело я пробовал другой запрос ничего не происходит
Цитата:
Сообщение от Smitt&Wesson Посмотреть сообщение
И ещё нашeл ошибку:
+'Cookie: ession=
Надо +'Cookie: Session=
я знаю, вообще-то не Session там другое, это я убрал, причина не в этом
fate вне форума Ответить с цитированием
Старый 16.01.2011, 21:49   #4
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,289
По умолчанию

Попробуйте перехватывать Charles'ом
И поле PostData лучше заполнять строками
http://devdelphi.ru/?p=114 прочтите
(не забывайте кракозябы расшифровывать хотя бы Штирлицем в норм русский язык)
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Ответ


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

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
POST запрос DeDoK Работа с сетью в Delphi 6 12.07.2009 00:48
Не получается в Post запросе передать длинный текст theYozh Работа с сетью в Delphi 17 18.05.2009 21:43
Как передать POST data через запрос в веб-приложение Anticrim Java для Web (EE, Servlet, JSP, Tomcat, Spring MVC) 3 03.10.2007 18:19