Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.12.2009, 07:21   #1
Izhic
Форумчанин
 
Аватар для Izhic
 
Регистрация: 08.10.2008
Сообщений: 667
Вопрос Как послать запрос HTTP 1.1

Снифер возвращает , что это HTTP 1.0
Как сделать HTTP1.1?
~~~~~~~~~~
И ещё ... куда писать keep-alive:300
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 S: TStringList;
 P,I: integer;
 USD,EUR,AFS,pM,pP: string;

  ls: TStringList;
begin

 HTTP:=TIdHTTP.Create(nil);
 HTTP.HandleRedirects:=true;

 HTTP.ProtocolVersion:=pv1_1; 
 HTTP.Request.Host:='bit-team.com';
 HTTP.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.2) Gecko/20090729 Firefox/3.5.2';
 HTTP.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
 HTTP.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
 HTTP.Request.AcceptEncoding:='gzip, deflate';
 HTTP.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
 //??? HTTP.Request.Keep-Alive: 300
  // HTTP.HTTPOptions
 HTTP.Request.Connection:='Keep-Alive';
 HTTP.Request.Referer:='http://referer.ru';
 HTTP.Request.ContentType:='application/x-www-form-urlencoded';

ls:=TStringList.Create;
  ls.Add('user_tema=&submit=Ok');

// S:=TStringList.Create;
 Memo1.Lines.Text:=HTTP.Post('http://www.bit-team.com/index.php',ls);

 Memo1.Lines.Text:=HTTP.Response.RawHeaders.Text; //commatext

 //Memo1.Lines.add(s.Text);
 ls.Free;
 HTTP.Free;
 end;
Сниффер:

Цитата:
POST /index.php HTTP/1.0
Connection: Keep-Alive
Content-Type: application/x-www-form-urlencoded
Content-Length: 20
Host: www.bit-team.com
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Accept-Encoding: gzip, deflate, identity
Accept-Language: ru,en-us;q=0.7,en;q=0.3
Referer: http://referer.ru
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.2) Gecko/20090729 Firefox/3.5.2
Don't worry be happy

Последний раз редактировалось Izhic; 07.12.2009 в 08:44.
Izhic вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как послать message окну Johnson Общие вопросы Delphi 4 09.11.2009 15:18
как послать http-запрос? Johnson Работа с сетью в Delphi 2 06.11.2009 13:28
http-запрос Черничный Работа с сетью в Delphi 1 22.08.2008 10:57
Получение строки через HTTP запрос Никки JavaScript, Ajax 6 24.04.2008 17:56
Как послать команду AngelOfDeath Работа с сетью в Delphi 2 10.04.2008 08:23