Indy10.2.5的危险做法

为了排查一个Bug今天无意看了看Indy源码，结果吓了一跳。TIdIOHandler.ReadLongWord函数用于读取通讯数据并转换成LongWord类型返回，它做用了一种危险的做法可能会导致数据传输不正确。

函数源码如下：

function TIdIOHandler.ReadLongWord(AConvert: Boolean): LongWord;
var
  LBytes: TIdBytes;
begin
  ReadBytes(LBytes, SizeOf(LBytes), False);
  Result := BytesToLongWord(LBytes);
  if AConvert then begin
    Result := GStack.NetworkToHost(Result);
  end;
end;
问题就在于ReadBytes(LBytes, SizeOf(LBytes), False)这句，和ReadInt64、ReadByte等其他函数明显不同，读取内容的长度为SizeOf(LBytes)而非SizeOf(LongWord)。这个LBytes空间为何物？它的定义是TIdBytes = TBytes ， ==> TBytes = array of Byte，也就是说其他Byte数据类型。

LongWord类型有几长？在Delphi中它和UInt32一样是Cardinal类型，占4个字节位，即SizeOf(LongWord)=4。

LBytes类型又有几长？因为它是数组类型，最终会变成指针引用，所以和指针变量一样占一个机器字长，在32位机上就是32bit即4个字节位了，但是在64机上就要变成8个字节位了（我没64位机，请看官自行验证一下）。

这样，这个ReadLongWord函数在32位机上Read到的的确是LongWord，到了64位机上就成成了ReadInt64了，在网络通讯这种位位计较的地方数据就全乱套了。

Indy是Delphi中被使用得最多的网络通讯组件，它不断升级却也bug不断，很难想像Indy公司内部是如何进行测试的。如果是我的程序员写出这样的代码，我肯定得找他谈谈心了。