Работа с полями, имеющими пользовательский тип данных

Class TESTForm: Form
    OpenImageDlg: FileOpenDialog;
    ImageName: Label;
    ImgBox: ImageBox;
    BPrior: Button;
    BNext: Button;
    BAdd: Button;
    //Переменные для работы с репозиторием
    MB: IMetabase;
    TableInst: IDatasetInstance;
    Cache: ICachedDataset;
    Fields: IDatasetInstanceFields;

    Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
    Begin
        //Открытие таблицы и получение доступа к кэшу с записями
        MB := MetabaseClass.Active;
        TableInst := MB.ItemById("TIMAGES").Open(Null) As IDatasetInstance;
        Cache := TableInst.OpenCached;
        Fields := Cache.Fields;
    End Sub TESTFormOnCreate;

    Sub TESTFormOnClose(Sender: Object; Args: IEventArgs);
    Begin
        Cache.Close;
    End Sub TESTFormOnClose;

    
    Sub BPriorOnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        If Not Cache.Bof Then
            Cache.Prior;
            LoadRecord;
        End If;
    End Sub BPriorOnClick;

    Sub BNextOnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        If Not Cache.Eof Then
            Cache.Next;
            LoadRecord;
        End If;
    End Sub BNextOnClick;

    Sub BAddOnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        ImgStream: IFileStream;
    Begin

        If OpenImageDlg.Execute Then
            //Создание новой записи
            Cache.Append;
            ImgStream := New FileStream.Create(OpenImageDlg.FileName, FileOpenMode.Read, FileShare.DenyNone);
            //Установка значений полей

             Fields.FindById("IMG_NAME").Value := OpenImageDlg.FileName;
            Fields.FindById("IMG").Value := ImgStream;
            //Сохранение изменений
            Cache.Post;
            Dispose ImgStream;
            //Загрузка значений полей в компоненты
            LoadRecord;
        End If;
    End Sub BAddOnClick;

    Sub LoadRecord;
    Var
        ImgStream: IIOStream;
    Begin
        ImageName.Text := Fields.FindById("IMG_NAME").Value;
        ImgStream := IOStream.FromVariant(Fields.FindById("IMG").Value);
        ImgBox.LoadImageFromStream(ImgStream);
        //Уничтожение потока
        Dispose ImgStream;
    End Sub LoadRecord;

End Class TESTForm;

Imports System;
Imports System.Collections.Generic;
Imports System.ComponentModel;
Imports System.Data;
Imports System.Drawing;
Imports System.Text;
Imports System.Windows.Forms;
Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Db;
Imports Prognoz.Platform.Interop.ForeIO;
Imports Prognoz.Platform.Interop.Marshalers;
Imports Prognoz.Platform.Interop.Metabase;

Public Partial Class TESTForm: Prognoz.Platform.Forms.Net.ForeNetForm
    MB: IMetabase;
    TableInst: IDatasetInstance;
    Cache: ICachedDataset;
    Fields: IDatasetInstanceFields;
    IOStreamMarsh: ForeIOStreamMarshaler = New ForeIOStreamMarshaler();
    

    Public Constructor TESTForm();
    Begin
        InitializeComponent();
    End Constructor;
    
    Private Sub TESTForm_Activated(sender: System.Object; e: System.EventArgs);
    Begin
        //Открытие таблицы и получение доступа к кэшу с записями
        MB := Self.Metabase;
        TableInst := MB.ItemById["TIMAGES"].Open(Null) As IDatasetInstance;
        Cache := TableInst.OpenCached();
        Fields := Cache.Fields;
    End Sub;

    Private Sub TESTForm_Deactivate(sender: System.Object; e: System.EventArgs);
    Begin
        Cache.Close();

    End Sub;

    Private Sub BPrior_Click(sender: System.Object; e: System.EventArgs);
    Begin
        If Not Cache.Bof() Then
            Cache.Prior();
            LoadRecord();
        End If;
    End Sub;

    Private Sub BNext_Click(sender: System.Object; e: System.EventArgs);
    Begin
        If Not Cache.Eof() Then
            Cache.Next();
            LoadRecord();
        End If;
    End Sub;
    

    Private Sub BAdd_Click(sender: System.Object; e: System.EventArgs);
    Var
        FileStrClass: FileStreamClass = New FileStreamClass();
    Begin
        If (OpenImageDlg.ShowDialog() = DialogResult.OK) Then
            //Открытие на редактирование первой записи
            Cache.Append();
            Fields := Cache.Fields;
            FileStrClass.Create(OpenImageDlg.FileName, FileOpenMode.frRead, FileShare.frDenyNone);
            //Установка значений полей

             Fields.FindById("IMG_NAME").Value := OpenImageDlg.FileName;
            Fields.FindById("IMG").Value := FileStrClass;
            //Сохранение изменений
            Cache.Post();
            FileStrClass := Null;
            LoadRecord();
        End If;
    End Sub;

    Private Sub LoadRecord();
    Var
        IOStrClass: IOStreamClass = New IOStreamClass();
        ImgStream: IIOStream;
    Begin

        ImageName.Text := Fields.FindById("IMG_NAME").Value.ToString();
        ImgStream := IOStrClass.FromVariant(Fields.FindById("IMG").Value);
        ImgBox.Image := Image.FromStream(IOStreamMarsh.ForeToManaged(ImgStream));
        ImgStream := Null;
    End Sub LoadRecord;

