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

Материал из DRKB


Не для кого не секрет, как просто можно получать данные различного типа из 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;


Source: http://forum.sources.ru
ID: 03422