Function VarToBinary

sourcecommon/utils.cpp:1051–1134

---------------------------------------------------------------------------

}
//---------------------------------------------------------------------------
int VarToBinary(Variant v, BYTE * buf, int size)
{
  int RetVal = 0;
  try
  {
    if( v.IsArray() )
    {
      int n = v.ArrayHighBound();
      for(int j = v.ArrayLowBound(); j<=n; j++)
      {
        RetVal += VarToBinary(v.GetElement(j), buf+RetVal, size-RetVal);
        if( RetVal >= size ) return RetVal;
      }
    }
    else
    {
      switch( v.Type() )
      {
        //case varEmpty	0x0000	The variant is Unassigned.
        //case varNull	0x0001	The variant is Null.
        case varSmallint: //	0x0002	16-bit signed integer (type short int)
          *(short int *)(buf+RetVal) = (short int)v;
          RetVal += sizeof(short int);
        break;
        case varInteger: //	0x0003	32-bit signed integer (type int).
          *(int *)(buf+RetVal) = (int)v;
          RetVal += sizeof(int);
        break;
        case varSingle: //	0x0004	Single-precision floating-point value (type float)
          *(float *)(buf+RetVal) = (float)v;
          RetVal += sizeof(float);
        break;
        case varDouble: //	0x0005	Double-precision floating-point value (type double).
          *(double *)(buf+RetVal) = (double)v;
          RetVal += sizeof(double);
        break;
        case varCurrency: //	0x0006	Currency floating-point value (type Currency).
		  *(Currency *)(buf+RetVal) = (Currency)(double)v;
		  RetVal += sizeof(Currency);
        break;
		case varDate: //	0x0007	Date and time value (type TDateTime).
		  *(TDateTime *)(buf+RetVal) = (TDateTime)(double)v;
          RetVal += sizeof(TDateTime);
        break;
		case varOleStr: //	0x0008	Reference to a dynamically allocated Unicode string.
		{
		  AnsiString s = v;
		  lstrcpy(buf+RetVal, s.c_str());
		  RetVal += lstrlen(s.c_str());
		}
		break;
        //case varDispatch	0x0009	Reference to an OLE automation object (an IDispatch interface pointer).
        case varError: //	0x000A	Operating system error code.
          *(int *)(buf+RetVal) = (int)v;
          RetVal += sizeof(int);
        break;
        case varBoolean: //	0x000B	16-bit boolean (type WordBool).
          *(WordBool *)(buf+RetVal) = (WordBool)v;