| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите с базой на Access

Vetas ©   (2004-03-29 10:04:00) 

День добрый. Суть в следующем. В поле объекта OLE надо вставить вотографию в JPG, но при подключении базы BDImage матрерится "Bitmap image is not valid"

---

Kadr   (2004-03-29 11:14:00) [1]

Используй TImage
Код примерно следующий:

Uses JPEG

var
img:Stream;
jpg:TJPEGImage;
begin
if OpenDialog1.Execute then
  begin
   try
    jpg:=TJPEGImage.Create;
    jpg.LoadFromFile(OpenDialog1.FileName);
    Image1.Picture.Assign(jpg);
   
    img:=Table1.CreateBlobStream(Table1.FieldByName('BLOB'),
     bmWrite);
    jpg.SaveToStream(img);  
  finally
    jpg.Free;
    img.Free;  
  end;
  end;
end;

---

Наверх