Webアプリで Gifイメージを返す

(Delphi 4 以降) Webサーバーアプリケーションから GIFイメージを返す方法です。Jpegはヘルプに例が掲載されています。「TWebResponse.ContentStream」を調べてください。
ContentTypeには MIME コンテンツタイプを指定します。

■ Webサーバーアプリケーションから Gifイメージを返す例 
  procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
    Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  var
    FileStream: TFileStream;
    FileName: string;
  begin
    //画像のファイル名
    FileName    :=  ExtractFilePath(ParamStr(0)) + 'delphi.gif';
    //ファイルストリームの生成
    FileStream  :=  TFileStream.Create(FileName,fmOpenRead);
    //レスポンスの設定
    Response.ContentType  :=  'image/gif';
    Response.ContentStream:=  FileStream;
    Response.SendResponse;
    FileStream.Free;
  end;