Постановка задачи

Предварительно в карточке типа справочника на закладке «Реквизиты» необходимо создать текстовый реквизит. На форму карточки справочника нужно вынести изображение и в свойствах к нему привязать созданный текстовый реквизит. После необходимо добавить кнопку Загрузить, при нажатии на которую будет выполняться загрузка нового изображения из файла. Для этого в карточке типа справочника на закладке «Действия» нужно добавить действие Load и связать его с кнопкой Загрузить.

Программный код

 

  // Выбрать фотографию и загрузить ее.

  JPG_FILE_EXT = 'jpg'

  OpenDialog = CreateOpenDialog()

  OpenDialog.Filter = 'JPEG files (*.jpg)|*.jpg'

  OpenDialog.MultiSelect = False

  if OpenDialog.Execute

    File = OpenDialog.Result

 

    // Проверить расширение файла.

    if ExtractFileExt(File) <<>> '.' &  JPG_FILE_EXT

      // Расширение файла должно быть %s.

      Msg = LoadStringFmt('DIRSTR_782'; 'COMMON';

        ArrayOf('*.' & JPG_FILE_EXT))

      Raise(CreateException('EDIRInvalidParamType'; Msg; ecInformation))

 

    else

      Object.Requisites('Текст').LoadFromFile(File)

      Object.Requisites('Текст').Extension = JPG_FILE_EXT

    endif

  endif

© Компания DIRECTUM, 2018

Сообщество пользователей DIRECTUM