Как исправить кодировку?

[JGalt]

Всем привет! Пытаюсь с помощью synapse получить код страницы:

var

 b:string;
 HTTP: THTTPSend;
 Data,f: TStringStream;
 begin
  http:=thttpsend.Create;
  Data := TStringStream.Create('');
   Data.WriteString('(Request-Line):GET /catalog/181/women.aspx HTTP/1.1');
  Data.WriteString('Host:www.wildberries.ru');
  Data.WriteString('Content-Type:text/html; charset=windows-1251');
  Data.WriteString('Connection:keep-alive');
  Data.WriteString('Accept:text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8');
  Data.WriteString('User-Agent:Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.66 Safari/537.36');
  Data.WriteString('Accept-Encoding:gzip');
  Data.WriteString('Accept-Language:ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4');
  Data.Position := 0;
  HTTP.Document.LoadFromStream(Data);
  HTTP.HTTPMethod('get','http://www.wildberries.ru/catalog/1/women.aspx');
    RichEdit2.Lines.Add(http.Headers.Text);
    RichEdit1.Lines.LoadFromStream(HTTP.Document);
   
  http.Clear;
 end;

Как исправить кодировку?

[Lardes]

Причем здесь кодировка? Лучше исправь код, т.к. нет смысла засовывать в тело документа то, что должно относиться к заголовкам

[JGalt]

АГА =) ладно, попробую =)

А так:

var

 b:string;
 HTTP: THTTPSend;
 Data: TStringStream;
 stream:TMemoryStream;
 begin
  http:=thttpsend.Create;
  Data := TStringStream.Create('');
   Data.WriteString('(Request-Line):GET /catalog/181/women.aspx HTTP/1.1');
  Data.WriteString('Host:www.wildberries.ru');
  Data.WriteString('Content-Type:text/html; charset=windows-1251');
  Data.WriteString('Connection:keep-alive');
  Data.WriteString('Accept:text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8');
  Data.WriteString('User-Agent:Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.66 Safari/537.36');
  Data.WriteString('Accept-Encoding:gzip');
  Data.WriteString('Accept-Language:ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4');
  HTTP.HTTPMethod('get','http://www.wildberries.ru/catalog/181/women.aspx');
  RichEdit2.Lines.Add(http.Headers.Text);
  Data.Position:=0;
  stream:=HTTP.Document;
  stream.Position:=0;
  RichEdit1.Lines.LoadFromStream(stream);
  http.Clear;
 end;

[eval]

ну и зачем тут эта Data?

[Кольша]

Data: TStringStream; вам здесь вообще не нужно.

[JGalt]

Согласен, date может и не нужно, но итог тот же. Код получается из иероглифов.

[Lardes]

Во вложении смотри проект.

Data.WriteString('(Request-Line):GET /catalog/181/women.aspx HTTP/1.1');
  Data.WriteString('Host:www.wildberries.ru');
  Data.WriteString('Content-Type:text/html; charset=windows-1251');
  Data.WriteString('Connection:keep-alive');
  Data.WriteString('Accept:text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8');
  Data.WriteString('User-Agent:Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.66 Safari/537.36');
  Data.WriteString('Accept-Encoding:gzip');
  Data.WriteString('Accept-Language:ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4');
  Data.Position := 0;
  HTTP.Document.LoadFromStream(Data);

Здесь ты записываешь "заголовки" в тело документа (HTTP.Document), а это неверно. Правильнее будет:

  HTTP.Headers.Add('Accept-Encoding: gzip, deflate');
  HTTP.Headers.Add('Accept-Language:ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4');
  { и так далее }

На будущее, если ты будешь указывать в заголовках (HTTP.Headers) такие параметры, как Accept-Encoding: gzip, то сервер, если он поддерживает, отправит тебе в ответ сжатый исходник страницы.

UPD. Пожалуйста

[JGalt]

Круто! Спасибо. Наконец то понял что тупил. Сначала думал через пост делать.

Странно! Вчера получал нормальный код, а сегодня опять хрень! =( В чем может быть проблема?

[Кольша]

Код получения в студию.

[eval]

Вчера была пятница, в пятницу всегда все ок.