End Class;

Class TESTForm: Form
    ImageName: Label;
    BPrior: Button;
    BNext: Button;
    BAdd: Button;
    OpenReportDlg: MetabaseOpenDialog;
    UiReport1: UiReport;
    ReportBox1: ReportBox;
    //Переменные для работы с репозиторием  
    MB: IMetabase;
    TableInst: IDatasetInstance;
    Cache: ICachedDataset;
    Fields: IDatasetInstanceFields;
    

    Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
    Begin
        //Открытие таблицы и получение доступа к кэшу с записями
        MB := MetabaseClass.Active;
        TableInst := MB.ItemById("TIMAGES").Open(Null) As IDatasetInstance;
        Cache := TableInst.OpenCached;
        Fields := Cache.Fields;
    End Sub TESTFormOnCreate;

    Sub TESTFormOnClose(Sender: Object; Args: IEventArgs);
    Begin
        Cache.Close;
    End Sub TESTFormOnClose;
    
    Sub BPriorOnClick(Sender: Object; Args: IMouseEventArgs);
    Begin

        If Not Cache.Bof Then
            Cache.Prior;
            LoadRecord;
        End If;
        Debug.WriteLine(Cache.RecNo);
    End Sub BPriorOnClick;

    Sub BNextOnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        If Not Cache.Eof Then
            Cache.Next;
            LoadRecord;
        End If;
        Debug.WriteLine(Cache.RecNo);
    End Sub BNextOnClick;

    Sub BAddOnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        Rep: IPrxReport;
        RepStream: IMemoryStream;
    Begin
        If OpenReportDlg.Execute(Self) Then
            //Создание новой записи
            Cache.Append;
            RepStream := New MemoryStream.Create;
            Rep := OpenReportDlg.Object.Bind As IPrxReport;
            Rep.SaveToStream(RepStream, PrxReportSaveMode.Full);
            //Установка значений полей
            Fields.FindById("IMG_NAME").Value := OpenReportDlg.Object.Id;
            Fields.FindById("IMG").Value := RepStream;
            //Сохранение изменений
            Cache.Post;
            //Загрузка значений полей в компоненты
            LoadRecord;
            Dispose RepStream;
        End If;
    End Sub BAddOnClick;

    Sub LoadRecord;
    Var
        RepStream: IIOStream;
        CrInfo: IMetabaseObjectCreateInfo;
        Rep: IPrxReport;
    Begin
        ImageName.Text := Fields.FindById("IMG_NAME").Value;
        RepStream := IOStream.FromVariant(Fields.FindById("IMG").Value);
        //Создание временного рег.отчета, в который будет загружен отчет из таблицы
        CrInfo := MB.CreateCreateInfo;
        CrInfo.ClassId := MetabaseObjectClass.KE_CLASS_PROCEDURALREPORT;

        Rep := MB.CreateObject(CrInfo).Edit As IPrxReport;
        RepStream.Position := 0;
        Rep.LoadFromStream(RepStream);
        //Вывод рег.отчета в компонент на форму
        UiReport1.Active := True;
        UiReport1.Instance := Rep As IPrxReport;
        Dispose RepStream;
    End Sub LoadRecord;

