[andrew76]

Доброе всем утро !

Возникла необходимость записи графических файлов (тип jpg) в базу SQL.
Файлы jpg хранятся на диске в определенном каталоге.Как записывать строковые значения из 1с в базу sql понятно,
а вот как с графикой команду писать ?

[logist]

Вероятно как двоичные данные.

[andrew76]

А по-подробнее (если можно с примером) можно ? в базе tbFoto есть поле Foto.

[andrew76]

вот,кое-что нашёл :

Поток = Новый COMОбъект("ADODB.Stream");
Поток.Type = 1;
Поток.Open();
Поток.LoadFromFile(ПолноеИмяФайла);
...НужноеПоле.SQL= Поток.Read();

[andrew76]

При импорте данных всё ок.Но при открытии проги,в базу sql которой пишем фотки-вываливается ошибка "Error stream".
В путаной документации на БД есть указание ,что фото (содержимое поля Foto) должно быть преобразовано к типу Base64.Кто-нибудь
с таким сталкивался ?

[Vofka]

Есть функция Base64Строка

[andrew76]

Так тоже не работает :

Поток = Новый COMОбъект("ADODB.Stream");
Поток.Type = 1;
Поток.Open();
Поток.LoadFromFile(ПолноеИмяФайла);
Строка64=Base64Строка(Поток.Read());

[Vofka]

Потому что надо не поток кодировать, а двоичные данные.

[andrew76]

Подскажите ,пожалуйста,как это реализовать ?

[Vofka]

ДвоичныеДанные = Новый ДвоичныеДанные(ПутьКФайлу);
СтрокаБэйс64 = Base64Строка(ДвоичныеДанные);

[andrew76]

не работает : (ошибка не вылеьает,но и в базе нет ничего)

ДвоичныеДанные = Новый ДвоичныеДанные("c:\san\s.jpg");
СтрокаБэйс64 = Base64Строка(ДвоичныеДанные);
Значение=Base64Значение(СтрокаБэйс64);
..НужноеПоле.SQL= Значение;

[logist]

Значение=Base64Значение(СтрокаБэйс64);

Это зачем? Вы же этим обратно вернули в двоичные данные.

[andrew76]

Так что-ли :

ДвоичныеДанные = Новый ДвоичныеДанные("c:\san\s.jpg");
СтрокаБэйс64 = Base64Строка(ДвоичныеДанные);
..НужноеПоле.SQL= СтрокаБэйс64;

[logist]

ДвоичныеДанные = Новый ДвоичныеДанные("c:\san\s.jpg");
..НужноеПоле.SQL= Base64Строка(ДвоичныеДанные);

[andrew76]

Не получается.При открытии проги сразу прёт ошибка -"Bitmap Image is Not Valid"

[logist]

-"Bitmap Image is Not Valid"

Это скорее всего значит, что изображение не соответствует формату JPG, т.е. по факту в файле JPEG например, или битый файл.

У меня подобная штука работает, таким кодом

СодержимоеФайла = Base64Строка(Новый ДвоичныеДанные(ПутьФайла));

Попробуйте так:

    Картинка = Новый Картинка(ПутьФайла);
    ИмяВрФайла = ПолучитьИмяВременногоФайла();
    Картинка.Записать(ИмяВрФайла);
    СодержимоеФайла = Base64Строка(Новый ДвоичныеДанные(ИмяВрФайла));

[andrew76]

та же история : При открытии проги сразу прёт ошибка -"Bitmap Image is Not Valid"

может в коде что :

    Картинка = Новый Картинка("c:\san\s.jpg");
    ИмяВрФайла = ПолучитьИмяВременногоФайла();
    Картинка.Записать(ИмяВрФайла);
    СодержимоеФайла = Base64Строка(Новый ДвоичныеДанные(ИмяВрФайла));
    
    ТекстЗапросаADO ="Insert into tbFoto (Active,MainID,Foto) Values (1,'" + un + "','"+СодержимоеФайла+"')";
    Connection.Execute(ТекстЗапросаADO,,128);

[Petre]

andrew76 @ Сегодня, 13:44 ,
Какой тип поля?

[andrew76]

тип image

[andrew76]

Попробовал переписать код :

Поток = Новый COMОбъект("ADODB.Stream");
Поток.Type = 1;
Поток.Open();
Поток.LoadFromFile("c:\san\s.jpg");
RecordSet = Новый COMОбъект("ADODB.RecordSet");
RecordSet.CursorLocation = 3;
RecordSet.LockType = 4;
Запрос = "";

RecordSet.Open("Select * from tbFoto", Connection); 

RecordSet.AddNew();
ТекстЗапросаADO ="SET IDENTITY_INSERT tbFoto OFF";
Connection.Execute(ТекстЗапросаADO,,128);
RecordSet.Fields("MainID").Value = un;  
RecordSet.Fields("Foto").Value = Поток.Read(-1);
RecordSet.Fields("Active").Value = 1;   
RecordSet.Update();
Поток.Close();
RecordSet.Close();

в строке присваивания полю MainID значения идентификатора -RecordSet.Fields("MainID").Value = un; вываливается ошибка следующего содержания :{Форма.ФормаОтчета.Форма(606)}: Ошибка при установке значения атрибута контекста (Value): Произошла исключительная ситуация (Provider): Член группы не найден.

Что это ?