Как отправить бинарные данные из 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