显示图片varFS:TFileStream;S:string;beginS:=ExtractFilePath(ParamStr(0))+Request.PathInfo;Response.ContentType:='image/png';FS:=TFileStream.Create(S,fmOpenRead);Response.ContentStream:=FS;R