webBroker显示服务上的图片和文本文件

WebBroker StandAlone 模式下当作一个普通的 WebServer 响应静态网页或其它文件的请求

procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
   FS: TFileStream;
 ext, S: string;
begin
  S := ExtractFilePath (ParamStr (0))+ Request.PathInfo;
   Ext := LowerCase(ExtractFileExt(S ));
     //显示文本
  if (Ext = '.html') or (Ext = '.htm') or (Ext = '.css') or (Ext = '.js') or (Ext = '.txt') then begin
   Response.ContentType := 'text/plain; charset="UTF-8"';
      FS := TFileStream.Create(S , fmOpenRead);
      Response.ContentStream := FS;
       Handled := True;
    Exit;
  end;
      //显示图片
   if (Ext = '.jpg') or (Ext = '.jpeg') or (Ext = '.png') or (Ext = '.bmp') or (Ext = '.gif') then begin
       Response.ContentType := 'image/png';
      FS := TFileStream.Create(S , fmOpenRead);
      Response.ContentStream := FS;
      Response.SendResponse;
       Handled := True;
      Exit;
   end;

end;

显示图片

 显示文本