End Class TESTForm;

Imports System;
Imports System.Collections.Generic;
Imports System.ComponentModel;
Imports System.Data;
Imports System.Drawing;
Imports System.IO;
Imports System.Text;
Imports System.Windows.Forms;
Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Db;
Imports Prognoz.Platform.Interop.ForeIO;
Imports Prognoz.Platform.Interop.Marshalers;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;

Public Partial Class TESTForm: Prognoz.Platform.Forms.Net.ForeNetForm
    MB: IMetabase;
    TableInst: IDatasetInstance;
    Cache: ICachedDataset;
    Fields: IDatasetInstanceFields;

    IOStreamMarsh: ForeIOStreamMarshaler = New ForeIOStreamMarshaler();
    
    Public Constructor TESTForm();
    Begin
        InitializeComponent();
    End Constructor;

    Private Sub TESTForm_Activated(sender: System.Object; e: System.EventArgs);
    Begin
        //Открытие таблицы и получение доступа к кэшу с записями
        MB := Self.Metabase;
        TableInst := MB.ItemById["TIMAGES"].Open(Null) As IDatasetInstance;
        Cache := TableInst.OpenCached();

        Fields := Cache.Fields;
    End Sub;

    Private Sub TESTForm_Deactivate(sender: System.Object; e: System.EventArgs);
    Begin
        Cache.Close();
    End Sub;

    Private Sub BPrior_Click(sender: System.Object; e: System.EventArgs);
    Begin
        If Not Cache.Bof() Then
            Cache.Prior();
            LoadRecord();
        End If;
    End Sub;

    Private Sub BNext_Click(sender: System.Object; e: System.EventArgs);
    Begin
        If Not Cache.Eof() Then
            Cache.Next();
            LoadRecord();
        End If;
    End Sub;
    
    Private Sub BAdd_Click(sender: System.Object; e: System.EventArgs);
    Var
        Rep: IPrxReport;
        RepStream: System.IO.MemoryStream = New System.IO.MemoryStream();
    Begin

        If OpenReportDlg.Execute(Self) Then
            //Создание новой записи
            Cache.Append();
            Rep := OpenReportDlg.Object.Bind() As IPrxReport;
            Rep.SaveToStream(RepStream, PrxReportSaveMode.prsmFull);
            text := RepStream.Length.ToString();
            //Установка значений полей
            Fields.FindById("IMG_NAME").Value := OpenReportDlg.Object.Id;
            Fields.FindById("IMG").Value := IOStreamMarsh.ManagedToFore(RepStream);
            //Сохранение изменений
            Cache.Post();

            //Загрузка значений полей в компоненты
            LoadRecord();
            RepStream := Null;
        End If;
    End Sub;

    Private Sub LoadRecord();
    Var
        IOStrClass: IOStreamClass = New IOStreamClass();
        RepStream: IIOStream;
        CrInfo: IMetabaseObjectCreateInfo;
        Rep: IPrxReport;
    Begin

        ImageName.Text := Fields.FindById("IMG_NAME").Value.ToString();
        RepStream := IOStrClass.FromVariant(Fields.FindById("IMG").Value);
        RepStream.Position := 0;
        //Создание временного рег.отчета, в который будет загружен отчет из таблицы
        CrInfo := MB.CreateCreateInfo();
        CrInfo.ClassId := (MetabaseObjectClass.KE_CLASS_PROCEDURALREPORT As integer);
        Rep := MB.CreateObject(CrInfo).Edit() As IPrxReport;

        Rep.LoadFromStream(IOStreamMarsh.ForeToManaged(RepStream));
        //Вывод рег.отчета в компонент на форму
        UiReportNet1.Active := True;
        UiReportNet1.ReportUi.Instance := Rep As IPrxReport;
        RepStream := Null;
    End Sub LoadRecord;

End Class;