Из строки в Base64

1С v8

14.10.13

✎

09:22

Здравствуйте!
Подскажите, пожалуйста, как из строки типа image SQL получить картинку в 1С. Нашел функцию, которая преобразует из image SQL в base64, а затем можно с помощью Base64Значение(<Строка>) получить двоичные данные и записать в картинку:

Функция ВСтрокуBase64(safeArray)
    obj = Новый COMОбъект("MSXML2.DomDocument.3.0");
    helper=obj.createElement("a");
    helper.DataType = "bin.base64";
    helper.nodeTypedValue = safeArray;
    Возврат helper.text;
КонецФункции

НО я имею значение image SQL  в виде строки "0xFFD8FFE1A88...", выгруженной в тестовый файл, поэтому данная функция ругается, что я ей не то "подсовываю" в виде значения.

1 cw014

14.10.13

✎

09:34

Просто вопрос такой, а нафига тебе оно надо? Не проще ли в файл сохарнять, а оттуда создавать объект "Картинка"?

2 Maxus43

14.10.13

✎

09:36

и зачем XML создавать через такое место? встроенный есть

3 smaharbA

14.10.13

✎

09:36

0xFFD8FFE1A88 - выдергивай не в тексте а в массиве

4 Solveig

14.10.13

✎

09:56

У меня нет доступа к базе SQL, только текстовый файл выгруженный из SQL c текстом.

5 cw014

14.10.13

✎

09:58

(4) Йопта, а нельзя была напрямую двоичные коды выгрузить. Глядишь уже готовая картинка бы была

6 Solveig

14.10.13

✎

10:01

(5) Нельзя, я ничего не могу сделать с SQL, мне выгружают только текстовый файл, с полем типа image SQL в виде строки.

7 efim16rus

14.10.13

✎

10:08

(6) Попробуй напрямую в Base64Значение передать строку из текстового файла.

8 Solveig

14.10.13

✎

10:10

(6) Пробовал, возвращает Неопределено.

9 Solveig

14.10.13

✎

10:10

(7) Пробовал, возвращает Неопределено.

10 efim16rus

14.10.13

✎

10:12

(9) Выложи содержимое текстового файла или выложи файл куда-нить в обменник

11 Solveig

14.10.13

✎

10:13

29000798|5f271d61-0e31-11da-9d6f-000fea14fb1b|5153|q001|2|29000798_5153_2_1381290245950.jpg|0xFFD8FFE1A8854578696600004D4D002A000000080007010F0002000000045A544500011000020000000800000062011A0005000000010000006A011B0005000000010000007201280003000000010002000002130003000000010001000087690004000000010000007A000001465A5445205639410000000048000000010000004800000001000A9000000700000004303232309003000200000014000000F890040002000000140000010C910100070000000401020300920A00050000000100000120A00000070000000430313030A00100030000000100010000A00200040000000100000800A00300040000000100000600A00500040000000100000128|1|823|Вложение документа по-умолчанию

Поля разделены символом |, седьмое поле - картинка.

12 arsik

гуру

14.10.13

✎

10:19

А вот без этого "0xFFD8FFE1" преобразует?

13 arsik

гуру

14.10.13

✎

10:22

+(12) первые 4 байта - это тип

14 Solveig

14.10.13

✎

10:23

(12) Преобразует, но записанная после картинка на диск не читается.

15 arsik

гуру

14.10.13

✎

10:25

(14) А должна? Мне кажется строка минус первые 4 байта и есть картинка в base64

16 smaharbA

14.10.13

✎

10:32

17 smaharbA

14.10.13

✎

10:35

Даже так

Процедура КнопкаВыполнитьНажатие(Кнопка)
    // Вставить содержимое обработчика.
    Перем КодВозврата;
    Стр=Сред(Врег(Стр),3);
    ФайлТекст=ПолучитьИмяВременногоФайла(".txt");
    ФайлБинар=ПолучитьИмяВременногоФайла(".bin");
    Текст=Новый ТекстовыйДокумент;
    Текст.УстановитьТекст(СтрЗаменить(Стр,"" "",""));
    Текст.Записать(ФайлТекст,КодировкаТекста.ANSI);
    ЗапуститьПриложение("cmd /q /c ""certutil -f -decodehex """+ФайлТекст+""" """+ФайлБинар+"""""",КаталогВременныхФайлов(),Истина,КодВозврата);
    УдалитьФайлы(ФайлТекст);
    Если КодВозврата=0 Тогда
        ДвоичныеДанные=Новый ДвоичныеДанные(ФайлБинар);
        Сообщить("Размер="+ДвоичныеДанные.Размер(),СтатусСообщения.Информация);
        Картинка=Новый Картинка(ДвоичныеДанные);
        Сообщить("Картинка="+Картинка.Формат(),СтатусСообщения.Информация);
    Иначе
        Сообщить("Фигня какая то...",СтатусСообщения.ОченьВажное);
    КонецЕсли;
    УдалитьФайлы(ФайлБинар);
