Перейти к содержанию
Fire Monkey от А до Я
  • 0

NetHTTPClient Compression?


brunnengi

Вопрос

Рекомендуемые сообщения

  • 0

Это "не стандартное" поведение, обычно клиент не сжимает, но RFC это не запрещает... но проверь поймет ли сервер твой запрос
я использую deflate, gzip это тотже deflate столько с заголовками и CRC и заморочек в связи с этим больше...
 

function CompressData(const Data:TBytes):TBytes;
var Source, Dest:TBytesStream;
begin
  Dest:= TBytesStream.Create;
  try
    Source:=TBytesStream.Create(Data);
    try
      ZCompressStream(Source, Dest, zcMax);
    finally
      Source.Free;
    end;
    Dest.Size:=Dest.Size;
    result:=Dest.Bytes;
  finally
    Dest.Free;
  end;
end;

//AHTUNG! Non standart Request Header (with standart Name)! If truble - Rename то X-Content-Encoding
  var Params:TBytes;
  if length(Params)>MinCompressionSize then
  begin
    Params:=CompressData(Params);
    NetHeaders.Value['Content-Encoding']:='deflate';
  end;

 

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...