выгрузка blob полей в xml и обратная загрузка из xml в blob

AnsiString TExportForm::BlobToStr(TField *Field)
{
AnsiString str;
TStream *Stream;
int MemSize;
char *Buffer;
 
Stream = Field->DataSet->CreateBlobStream(Field,bmRead);//инициализируем поток
MemSize = Stream->Size;//чтоб сто раз не вызывать функцию
Buffer = new char[MemSize];
Stream->Read(Buffer, MemSize);//записываем поток в буфер
 
for(int i = 0; i < MemSize; i++)//в цикле, побайтно приводим символы в 16ричный вид
{
        AnsiString temp = IntToHex(Buffer[i],2);
        if(temp.SubString(1,6).AnsiCompareIC("FFFFFF") == 0)//убираем мусор, если он есть
                temp.Delete(1,6);
        str += temp;
}
delete[] Buffer;
return str;//собственно строка... вида FFD8FFE100664578696600004D4D0.........
}

if(IBPersonQuery->Fields->FieldByNumber(i)->ClassNameIs("TBlobField") && ((TBlobField *)IBPersonQuery->Fields->FieldByNumber(i))->BlobSize)
{
     _di_IXMLNode PersonData->AddChild(IBPersonQuery->Fields->FieldByNumber(i)->FieldName)->SetNodeValue(BlobToStr(IBPersonQuery->Fields->FieldByNumber(i)));
}

int _httoi(const TCHAR *value)
{
  struct CHexMap
  {
    TCHAR chr;
    int value;
  };
  const int HexMapL = 16;
  CHexMap HexMap[HexMapL] =
  {
    {'0', 0}, {'1', 1},
    {'2', 2}, {'3', 3},
    {'4', 4}, {'5', 5},
    {'6', 6}, {'7', 7},
    {'8', 8}, {'9', 9},
    {'A', 10}, {'B', 11},
    {'C', 12}, {'D', 13},
    {'E', 14}, {'F', 15}
  };
  TCHAR *mstr = _tcsupr(_tcsdup(value));
  TCHAR *s = mstr;
  int result = 0;
  if (*s == '0' && *(s + 1) == 'X') s += 2;
  bool firsttime = true;
  while (*s != '\0')
  {
    bool found = false;
    for (int i = 0; i < HexMapL; i++)
    {
      if (*s == HexMap[i].chr)
      {
        if (!firsttime) result <<= 4;
        result |= HexMap[i].value;
        found = true;
        break;
      }
    }
    if (!found) break;
    s++;
    firsttime = false;
  }
  free(mstr);
  return result;
}

TStream *StrToBlob(AnsiString str)
{
TStream *out_stream = new TMemoryStream;
int BufSize = str.Length();
char Buffer[1];
Buffer[0] = '\0';
AnsiString temp;
 
for(int i = 1; i <= BufSize; i += 2)
{
        AnsiString s = str.SubString(i,2);//читаем по 2 символа из строки
        Buffer[0] = _httoi(s.c_str());//приводим их в 16ричный вид
        temp += Buffer[0];
}
out_stream->Write(temp.c_str(),BufSize/2);//записываем размером BufSize/2 так как 2 символа из исходной строки после конвертации превращаются в 1 байт, тобишь в 1 символ 
return out_stream;
}

_di_IXMLNodeList PersonData =....;
for(int q = 0; q < PersonData->Count; q++)
{
........
     if(AnsiString(PersonData->Get(q)->GetNodeName()).AnsiCompareIC("foto") == 0)//если нашли нужный узел
          OraPersonQueryFOTO->LoadFromStream(StrToBlob(PersonData->Get(q)->GetNodeValue()));
}