procedure TGetDataThread.DoGetData; 
var 
 FFile_Handle:THandle; 
 FFile_Map:THandle; 
 list:TStringList; 
 p:PChar; 
 i,interval:Integer; 
begin 
 try 
 totallen := 0; 
 offset := 0; 
 tstream := TMemoryStream.Create; 
 stream := TMemoryStream.Create; 
 list := TStringList.Create; 
 //獲取系統(tǒng)信息 
 GetSystemInfo(sysinfo); 
 //頁面分配粒度大小 
 blocksize := sysinfo.dwAllocationGranularity; 
 //打開文件 
 FFile_Handle := CreateFile(PChar(FSourceFileName),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0); 
 if FFile_Handle = INVALID_HANDLE_VALUE then Exit; 
 //獲取文件尺寸 
 filesize := GetFileSize(FFile_Handle,nil); 
 //創(chuàng)建映射 
 FFile_Map := CreateFileMapping(FFile_Handle,nil,PAGE_READONLY,0,0,nil); 
 if FFile_Map = 0 then Exit; 
 //此處我們已10倍blocksize為一個數(shù)據(jù)塊來映射，如果文件尺寸小于10倍blocksize，則直接映射整個文件長度 
 if filesize div blocksize > 10 then 
  readlen := 10*blocksize 
 else 
  readlen := filesize; 
 for i := 0 to FInfoList.Count - 1 do 
 begin 
  list.Delimiter := ':'; 
  list.DelimitedText := FInfoList.Strings[i]; 
  //取得長度，我這里做了解析，因為我存儲的信息為 a:b:c 這種類型，所以以:號分隔 
  len := StrToInt(list.Strings[1]); 
  interval := StrToInt(list.Strings[2]); 
  if (i = 0) or (totallen+len >=readlen) then 
  begin 
   //如果已讀取的長度加上即將要讀取的長度大于 10倍blocksize，那么我們要保留之前映射末尾的內(nèi)容，以便和新映射的內(nèi)容合并 
   if i > 0 then 
   begin 
    offset := offset + readlen; 
    //寫入臨時流 
    tstream.Write(p^,readlen-totallen); 
    tstream.Position := 0; 
   end; 
   //如果未讀取的數(shù)據(jù)長度已經(jīng)不夠一個分配粒度，那么就直接映射剩下的長度 
   if filesize-offset < blocksize then 
    readlen := filesize-offset; 
   //映射，p是指向映射區(qū)域的指針 
   //注意這里第三個參數(shù)，一直設(shè)為0，這個值要根據(jù)實際情況設(shè)置 
   p := PChar(MapViewOfFile(FFile_Map,FILE_MAP_READ,0,offset,readlen)); 
  end; 
  //如果臨時流中有數(shù)據(jù)，需要合并 
  if tstream.Size > 0 then 
  begin 
   //把臨時流數(shù)據(jù)copy過來 
   stream.CopyFrom(tstream,tstream.Size); 
   //然后在末尾寫入新數(shù)據(jù)，合并完成 
   stream.Write(p^,len-tstream.Size); 
   totallen := len-tstream.Size; 
   //移動指針的位置，指向下一個數(shù)據(jù)的開始 
   Inc(p,len-tstream.Size); 
   tstream.Clear; 
  end 
  else 
  begin 
   stream.Write(p^,len); 
   totallen := totallen + len; 
   Inc(p,len); 
  end; 
  stream.Position := 0; 
  //將流保存成文件 
  stream.SaveToFile(IntToStr(i)+'.txt'); 
  stream.Clear; 
 end; 
 finally 
  stream.Free; 
  tstream.Free; 
  CloseHandle(FFile_Handle); 
  CloseHandle(FFile_Map); 
 end; 
end;