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

@neoMitya · Регистрация: 27.10.2009

Студворк — интернет-сервис помощи студентам

Для работы с xml использовал стандартный TXMLDocument. Собственно, вот функция для выгрузки содержимого blob поля:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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.........
}

и пример использования в цикле...:

C++
1
2
3
4
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)));
}

С обратным преобразованием пришлось немного помучиться и убить пару часов на чтение форумов. Тут нам понадобиться доп. функция (ссылку не дам ибо уже не помню где её нашёл):

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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;
}

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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;
}

Ну и пример использования:

C++
1
2
3
4
5
6
7
_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()));
}

Если где можно оптимизировать, с радостью выслушаю, а так, код рабочий, проверено. Для справки, данные выгружаются и БД Interbase в БД Oracle

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

Опции темы