TFastFileStream：优化文件读取速度的新方法

之所以速度慢，是有两方面的原因：
1。用TFileStream打开文件，操作系统在打开文件后会为文件生成内存镜像，文件一大，那么开辟空间以及内存拷贝的工作就会变得极为缓慢。
2。将TFileStream中的一部分再复制给TMemoryStream，这个复制过程会开辟新的内存再进行复制，理所当然内存大了，复制时间也会变长。

我决心针对目前我所遇到的问题，再写一个文件读取类，目前就叫TFastFileStream吧，它必须从TStream继承而来，这样才能和其它组件方便地结合起来。

首先，要解决的是打开大文件慢的问题，对于这个，使用MapViewOfFile()，将文件直接当作内存镜像来访问就可以了，关于MapViewOfFile()，以及文件内存镜像，可以参考这篇文章：http://www.vccode.com/file_show.php?id=2409

Delphi下建立文件镜像的方法为：
constructor TFastFileStream.Create(const AFileName:String);
var
  FileSizeHigh:LongWord;
begin
  FFileHandle:=CreateFile(PChar(AFileName),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
  if FFileHandle=INVALID_HANDLE_VALUE then begin
    raise FastFileStreamException.Create('Error when open file');
  end;
  FSize:=GetFileSize(FFileHandle,@FileSizeHigh);
  if FSize=INVALID_FILE_SIZE then begin
    raise FastFileStreamException.Create('Error when get file size');
  end;
  FMappingHandle:=CreateFileMapping(FFileHandle,nil,PAGE_READONLY,0,0,nil);
  if FMappingHandle=0 then begin
    raise FastFileStreamException.Create('Error when mapping file');
  end;
  FMemory:=MapViewOfFile(FMappingHandle,FILE_MAP_READ,0,0,0);
  if FMemory=nil then begin
    raise FastFileStreamException.Create('Error when map view of file');
  end;
end;