Как отправить бинарные данные из 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;
|
|
|
|
|
Мебель кухни, производство мебели для кухни. Кухни производства россии мебельная фабрика кухни. . ЕДАПС . дом 2 новости сегодня . Стабилизатор напряжения volter 14ш. . Фитнес на Северо-Западе Москвы - фитнес центр. N-ERGO: Дарите фитнес любимым. . дефектоскоп . |
