Читаю бинарные данные из полей sql-ной таблицы. Почемуто после чтения поля в переменную попадает строка типа: 0xFFD8FFE000104A46494600010100000100010000FFFE002E496E74656C и т.д.

Скажите что это за строка? И как ее с помощью 1С-ки в картинку конвертнуть ?

В sql тип поля image

http://ru.wikipedia.org/wiki/Двоичный_файл

Про двоичные данные прочел, но как преобр. эту строку в файл с помощью 1С-ки ?

ну, мне неизвестно каким образом вы получаете данные из SQL в 1С
может существует способ получать данные сразу в нужном виде.
Ну а вообще алгоритм примерно такой:
допустим есть строка 0xFFD8FFE000104A46494600010100000100010000FFFE002E496E74656C
отбрасываем указатель шеснадцетеричности "0x",
затем в цикле берем два левых символа,
FF = преобразуем из шеснадцетеричной системы в десятичную FF=255,
записываем в файл символ с полученным кодом 255,
уменьшаем обрабатываемую строку на 2 символа слева D8FFE000104A46494600010100000100010000FFFE002E496E74656C
затем снова берем два левых символа D8 преобразуем из шеснадцетеричной системы в десятичную D8=216, дописываем в конец файла символ с кодом 216.
И так далее, пока символны не кончаться.
Это чисто для теории, наверняка есть какие нибудь более гуманные варианты.
Вопрос про получении данных из SQL в 1с остается открытым.

Коннект к sql
Запросом выбираем поля (у меня имя поля = A_IMG)
Последовательно прочитываем каждое поле (например в переменную СтрИМГ) и ...
... и дальше нужно сохранить полученную строку в изображение

Тогда дерзайте, способ я описал

Да спс Я попробую

Только вот вопрос: а в файле в итоге получиться строка сост из 10-х значений ?! А смысл перевода ?

Нет
СтрокаНач = "FFD8FFE000104A46494600010100000100010000FFFE002E496E74656C";
СтрокаДвоич = "";
Пока СтрДлина(СтрокаНач)>0 Цикл
  ТекСимволы =Лев(СтрокаНач,2);
  СтрокаНач = Прав(СтрокаНач,СтрДлина(СтрокаНач)-2);
  СимволДес = Шеснад2Дес(ТекСимволы);
  СтрокаДвоич = СтрокаДвоич+Симв(СимволДес);
КонецЦикла;

Файл = Новый ТекстовыйДокумент;
Файл.УстановитьТекст(СтрокаДвоич);
Файл.Записать("C:\binary.hex","windows-1251");//Насчет кодировки я фиг знает


То есть в файл попадают не десятичные цифры, и символы, коды которых равны тесятичным цифрам. Это разные вещи

Понял. Сейчас опробую

Шеснад2Дес - ?

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

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

Пример:
Буква_Я = Символ(1103);

Исходя из этого - точно функция "Символ" ?

Это в 8.1 так

Ну я это образно

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


СимволДес = Из_Любой_В_10(ТекСимволы,16);

(12,13) Да, я видимо из 7ки написал функцию

Что то не вышло ))

что именно?

Файл создает, но в jpg переименовываю он не отображает картинку

По моему проблема в ф-ии "Символ". В 8-ке Код задается в соответствии с кодировкой Unicode

Там в хелпе пример был: Буква_Я = Символ(1103);

откуда значение 1103 если мы максимум ff=255 ?

Это юникод. Первый 127 значений там такие же как в ASCII. Вообще 0 - 127 управляющие символы, цифры, пунктуация, латинский алфавит. Больше у тебя в двоичных данных ничего не будет

Мистец

(23) :) скажи спасибо что они в БЗню это не рекомендовали

в чем проблемы уважаемые?

Вот 2 процедуры чтения/записи картинки напрямую в SQL (из 1С)

Процедура КнопкаВыполнитьНажатие(Кнопка)
   Stream=Новый COMОбъект("ADODB.Stream");
   Stream.Type=1;
   Stream.Open();
   Stream.LoadFromFile("C:\БылЗвонок.bmp");
   Connection=Новый COMОбъект("ADODB.Connection");
   Connection.Open("Provider=SQLOLEDB.1; Data Source=NEXTGEN; Initial Catalog=MyBase; User ID=sa;");
   RecordSet=Новый COMОбъект("ADODB.Recordset");
   RecordSet.CursorLocation=3;
   RecordSet.LockType=2;
   Запрос="Select data from dbo.MyTable";
   RecordSet.Open(Запрос, Connection);
   Если RecordSet.RecordCount=0 Тогда
       RecordSet.AddNew();
   //    RecordSet.Fields(0).Value=1;

   Иначе
       RecordSet.MoveFirst();
   КонецЕсли;
   RecordSet.Fields("Data").Value=Stream.Read(-1);
   RecordSet.Update();
   Stream.Close();
