Скачать: CL | DM;

Помогите с базой на Access   Найти похожие ветки 

← →
Vetas   (2004-03-29 10:04) [0]

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

---

← →
Kadr ©   (2004-03-29 11:14) [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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.02 c