Delphi World - Как отправить бинарные данные из CGI приложения

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Как отправить бинарные данные из CGI приложения

Интернетчик является утром домой. Жена спрашивает:
- Где был?!
- У любовницы...
- Врешь, опять всю ночь в Интернете просидел!

Не для кого не секрет, как просто можно получать данные различного типа из CGI приложения. Однако, иногда необходимо, чтобы данные сохранялись в виде файла с определённым именем, типа "Test.ZIP". Для этого необходимо добавить в заголовок HTTP пункт "Content-Disposition".

В Delphi для этого используется свойство CustomHeaders. В это TStrings свойство можно добавлять пункты в виде "name=value" - так как HTTP синтакс name:value здесь не используется.

procedure TWebModule1.WebModule1CHECKSTATUSAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  s: TFileStream;
begin
  s := nil;
  if request.query='download' then
    try
      response.Title := 'Download Test.ZIP';
      response.CustomHeaders.Add ('Content-Disposition=filename=Test.zip');
      response.ContentType := 'application/zip';
      s := TFileStream.Create (fmOpenRead+fmShareDenyNone,'Test.zip');
      response.contentstream := s;
      response.sendresponse;
    finally
      s.Free;
    end;
end;