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;  //獲取系統信息  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);  //創建映射  FFile_Map := CreateFileMapping(FFile_Handle,nil,PAGE_READONLY,0,0,nil);  if FFile_Map = 0 then Exit;  //此處我們已10倍blocksize為一個數據塊來映射，如果文件尺寸小于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，那么我們要保留之前映射末尾的內容，以便和新映射的內容合并    if i > 0 then    begin     offset := offset + readlen;     //寫入臨時流     tstream.Write(p^,readlen-totallen);     tstream.Position := 0;    end;    //如果未讀取的數據長度已經不夠一個分配粒度，那么就直接映射剩下的長度    if filesize-offset < blocksize then     readlen := filesize-offset;    //映射，p是指向映射區域的指針    //注意這里第三個參數，一直設為0，這個值要根據實際情況設置    p := PChar(MapViewOfFile(FFile_Map,FILE_MAP_READ,0,offset,readlen));   end;   //如果臨時流中有數據，需要合并   if tstream.Size > 0 then   begin    //把臨時流數據copy過來    stream.CopyFrom(tstream,tstream.Size);    //然后在末尾寫入新數據，合并完成    stream.Write(p^,len-tstream.Size);    totallen := len-tstream.Size;    //移動指針的位置，指向下一個數據的開始    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;