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

显示图片

var
   FS: TFileStream;
  S: string;
begin
    S := ExtractFilePath (ParamStr (0))+ Request.PathInfo;
       Response.ContentType := 'image/png';
      FS := TFileStream.Create(S , fmOpenRead);
      Response.ContentStream := FS;
      Response.SendResponse;
   Handled := True;
end;

 显示文本

  S := ExtractFilePath (ParamStr (0))+ Request.PathInfo;
      FS := TFileStream.Create(S , fmOpenRead);
      Response.ContentStream := FS;