上次发的贴子可能因为代码太长一天都没有人回复，所以把问题分开； 在不改变文件大小的情况下改写文件数据，我试着用FileWrite来写可以实现，但问题又来了，怎么样才能和IdHTTP关联起来？我想用MemoryStream来关联起来，但不知为什么写入的数据一直不正确，请帮忙指正，代码如下： procedure TForm1.Button1Click(Sender: TObject); var Mydown:TIdHTTP; Ms:TMemoryStream; aH,abuf:THandle; //FileOpen句柄 aURL:string; //网址 aSize:int64; //远程文件大小 begin aURL:='http://210.51.190.26:8000/1.rar'; //下载网址 Mydown:=TIdHTTP.Create(nil); Ms:=TMemoryStream.Create; Mydown.Head(aURL); aSize:=Mydown.Response.ContentLength; //取得文件大小 Mydown.Response.ContentRangeStart:=0; //从远程文件0位置开始 Mydown.Response.ContentRangeEnd:=aSize; //到远程文件尾结束 aH:=FileOpen('1.rar',fmOpenWrite or fmShareDenyNone); //打开已存在的1.rar文件 try abuf:=Mydown.Get(aURL,Ms); FileWrite(aH,abuf,aSize); //将下载文件内容写入文件（问题应该就在这里） finally Mydown.Free; //释放IDHTTP Ms.Free; //释放MEMORYSTREAM FileClose(aH) //释放FILEOPEN end; end; 發表人 - lonmener 於 2005/09/06 17:11:44

  //Ms:TMemoryStream;
  //aH,abuf:THandle;
  fs: TFileStream;
  ...
  Mydown:=TIdHTTP.Create(nil);
  //Ms:=TMemoryStream.Create;      fs := TFileStream.Create('1.rar',fmOpenWrite or fmShareDenyNone);
  //aH:=FileOpen('1.rar',fmOpenWrite or fmShareDenyNone);      try
    Mydown.Get(aURL,fs);
    //FileWrite(aH,abuf,aSize);
  finally
    Mydown.Free;
    fs.Free;
    //Ms.Free;
    //FileClose(aH);
  end;

Mydown.Get(aURL) 傳回的是 String 不是 Handle.... 如上改法試試看...

这个用过，能正常保存数据， 但是有一个问题：想在不改变原文件大小的情况下改写数据 我在下载前，先在磁盘上创建了一个与远程文件大小相同、内容为空的文件， 我想把下载远程文件的一部分，然后把下载的这部分保存在下载前创建的文件中，但不改变原文件的大小，如果用filestream的话，只下载一部分会改变原创建文件的大小；是否有办法解决？ 同时谢谢malanlk老哥一直对我的帮助！！！！！！！！！！！！

FileStream 也是可以用 Seek 來移動檔案指標啊... Create 的時候用 fmOpenReadWrite Create 後 Seek 到適當指標 Free 前將指標移到尾端.... 這樣試試吧...

谢谢老大，成功！ 不过我用的是filestream.size 一会我再试一下seek