Как получить картинку из строки strP (строка шестнадцатиричных значений), выгруженную следующим паскалевским кодом:

     MS:=TMemoryStream.Create;
     try
       TBlobField(___.FieldByName('PORTRAIT')).SaveToStream(MS);
       MS.Seek(0, soFromBeginning);
       for i:=0 to MS.Size-1 do
       begin
         MS.Read(Buf, 1);
         strP:=strP+DecToHex(Buf);
       end;
     finally
       MS.Free;
     end;

(0)преобразуй в зад

(1) Мне из 1С это сделать надо, а не из Паскаля

(2) а в картинку незя было сохранить?

+3 tbmp, tjpg  и прочая не судьба было заюзать?

(3) да, не я сохранял; не мой это код, но мне из этой выгрузки картинки извлекать надо.

(5) ну напиши на паскале преобразование в зад, а потом уже в 1с грузи. в 1с нет просто DecToHex и наоборот

или сам функции преобразования пиши...

попробуй скормить объекту ДвоичныеДанные, если получится

(8) врятли, формат картинки поковеркан уже

(8) - пробовал, по логике надо как-то скомпоновать(склеить) двоичные данные из наборов Buf по 2 символа:
Buf:=HexToDec(Следующие_2_символа)

какой тайный смысл преследовал создатель когда увеличивал объём картинки в 2 раза при выгрузке кстати?)

если сохранить строку в файл, потом
Новый ДвоичныеДанные(ЭтотФайл)
потом ДвоичныеДанные.Записать("1.jpg") - не получится картинка?

(11) по-быстрее выгрузку написать известным ему преобразованием картинки в строку

(13) ппц, про объекты для работы с картинками этот автор не знал? ))

в файле то кстати так и идёт? типа "FAEBD7..."?

(14) это автор мне еще с пренебрежением пишет:
>  Что 1С не умеет хранить картинки в базе? В чём проблема?
>  1С не имеет функций работы в 16-тиричной системе,и закодировать картинку как строку невозможно?

(15) FFD8FFE000104A46494600010201004800480000FF .....

(16) так и ответь - всякую куйню в картинки преобразовывать не может
заюзай тжипег и сохрани файло как патсан

(16) 1с как раз умеет хранить даже фильмы в базе, это автор не умеет
wiki:Шестнадцатеричные_числа

Например, требуется перевести шестнадцатеричное число 5A3 в десятичное. В этом числе 3 цифры. В соответствии с вышеуказанным правилом представим его в виде суммы степеней с основанием 16:

5A316 = 3·160+10·161+5·162
= 3·1+10·16+5·256 = 3+160+1280 = 144310

в 1с напиши алгоритм

(20) + форматирование не правильное, смотри в (19)

(21) как перевести в десятичное - понятно, а как потом полученное десятичное значение в двоичные данные впихнуть, хотя бы в файл этот байт засунуть?

в файл записывать "Символ(<Код символа>)"?

Попробую через ЗаписьТекста, но сильно сомневаюсь в результате

<Код символа> = HexToDec()

Запись=Новый ЗаписьТекста("ХЗ.jpg",КодировкаТекста.ANSI);
Запись.Записать(Символ(<Код символа>));
Запись.Закрыть();

я тож сомневаюсь)
в паскале может написать преобразование? иль в любом языке где есть удобные инструменты работы с файлами?

накуя городить огород, если автор паскаля может сделать сразу файло?
прошу прощения за ругательство )

+26 файло = файло картинки

(26) видимо не может, раз делал преобразование в текст) редкий изврат на мой взгляд...

(28) вот это и бесит иногда, строят из себя невесь что, а нормально выполнить работу не могут ((

Танец с бубном не удался - Unicode, а нужен ANSI - наверное, из-за этого ничего не вышло.

Встроенные функции языка (Script functions)
Символ (Char)
Синтаксис:
Символ(<КодСимвола>)
Параметры:
<КодСимвола> (обязательный)
Тип: Число. Код получаемого символа. Код задается в соответствии с кодировкой Unicode.

Если ЗначениеЗаполнено(СтрокаБл) Тогда
   СтрокаБлДлина = СтрДлина(СтрокаБл);
   Запись = Новый ЗаписьТекста("D:\TEMP\укоНа", КодировкаТекста.ANSI);
   Для СчетчикБл = 1 По Окр(СтрокаБлДлина/2) Цикл
       _Код_символа = HexToDec(Сред(СтрокаБл, 1 + (СчетчикБл - 1)*2, 2));
       Запись.Записать(Символ(_Код_символа));
   КонецЦикла;
   Запись.Закрыть();
   ВыбранноеИзображение = Новый Картинка("D:\TEMP\укоНа", Ложь);
   ХранилищеФото = Новый ХранилищеЗначения(ВыбранноеИзображение, Новый СжатиеДанных);
КонецЕсли