Запись BLOB-полей из 1С через OO4O. #426377

Добрый день. Подскажите, пожалуйста, существует ли возможность записать файл (картинку) в BLOB-поле Oracle из 1С 7.7 используя OO4O (Oracle Objects for OLE )? Спасибо.

а чо это - OO4O ?

А почему бы и нет, если сама тулза умеет это делать...

OO4O - Oracle Objects for OLE Создаю объект:    Сессия    = CreateObject("OracleInProcServer.XOraSession"); и подключаюсь к базе данных Oracle.

В смысле Oracle умеет? Так да, он умеет, но в 1С пишет, что тип данных не поддерживается.

ну и на здоровье или там метод/свойство должно принимать/отдавать байты ?

вот с этого и надо начинать оберни оберткой

Как?

ты же нам рассказал про оо4о, тебе лучче знать может и эту СоздатьОбъект("MSScriptControl.ScriptControl")

можно поподробнее?

сперва ты про оо4о подробнее, по полочкам лучше с кодом, и не надуманным, а конкретно какой написан, но не более 15 строк

Пытался вставить туда: im.Read (нарыл здесь на форуме), где

BlobFeeld - это что байты, массив байтов или что ?

Набор двоичных символов.

Постараюсь объяснить что мне нужно. В теме есть метод ПолучитьBLOB(<ИмяПоля>,<ИмяФайла>). Вот мне нужно наоборот, вставить файл в поле.

Что то не дописал в Грубо, так примерно

Скрипт.Execution("BlobFeeld.Value=Stream.Read"): Поле агрегатного объекта не обнаружено (Execution)

ну что ты такой привередливый .executestatement(

а в Oracle BLOB-поля не курсором читаются и пишутся.

Спасибо, но не работает. Возможно я напутал что-то с типами параметров. Как это "курсором"?

... ошибку пишет уже другую, оракловскую а не 1С.

сначала создаётся курсор (CREATE CURSOR FOR BLOB или как там это пишется). Так. Стоп. А BLOB-поле привязано к записи, а где была создана запись ? Вот Oracle вам и сказал, что не выбрана запись для добавления поля.

определись с типом и запости ошибку "оракловскую"

по коду в она витает в воздухе не думай, что издеваемся

в оракле только умею консоль типа ЕМ скульного под виндой запускать и пароли у усеров менять

Где и каким образом создать курсор? Запись делаю так: Insert into .... Ошибку пишет вот такую: Oracle Automation: OIP-04801: Invalid input Oracle object instance

Полный текст запроса добавления поля:

что обозначает "витает в воздухе"? Я же выполняю вставку и прописываю параметры. Если параметр BlobFeeld не задать, то вставляется запись с пустым значением поля blobfield в таблице.

Наверное как то так

... или параметры не могут принимать значения типа 'Blob'. Вобщем, просветите, пожалуйста :-(

только AppendChunkByte короче, тебе должно быть виднее, у тебя оракл

а как получить ссылку на BlobFeeld?

боюсь, єто не свойство параметра...

ранее написал хотя апендчанкбайт с массивом работает

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

сори, сейчас попробую

ОК, спасибо.

Скрипт.executestatement("BlobFeeld.AppendChunkByte(Stream.Read,Stream.Size)"): Ошибка компиляции Microsoft VBScript: Недопустимо использование скобок при вызове процедуры Sub

...("Call BlobFeeld..

скорее всего, что написал - так полуфабрикат, надо 1с подруки и хотя бы оракл слышать от другого там либо массив, дибо строку добавлять, без byte

Объект не поддерживает это свойство или метод: 'BlobFeeld.AppendChunkByte'  :-( Наверное, нужно все таки использовать курсор... Torquader, просьба помочь по данному вопросу.

Кстати, у OLE DB есть возможность определять, как представлять тип BLOB, так как по умолчанию, он не есть поток байтов - поэтому, Object Browser - и смотрим, какие параметры у BLOB-поля, чтобы оно было задано. Кроме того, запрос типа Insert сначала делают prepare, чтобы он "подготовился" и определил параметры, а потом уже "execute".

Dim OraSession As OraSession Dim OraDatabase As OraDatabase Dim PartDesc as OraCLOB 'Create the OraSession Object. Set OraSession = CreateObject("OracleInProcServer.XOraSession") 'Create the OraDatabase Object by opening a connection to Oracle. 'Create a Dynaset containing a BLOB and a CLOB column set part = OraDatabase.CreateDynaset ("select * from part where 'Copy the entire LOB content to partdesc.txt file PartDesc.CopyToFile "partdesc.txt"

Dim OraSession As OraSession Dim OraDatabase As OraDatabase Dim PartImage as OraBLOB 'Create the OraSession Object. Set OraSession = CreateObject("OracleInProcServer.XOraSession") 'Create the OraDatabase Object by opening a connection to Oracle. 'Create a Dynaset containing a BLOB and a CLOB column set part = OraDatabase.CreateDynaset ("select * from part where 'copy the entire content of partimage.jpg file to LOBS part.Edit PartImage.CopyFromFile "partimage.jpg" part.Update

Ну, ну...

Такое не работает чтоли?

хотя х.з.

чтение запись

Как вы вдвоём в 43 запись залезли ?

по-идее, всё нормально написано.

Это все скрипт?

помнится давно писал в блобы из дельфи - состав команд зависит от провайдера данных. используя бде - можно кажется было просто insert и все а вот используя doa - сначала инсерт, а потом апдейт с добавлением данных блоба кажись что то такое было

Это код на VB переписываешь на язык 1С и все переписать несложно

Попробую. Случай чего, далеко не убегайте :-)

Спасибо.

думаю вот тут PartImage = part.Fields("part_image").Value взбрыкнет

хотя х.з.

{D:WORK!RETAIL-TEST-NEWEXTFORMSBLOB.ERT}: Oracle Automation: OIP-04908: This operation is not permitted on a Null LOB

Разобрался. v77, СПАСИБО ОГРОМНОЕ!

None of the LOB operations are allowed on NULL LOBs. To avoid errors, this may be detected via the IsNull property. To perform write operations on a LOB that is NULL, the LOB column must first be initialized with an 'Empty' value.

напиши как разобрался

В таблице у меня 2 поля: ИД картинки и картинка. Сначала делаю инсерт с непустым параметром ИД поля и пустым параметром картинки. Затем вставляю картинку в BLOB с помощью Вашего кода:

сори, без цикла правильно