求助，为什么下载的文件只有5k

Question

我单位OA用的是Lotus，我现在编一个程序，在IE右键弹出菜单上执行我的程序，下载OA上的文件.
现在问题是：
１.每次收下的文件都是5k大小，而按IE的目标另存为却没有问题.
２.Url中文件名有时会有乱码，我的程序就会出现问题，而IE的另存为能正确解析文件名.
３.在某些文件链接上按IE右键触发我的程序时经常会弹出当前脚本发生错误的对话框，提示对象不支持此属性或方法：EventElement.href　.　这个是我在GetUrl.html的VB脚本中定义的，有的文件链接时没有问题.这是我的代码，用的IDHttp控件
function TfrmDownLoad.DownLoadFile(sURL, sFName: string): boolean;
var   tStream: TMemoryStream;
begin
  tStream := TMemoryStream.Create;
  try 
    try
      IdHTTP1.Get(sURL, tStream); 
      tStream.SaveToFile(sFName);  
　     Result := True;
    finally       tStream.Free;
    end;
  except 
    Result := False;
    tStream.Free;
  end;
end;而且这个AWorkCountMax也很奇怪，跟踪调试也是5K！！就是说idhttp一开始就认为它是5k.
procedure TfrmDownLoad.IdHTTP1WorkBegin(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  ProgressBar1.Max := AWorkCountMax;
  ProgressBar1.Position := 0;
end;谢谢了.

Answer 1

我只用idhttp上传过，没有下载过，但是我知道你这个觉得错了，看看函数帮助和提示
procedure Get(AURL: string; const AResponseContent: TStream); overload;
参数是const的，你怎么可能给它赋值？？？？？
当然就得不到了

Answer 2

procedure TDownLoadThread.DownLodeFile();
var
  temhttp: TIdHTTP;
begin  temhttp := TIdHTTP.Create(nil);
  with temhttp do
  begin
    OnWorkBegin:=IdHTTPWorkBegin;
    OnWork:=IdHTTPWork;
    OnStatus:=IdHTTPStatus;
    Request.ContentRangeStart :=0;
  end;
  
 if FileExists(tFile) then //如果文件已经存在
    tStream := TFileStream.Create(tFile, fmOpenWrite)
  else
    tStream := TFileStream.Create(tFile, fmCreate);  try
    temhttp.Get(tURL, tStream); //开始下载  finally
    freeandnil(tstream);
    temhttp.Disconnect;
  end;end; 
你可以参考一下,我本机测,下电影也没问题