请教一下 indy10 文件分包传送

Question

 要求：传送时将文件按一定长度存入array  of   byte里，然后发送。
当接收完后，再粘连一起。看到以前有人发的代码，不过代码好像不完整。
那个高手看看里面有什么错误。
 服务端:   
  procedure   TForm1.IdTCPServer1Execute(AThread:   TIdPeerThread);   
  var   
          iFileHandle:integer;   
          iFileLen,cnt:integer;   
          buf:array[0..4096]   of   byte;   
  begin   
  //从这里开始似乎一连接上后就不停的执行   
          iFileHandle:=FileOpen('d:\ftp\qq2004sp1.txt',fmOpenRead);   
          iFileLen:=FileSeek(iFileHandle,0,2);   
          FileSeek(iFileHandle,0,0);   
          AThread.Connection.WriteInteger(iFileLen);   
          while   true   do   
          begin   
                  cnt:=FileRead(iFileHandle,buf,4096);   
                  AThread.Connection.WriteBuffer(buf,cnt);   
                  if   cnt<4096   then   
                          break;   
          end;   
          FileClose(iFileHandle);   
  end;   
    
  客户端：   
  procedure   TForm1.Button1Click(Sender:   TObject);   
  var   
          rbyte:array[0..4096]   of   byte;   
          sFile:TFileStream;   
          iFileSize:integer;   
  begin   
          try   
                  IdTcpClient1.Connect(5000);   
          except   
                  exit;   
          end;   
    
          iFileSize:=IdTCPClient1.ReadInteger;     //这里读到的iFileSize始终为-1   
    
          sFile:=TFileStream.Create('e:\bb.tmp',fmCreate);   
          While   iFileSize>4096   do   
          begin   
                  IdTCPClient1.ReadBuffer(rbyte,4096);   
                  sFile.Write(rByte,4096);   
                  inc(iFileSize,-4096);   
          end;   
          IdTCPClient1.ReadBuffer(rbyte,iFileSize);   
          sFile.Write(rByte,iFileSize);   
          sFile.Free;   
          ShowMessage('file   get   ok!');   
  end;   

Answer 1

请参考此代码
http://2ccc.com/article.asp?articleid=5167

Answer 2

上面是ID 9
这里Id 10的例子
http://2ccc.com/article.asp?articleid=3868

Answer 3

找个好心人把上面的链接的例子贴出来，谢谢本人现在在国外，不知为何凡是2ccc.com这个网站的链接我都进不去，郁闷！！！

Answer 4

转摘：
用IdTCPServer和IdTCPClient传输文件(原创)2008-02-03 08:06
   以下代码相比网上其它某些文件传输代码精练很多,传输的文件大小任意,个人建议:写网络文件传输程序时最好用Indy的控件(因为其默认即阻塞模式,Server端已封装了多线程,没有数据包大小限制),ClientSocket VS ServerSocket传输文件很麻烦,要自定通信协议,并且有个8KB的瓶颈,实现大文件传输比较麻烦,服务端发送:
var
    iFileHandle:integer;
    iFileLen,cnt:integer;
    buf:array[0..4096] of byte;
begin
    iFileHandle:=FileOpen('E:\Study\深入Delphi6网络编程.rar',fmOpenRead);
    iFileLen:=FileSeek(iFileHandle,0,2);
    FileSeek(iFileHandle,0,0);
    AThread.Connection.WriteInteger(iFileLen);
    while true do
    begin
        cnt:=FileRead(iFileHandle,buf,4096);
        AThread.Connection.WriteBuffer(buf,cnt);
        if cnt<4096 then
            break;
    end;
    FileClose(iFileHandle);
end;=======================================================客户端接收：
procedure TForm1.Button1Click(Sender: TObject);
var
    rbyte:array[0..4096] of byte;
    sFile:TFileStream;
    iFileSize:integer;
begin
    try
        IdTcpClient1.Connect(5000);
    except
        exit;
    end;    iFileSize:=IdTCPClient1.ReadInteger;    sFile:=TFileStream.Create('e:\bb.tmp',fmCreate);
    While iFileSize>4096 do
    begin
        IdTCPClient1.ReadBuffer(rbyte,4096);// .ReadBuffer(rbyte,iLen);
        sFile.Write(rByte,4096);
        inc(iFileSize,-4096);
    end;
    IdTCPClient1.ReadBuffer(rbyte,iFileSize);// .ReadBuffer(rbyte,iLen);
    sFile.Write(rByte,iFileSize);
    sFile.Free;
    ShowMessage('file get ok!');
