Вывести OLE объекты на форму

@Артем 1998 · Регистрация: 01.10.2015

Author24 — интернет-сервис помощи студентам

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

@Евгения01 · 14.05.2016, 16:38

Артем 1998, частая ошибка, возможно криво установилась картинка. Плюс формат должен быть .bmp

@Артем 1998 · 14.05.2016, 16:47 **[ТС]**

Евгения01, формат нужный .bmp? а что ты имеешь в виду под "возможно криво установилась картинка" ?

@Евгения01 · 14.05.2016, 16:51

Артем 1998, это может косячить сама БД, в чем разрабатывал (Access)!?

@Артем 1998 · 14.05.2016, 16:56 **[ТС]**

Евгения01, она самая (MS Access)

Добавлено через 43 секунды
Евгения01, А что тогда посоветуешь чтобы исправить как то и вывести их ?

@Евгения01 · 14.05.2016, 17:17

Артем 1998, просматривай их и добавляй через обычный image

Добавлено через 4 минуты
Артем 1998,

Delphi

procedure TDataModule4.sotrAfterScroll(DataSet: TDataSet);
var
  jpg: TJPEGImage;
begin
  if not DataModule4.sotr.FieldByName('Photo').IsNull then
  begin
    jpg := TJPEGImage.Create;
    try
      jpg.Assign(DataModule4.sotr.FieldByName('Photo'));
    Sotrud.Image1.Picture.Assign(jpg);
    finally
      jpg.Free;
    end;
  end else
    Sotrud.Image1.Picture := nil;
end;

это в Adotable кидай на свойство AfterScroll.

Delphi

var
  jpg: TJPEGImage;
begin
  if OpenDialog1.Execute then
  begin
    jpg := TJPEGImage.Create;
    try
      jpg.LoadFromFile(OpenDialog1.FileName);
     DataModule4.sotr.Edit;
       DataModule4.sotr.FieldByName('Photo').Assign(jpg);
     DataModule4.sotr.Post;
    finally
      jpg.Free;
    end;
  end;
  DataModule4.sotrAfterScroll(DataModule4.sotr);

на форму image и button. в uses jpeg пропиши. и через кнопку добавь картинки в данном случае уже можно jpeg. а те старые удали перед добавлением. Сделай сперва одну, потом поменяй поле в AfterScroll и все тоже самое и будет тебе счастье.

Добавлено через 37 секунд
Артем 1998, вообще здесь я этот код и нашла, кто то из модераторов писал.

@Артем 1998 1 / 1 / 0 Регистрация: 01.10.2015 Сообщений: 100
		1
	Вывести OLE объекты на форму 14.05.2016, 16:29. Показов 653. Ответов 5 Метки нет (Все метки) Не получается вывести OLE объекты, в базе в каждой записи хранятся по 2 фотографии объекты OLE их надо вывести в проект на отображение и редактирование, но как только в DBImage указываю таблицу и поле выдает такую ошибку. Как исправить и вывести эти фотографии из базы на форму, с возможностью редактирования ? Миниатюры 0

@Евгения01 13 / 13 / 5 Регистрация: 29.10.2015 Сообщений: 318
	14.05.2016, 16:38	2
	Артем 1998, частая ошибка, возможно криво установилась картинка. Плюс формат должен быть .bmp 0

@Артем 1998 1 / 1 / 0 Регистрация: 01.10.2015 Сообщений: 100
	14.05.2016, 16:47 [ТС]	3
	Евгения01, формат нужный .bmp? а что ты имеешь в виду под "возможно криво установилась картинка" ? 0

@Евгения01 13 / 13 / 5 Регистрация: 29.10.2015 Сообщений: 318
	14.05.2016, 16:51	4
	Артем 1998, это может косячить сама БД, в чем разрабатывал (Access)!? 0

@Артем 1998 1 / 1 / 0 Регистрация: 01.10.2015 Сообщений: 100
	14.05.2016, 16:56 [ТС]	5
	Евгения01, она самая (MS Access) Добавлено через 43 секунды Евгения01, А что тогда посоветуешь чтобы исправить как то и вывести их ? 0

	14.05.2016, 17:17