Delphi
Базы данных
Общие вопросы

Показать картинку из БД

Опубликовано: 28 сен 05
Рейтинг:

Автор: LexusR
Прислал: ScareCrow

procedure TForm1.Button2Click(Sender: TObject);
var
  blobstream : TADOBlobStream;
  jpeg       : TJPEGImage;
begin
    ADOQuery1.Connection := ADOConnection1;
    ADOQuery1.SQL.Text   := 'select top 1 Image from Photo' ;
    ADOQuery1.Open;
    if not ADOQuery1.FieldByName('Image').IsNull then
      begin
        try
        blobstream := TADOBlobStream.Create(TBlobField(ADOQuery1.FieldByName('Image')), bmRead);
        jpeg  := TJPEGImage.Create;
        jpeg.LoadFromStream(blobstream);
        Image1.Picture.Bitmap.Assign(jpeg);
        finally 
        jpeg.Free;
        blobstream.Free;
      end

end;

Комментарии


  • Полный супер было бы, если бы показал как в таблицу таким же макаром записать данные.
    В смысле добавление и изменение поля.

  • былоб вообще супер еслиб ты ещё коментарии на русском сделал!



Необходимо войти на сайт, чтобы оставлять комментарии

Раздел FAQ: Delphi / Базы данных / Общие вопросы / Показать картинку из БД