Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, Уважаемые и всеми любимые эксперты!
Прошу вас уделить минутку внимания и, Извиняюсь
за наглость, ответить на мой вопрос.
Как вставить изображение в поле графического типа,
используя компонент TTable или TQuery (технология BDE). мне пригодится любая информация по этому вопросу...

Вопрос задала: Galina-1480 (статус: Посетитель) Вопрос отправлен: 19 ноября 2007, 20:15 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: min@y™

Как я понял, речь идёт о хранении изображений в BLOB-полях. Если это так, то смотри демо по сабжу. У меня оно лежит тут: D:\Soft\Delphi7\Demos\Db\FishFact\fishfact.dpr

З.Ы. Кажется, такой вопрос тут уже был.

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 20 ноября 2007, 08:16

Ответ #2. Отвечает эксперт: Вадим К

Здравствуйте, Galina!
я надеюсь вы поставили на форму грид и DBImage, DBNavigator. Теперь при нажатии на кнопку добавить в навигаторе текстовые записи можно отредактировать, а изображение - нет. Ну что, поправим.
Ставим OpenPictureDialig и кнопку "Загрузить с файла картинку" и пишем такой код

procedure TForm1.Button3Click(Sender: TObject);
var
B: TBitmap;
begin
B := TBitmap.Create;
try
   if not OpenPictureDialig.execute then exit;
   B.LoadFromFile(OpenPictureDialig.FileName);
   DBImage1.Picture.Assign(B);
finally
   B.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if Clipboard.HasFormat(CF_BITMAP) then
     DBImage1.PasteFromClipboard
   else
     ShowMessage('Буфер обмена не содержит изображения!');
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 20 ноября 2007, 11:57 Оценка за ответ: 5

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.