【LogDataServer】修改：修改支持DELPHI7编译

admin

【LogDataServer】修改：修改支持D7编译；

修改详情:[LogDataMain]中修改代码：
  ⑴.把
    procedure IdUDPServerLogUDPRead(Sender: TObject; AData: TBytes;ABinding: TIdSocketHandle);
  改为：
    procedure IdUDPServerLogUDPRead(Sender: TObject; AData: TStream;ABinding: TIdSocketHandle);
  ⑵.把
procedure TFrmLogData.IdUDPServerLogUDPRead(Sender: TObject; AData: TBytes;ABinding: TIdSocketHandle);
var
  LogStr: string;
begin
  try
    SetLength(LogStr,  Length(AData));
    Move(AData[0], LogStr[1], Length(AData));
    LogMsgList.Add(LogStr);
  except
  end;
end;
  改为：
procedure TFrmLogData.IdUDPServerLogUDPRead(Sender: TObject; AData: TStream;ABinding: TIdSocketHandle);
var
  LogStr: string;
begin
  try
    SetLength(LogStr, AData.Size);
    AData.Read(LogStr[1], AData.Size);
    LogMsgList.Add(LogStr);
  except
  end;
end;