КонецПроцедуры

Процедура ОсновныеДействияФормыd(Кнопка)
   Stream=Новый COMОбъект("ADODB.Stream");
   Stream.Type=1;
   Stream.Open();
   Connection=Новый COMОбъект("ADODB.Connection");
   Connection.Open("Provider=SQLOLEDB.1; Data Source=NEXTGEN; Initial Catalog=MyBase; User ID=sa;");
   RecordSet=Новый COMОбъект("ADODB.Recordset");
   RecordSet.CursorLocation=3;
   RecordSet.LockType=2;
   Запрос="Select data from dbo.MyTable";
   RecordSet.Open(Запрос, Connection);
   RecordSet.MoveFirst();
   Stream.Write(RecordSet.Fields("Data").Value);
   Stream.SaveToFile("c:\БылЗвонокВост.bmp");
   Stream.Close();
КонецПроцедуры

НО.
Мне интересно, что за значения в (0) и как они получены?


Глобальный контекст
Base64Значение (Base64Value)
Синтаксис:
Base64Значение(<Строка>)
Параметры:
<Строка> (обязательный)
Тип: Строка. Строка, закодированная по алгоритму base64.
Возвращаемое значение:
Тип: ДвоичныеДанные.
Описание:
Получает из строки закодированной по алгоритму base64 двоичные данные.
См. также:
Глобальный контекст, метод Base64Строка


(28) Нет. Нет в (0) символа старше F

я говорил в (4) что есть более оптимальные способы. Но если в лоб, можно и как в (9), должно работать

(28) вообще то "0x" в (0) нам как бы намекает

Я коннектюсь так :
SQLServer    = Новый COMОбъект("SQLDMO.SQLServer");
   SQLServer.LoginSecure    = 1;
   SQLServer.Connect("(local)");
   ЗапросСтруктура            =
           "SELECT        A_IMAGE
           |FROM        E_002";
   РезультатСтруктура        = SQLServer.Databases("tel").ExecuteWithResults(ЗапросСтруктура);
   Для НомерЗаписи = 1 По РезультатСтруктура.Rows Цикл
       A_IMAGE        = РезультатСтруктура.GetColumnString(НомерЗаписи,1);
       Сообщить(A_IMAGE);
       Прервать;
   КонецЦикла;

(32)[SQLDMO]
перейди на ADODB см.(26)

Connection    = Новый COMОбъект("ADODB.Connection");
   Connection.Open("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=(local);Initial Catalog=tel;");
   
   RecordSet    = Новый COMОбъект("ADODB.Recordset");
   RecordSet.CursorLocation    = 3;
   RecordSet.LockType            = 2;
   Запрос                        = "SELECT A_IMAGE FROM dbo.tel";
   RecordSet.Open(Запрос, Connection);
   RecordSet.MoveFirst();
   
   Stream        = Новый COMОбъект("ADODB.Stream");
   Stream.Type=1;
   Stream.Open();
   Stream.Write(RecordSet.Fields("Data").Value);
   Stream.SaveToFile("c:\123.jpg");
   Stream.Close();

на RecordSet.Open(Запрос, Connection); выдает ошибку.

(34) udl  файлик и вперёд

а это как? в смысле как его к 1с-ке прикрутить ?

(38) не прикрутить, отладить строку конекта
ксати было
FROM        E_002

стало
FROM dbo.tel

Как минимум:
1) Не указан пользователь
2) Имя сервера не может быть (local)

Вот Я затупан ... (37) - все поправил, все работает! Огромное спс

Сори ... всю ночь не спал практически ...

1) Пользователь - там идет аут винды
2) имя сервера как раз (local) , т.к. локально на моем буке

Ошибся в запросе вместо таблицы указал БД

Еще раз всем спавибо ... вопрос решен!

(40) У меня под 'local' ADO отвергло мои домагательства.

local - выдает ош, а (local) - должен работать

(39) порнуху то с сиквела дашь посмотреть

(41) [У меня под 'local' ADO отвергло мои домагательства]
могли алиасы у сиквела побиться

(43) на счет порнухи не понял ? ))

(44) Ну если ты всю ночь ковырял - значит в базе - эксклюзив.

(44) что,кроме порнухи можно всю ночь с сервера пытаться вытащить ?

Хаа ...
Да нее ...
Есть у орг. прога на делфях по сотовым ... а ее надо в 1с-ку заточить вот и разбирался.

(47)[Да нее ]
зажал
учтём

(47) Значит делится не будем. Ну-ну :-)