Отображение графических данных в УТС

Автор Антон_, 15.04.16, 10:07:11

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

Антон_

Добрый день уважаемые господа.
Буду очень благодарен за помощь в имеющейся проблеме.
На данный момент возникла необходимость отображения графических данных справочника УТС в отдельном окне с возможностью изменения его размеров. При решении данной проблемы мы столкнулись с рядом проблем.
Пытались получить поток данных через visual basic и отобразить его в отдельную форму

Set uniRefer = CreateObject("UniReference.UniRefer")
uniRefer.GlobalVars.Logon.LogonAsParams "user1","111","group1"
Set Logon = UniRefer.GlobalVars.Logon
Set res = uniRefer.BOListObject.GetObjects("ri.marka", "DMgQdr2zf5O0D2KM6ni1sc")
res2 = res.Attributes.AttrObjectByNameFld("Pictureblob").SaveToFile("C:\11.txt")

Но данная функция возвращает пустой поток и не получается решить данную проблему. Причем другую информацию об объекте, например его наименование, обозначение, формат картинки достать получается, а с самой картинкой возникают проблемы.

Пытались получить картинку через delphi

var m_uni: IUniRefer;
b_logonsuccess: boolean;
lg:WideString;
MS:TMemoryStream;
ifc:iInterface;
begin
  ms:=TMemoryStream.create;
  m_uni := CoUniRefer.Create;
  b_logonsuccess:=m_uni.GlobalVars.Logon.LogonAuto();
  m_uni.BOListObject.GetObjects('ri.marka', 'rFP.1sfXaOIlqprpkWXdQc').Attributes.AttrObjectByNameFld('PictureBlob').SaveToFile('C:\1.bmp');

Но данный метод тоже не работает.

Пробовали выводить изображение в delphi через компонент dbImage, но он пишет что неверный формат данных
причем пробовали брать одну картинку и загружать ее через delphi в базу данных и через УТС в базу данных. В первом случае все работает нормально, во втором не работает.

Подскажите что мы делаем неправильно.

Антон_

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