КонецПроцедуры

18 Solveig

14.10.13

✎

10:40

(15) А почему не должна? Мне надо получить картинку, чтобы посмотреть ее.

19 Solveig

14.10.13

✎

10:40

(17) Попробовал, то же самое. Картинка не читается после записи.

20 smaharbA

14.10.13

✎

10:59

(19) дану на

21 Йохохо

14.10.13

✎

11:00

0x выкинь, FFD8FFE1 это жипег

22 Solveig

14.10.13

✎

11:04

(20) Не хочет, ругается "Не удается прочитать файл".

23 smaharbA

14.10.13

✎

11:04

Вот с Вашими данными

Перем Стр;

Процедура КнопкаВыполнитьНажатие(Кнопка)
    // Вставить содержимое обработчика.
    Перем КодВозврата;
    Стр=Сред(Врег(Стр),3);
    ФайлТекст=ПолучитьИмяВременногоФайла(".txt");
    ФайлБинар=ПолучитьИмяВременногоФайла(".bin");
    Текст=Новый ТекстовыйДокумент;
    Текст.УстановитьТекст(СтрЗаменить(Стр,"" "",""));
    Текст.Записать(ФайлТекст,КодировкаТекста.ANSI);
    ЗапуститьПриложение("cmd /q /c ""certutil -f -decodehex """+ФайлТекст+""" """+ФайлБинар+"""""",КаталогВременныхФайлов(),Истина,КодВозврата);
    УдалитьФайлы(ФайлТекст);
    Если КодВозврата=0 Тогда
        ДвоичныеДанные=Новый ДвоичныеДанные(ФайлБинар);
        Сообщить("Размер="+ДвоичныеДанные.Размер(),СтатусСообщения.Информация);
        Картинка=Новый Картинка(ДвоичныеДанные);
        Сообщить("Картинка="+Картинка.Формат(),СтатусСообщения.Информация);
    Иначе
        Сообщить("Фигня какая то...",СтатусСообщения.ОченьВажное);
    КонецЕсли;
    //УдалитьФайлы(ФайлБинар);
КонецПроцедуры

Стр="0xFFD8FFE1A8854578696600004D4D002A
|000000080007010F0002000000045A54
|4500011000020000000800000062011A
|0005000000010000006A011B00050000
|00010000007201280003000000010002
|00000213000300000001000100008769
|0004000000010000007A000001465A54
|45205639410000000048000000010000
|004800000001000A9000000700000004
|303232309003000200000014000000F8
|90040002000000140000010C91010007
|0000000401020300920A000500000001
|00000120A00000070000000430313030
|A00100030000000100010000A0020004
|0000000100000800A003000400000001
|00000600A00500040000000100000128";

24 arsik

гуру

14.10.13

✎

11:04

(22) по ходу картинка битая

25 Solveig

14.10.13

✎

11:04

(21) Попробовал, выкинул только 0x, то же самое, не читается файл с диска после записи.

26 Solveig

14.10.13

✎

11:06

(23) Спасибо, я то же самое попробовал. Но попробуйте записать картинку на диск.

Картинка.Записать("C:\1.jpg");

27 arsik

гуру

14.10.13

✎

11:10

(23) У него картинка битая (не все хранится в этой строке). Не может быть фото "FZTE V9A" размером 512 байт.

28 arsik

гуру

14.10.13

✎

11:12

+ 27 возможно где то картинки разбиваются по 512 байт, и перед тем как их преобразовать нужно полную строку создать

29 arsik

гуру

14.10.13

✎

11:18

Мне кажется из вот этого:
29000798|5f271d61-0e31-11da-9d6f-000fea14fb1b|5153|q001|2|29000798_5153_2_1381290245950.jpg|данные|1|823

|1|823 - это 1я часть картинки из 823
Выложи полностью файл

30 smaharbA

14.10.13

✎

11:48

Перем Стр;

Функция Из_Любой_В_10(Знач Значение="0",Нотация=36) Экспорт
     Если Нотация<=0 Тогда Возврат(0) КонецЕсли;
     Значение=СокрЛП(Значение);
     Если Значение="0" Тогда Возврат(0) КонецЕсли;
     Результат=0;
     Длина=СтрДлина(Значение);
     Для Х=1 По Длина Цикл
          М=1;
          Для У=1 По Длина-Х Цикл М=М*Нотация КонецЦикла;
          Результат=Результат+(Найти("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",Сред(Значение,Х,1))-1)*М;
     КонецЦикла;
     Возврат Окр(Результат);
