Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2022, 23:27   #1
Ogo_kakoi_paren
Новичок
Джуниор
 
Регистрация: 07.05.2017
Сообщений: 1
По умолчанию Вывод изображения из таблицы в TImage

Доброго времени суток! Подскажите пожалуйста, как можно вывести изображение (jpeg) из ячейки таблицы (access) в TImage? В прошлом году как-то делал, код из прошлого проекта взял. Но что-то не отображается картинка, хотя файл в базу загружается. Код прилагаю)

Код:
unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, DBCtrls, ExtCtrls, jpeg;

type
  TForm3 = class(TForm)
    ds1: TDataSource;
    tbl1: TADOTable;
    lbl1: TLabel;
    dbtxt1: TDBText;
    dbtxt2: TDBText;
    lbl2: TLabel;
    grp1: TGroupBox;
    dbgrd1: TDBGrid;
    dbnvgr1: TDBNavigator;
    img1: TImage;
    dlgOpen1: TOpenDialog;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
    procedure tbl1AfterScroll(DataSet: TDataSet);
    procedure img1Click (Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses
  Unit1, Unit2;

{$R *.dfm}

procedure TForm3.btn1Click(Sender: TObject);
var
  jpg: TJPEGImage;
begin
  if dlgOpen1.Execute then
  begin
    jpg := TJPEGImage.Create;
    try
      jpg.LoadFromFile(dlgOpen1.FileName);
      tbl1.Edit;
      tbl1.FieldByName('Photo').Assign(jpg);
      tbl1.Post;
    finally
      jpg.Free
  end;
end;
end;

procedure TForm3.tbl1AfterScroll(DataSet: TDataSet);
var
  jpg: TJPEGImage;
begin
   if not tbl1.FieldByName('photo').IsNull then
   begin
     jpg := TJPEGImage.Create;
     try
       jpg.Assign(tbl1.FieldByName('photo'));
       img1.Picture.Assign(jpg);
       finally
         jpg.Free;
   end;
end
else
img1.Picture := nil;

end;
Ogo_kakoi_paren вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Загрузка изображения из сервера на TIMAGE beegl Общие вопросы Delphi 1 30.03.2020 17:17
Загрузка изображения в TImage. rustorkan Общие вопросы Delphi 12 01.07.2018 14:36
Вывод изображения в TImage с проверкой на равные пропорции tim21701 Общие вопросы Delphi 2 03.09.2015 16:59
Сжатие изображения в TImage dwp_prof Мультимедиа в Delphi 2 21.04.2012 22:16
TImage определения типа изображения Anubys C++ Builder 2 06.04.2012 23:02