end;
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>具体代码:Server(Receive):procedure TFrmServer.FormCreate(Sender: TObject);
begin
   IdTCPServer1.DefaultPort:=5616;
   IdTCPServer1.Active:=True;
end;procedure TFrmServer.IdTCPServer1Execute(AThread: TIdPeerThread);
var
    rbyte:array[0..4096] of byte;
    sFile:TFileStream;
    cnt,cmd,FileSize:integer;
    str,FileName:string;begin
    str:=AThread.Connection.ReadLn;   //接收文件大小及文件名
    cmd:=pos('|',str); //查找分隔符
    FileName:=copy(str,1,cmd-1); //提取文件名
    FileSize:=StrToInt(copy(str,cmd+1,Length(str)-cmd+1)); //提取文件大小
    if MessageBox(0,Pchar('用户 '+AThread.Connection.Socket.Binding.PeerIP+'要给您传送文件 "'+FileName+'" 您是接受还是拒绝?'),'文件接受',MB_YesNo or MB_ICONQUESTION)=ID_Yes then //询问是否接收
    begin
      ProgressBar1.Max:=FileSize;   //初始化进度条
      ProgressBar1.Position:=0;
      SaveDialog1.FileName:=FileName; //指定保存的默认文件名,一定要在 SaveDialog1.Execute;之前,不然文件名为空
      SaveDialog1.Execute;
      sFile:=TFileStream.Create(SaveDialog1.FileName,fmCreate); //创建待写入的文件流
      While FileSize>4096 do
      begin
        AThread.Connection.ReadBuffer(rbyte,4096);// 读取文件流
        sFile.Write(rByte,4096);      //写入文件流
        cnt:=AThread.Connection.ReadInteger; //从发送端接收最新的进度位置信息
        ProgressBar1.Position:=ProgressBar1.Position+cnt; //更新显示进度
        Label1.Caption:='当前接收进度..';
        StatusBar1.Panels[0].Text:='正在接收文件中...';
        inc(FileSize,-4096);
     end;
    AThread.Connection.ReadBuffer(rbyte,FileSize);// .ReadBuffer(rbyte,iLen);
    sFile.Write(rByte,FileSize);
    sFile.Free;
    StatusBar1.Panels[0].Text:='文件接收完成!';
    Label1.Caption:='文件接收完成!';
    end;
   END;procedure TFrmServer.FormDestroy(Sender: TObject);
begin
   IdTCPServer1.Active:=False;
   Application.Terminate;
end;
Client(Send):procedure TFrmClient.SpeedButton1Click(Sender: TObject);
begin
   OpenDialog1.Execute;
   edtFileName.Text:=OpenDialog1.FileName;
end;procedure TFrmClient.btnSendClick(Sender: TObject);
var
    iFileHandle:integer;
    iFileLen,cnt:integer;
    buf:array[0..4096] of byte;begin
if (edtAddress.Text<>'')and (edtFileName.Text<>'') then
begin
    IdTCPClient1.Host:=edtAddress.Text;
    IdTCPClient1.Port:=5616;
    try
      IdTCPClient1.Connect(5000);
    except
      StatusBar1.Panels[0].Text:='连接接受方失败!';
      exit;
    end;
    if IdTCPClient1.Connected then
    begin
      iFileHandle:=FileOpen(edtFileName.Text,fmOpenRead);
      iFileLen:=FileSeek(iFileHandle,0,2);
      FileSeek(iFileHandle,0,0);
      ProgressBar1.Max:=iFileLen;
      ProgressBar1.Position := 0;
      IdTCPClient1.WriteLn(ExtractFileName(edtFileName.Text)+'|'+IntToStr(iFileLen));
      while true do
      begin
        Application.ProcessMessages;
        cnt:=FileRead(iFileHandle,buf,4096);
        IdTCPClient1.WriteBuffer(buf,cnt);
        IdTCPClient1.WriteInteger(cnt);
        ProgressBar1.Position:=ProgressBar1.Position + cnt;
        StatusBar1.Panels[0].Text:='正在传送文件...';
        if cnt<4096 then
            break;
      end;
      FileClose(iFileHandle);
      Label2.Caption:='文件传送完成!';
      StatusBar1.Panels[0].Text:='文件传送完成!';
     end;
end
else
    ShowMessage('请选择要传送的文件和或接受方地址');
end;
http://hi.baidu.com/wh445306/blog/item/433bf51f1e28fb0e314e156d.html