КонецФункции

Функция ПолучитьДвоичныеДанные(Строка)
    Строка=СтрЗаменить(Врег(Строка),"0X","");
    Строка=СтрЗаменить(Строка," ","");
    Строка=СтрЗаменить(Строка,"" "","");
    Массив=Новый COMSafeArray("VT_UI1",СтрДлина(Строка)/2);
    Для Сч=0 По СтрДлина(Строка)/2-1 Цикл
        Массив.SetValue(Сч,Число(Из_Любой_В_10(Сред(Строка,Сч*2+1,2),16)));
    КонецЦикла;
    obj = Новый COMОбъект("MSXML2.DomDocument.3.0");
    helper=obj.createElement("a");
    helper.DataType = "bin.base64";
    helper.nodeTypedValue = Массив;
    Сообщить(helper.text);
КонецФункции

31 smaharbA

14.10.13

✎

11:51

(25) ненадо ничего выкидывать, оно само выкинет

32 kaban50

14.10.13

✎

11:55

на фото: "Внимание нумерация изменнена на нормальную"

33 smaharbA

14.10.13

✎

12:03

(27) точно, при выгрузке в текст из скуля произошла обрезка строки сработало MAX-чегототам

34 kaban50

14.10.13

✎

12:06

Обрезка? Декодировал переменную стр из (16), получилось фото, на нем объявление, де написано:
Внимание!!!
Нумерация этажей изменена на нормальную.
Кнопка «-1» - это 7 этаж!!!

35 Salimbek

14.10.13

✎

12:11

(34) Ну дык там смахарбА свою картинку походу вставил. Картинка от автора в (23)

36 Solveig

14.10.13

✎

12:17

(34) Да, это не моя картинка. Это пример с другой картинкой.

37 Solveig

14.10.13

✎

12:18

(27) (33) Сейчас узнаю у того, кто картинки выгружает.

38 Йохохо

14.10.13

✎

12:18

(28) (33) 256 =) забавно, если так и хранится

39 arsik

гуру

14.10.13

✎

13:03

(30) У него строка и так уже в base64, даже сохранять никуда не надо. Достаточно только
мояКартинка = Новый Картинка(Base64Значение(СокрЛП(КартинкаВСтрокеИзСКЛ)));

40 Solveig

14.10.13

✎

13:58

(39) Я уже так пробовал, Base64Значение возвращает неопределено, надо обрезать 0x или 0xFFD8FFE1.

41 badboychik

14.10.13

✎

14:16

че вы тут месите, в (11) вообще нет base64, там тупо HEX-коды в строку выведены, это немного разные понятия вообще то.
Из текстового файла уже ничего не достать, надо в SQL делать правильное преобразование image в base64

42 smaharbA

14.10.13

✎

14:36

в снеговике оказывается все еще просче

Строка=СтрЗаменить(Врег(Строка),"0X","");
Строка=СтрЗаменить(Строка," ","");
Строка=СтрЗаменить(Строка,"" "","");
Картинка=Новый Картинка(ФабрикаXDTO.Создать(ФабрикаXDTO.Тип("http://www.w3.org/2001/XMLSchema";, "hexBinary"),Строка).Значение);
Сообщить("Картинка="+Картинка.Формат(),СтатусСообщения.Информация);

(41) читай внимательнее

43 badboychik

14.10.13

✎

14:42

(42) ну вот это уже правильно, а то я не понял с чего (0) взял что у него base64 в строке

44 Solveig

14.10.13

✎

15:27

(43) Я имел в виду что у меня в строке - тип image из SQL. Затем нашел на форуме пример, как из этого типа получают Base64.

45 arsik

гуру

14.10.13

✎

15:27

(43) да это не он, это я затупил

46 Serginio1

14.10.13

✎

15:44

(44) Ты бы показал полный текст.

v8: v8: Работа с картинками в 1с8(забрать с SQL сервера, закачать в 1С)

47 Solveig

14.10.13

✎

15:49

Всем спасибо, кто откликнулся!

Написал в тех. поддержку тем, кто занимается выгрузкой из SQL в текстовый файл. Как ответят - напишу сюда, скорее всего на самом деле обрезана информация о данных файла из SQL, там фотка цветная, не может она в такой маленькой строке уместиться.

48 Serginio1

14.10.13

✎

16:08

(47) Зачем выгружать картинку в текстовый файл?

49 Solveig

14.10.13

✎

16:19

(48) Выгрузкой информации занимается сторонняя организация, не я, такой уж у них обмен реализован с другими системами, и причем менять они ничего не собираются.

50 Serginio1

14.10.13

✎

16:23

(49) Да уж. Зачем изобретать велосипед, если проще выгружать по схеме xsd (XML Schema definition).
ПакетXDTO