Войти

Показать полную графическую версию : Загрузка и отображение в бд aceess


ВоВайН
11-03-2015, 15:02
Таблица отображается в dbgrid. Вот код 2 кнопок. Не грузит изображения. Уже по всякому пробывал надоело мучиться с ним. Может поможет кто?
http://i57.fastpic.ru/big/2015/0311/0f/d586449e22066864bb8593b543c2740f.png

procedure TForm10.sButton4Click(Sender: TObject);
var
Blob:TMemoryStream;
begin
try
if OpenPictureDialog1.Execute then
begin
ADOQuery1.Edit;
TBLOBField(ADOQuery1.FieldByName('Фото')).LoadFromFile(OpenPictureDialog1.FileName);
ADOQuery1.Post;
ADOQuery1.Refresh;
end;
except
on e:Exception do
end;
end;


procedure TForm10.sButton5Click(Sender: TObject);
var
jpg:TJPEGImage;
Blob:TMemoryStream;
bmp:TBitmap;
begin
try
bmp:=TBitmap.Create;
jpg:=TJPEGImage.Create;
ADOQuery1.First;
Blob:=TADOBlobStream.Create(TBlobField(ADOQuery1.FieldByName('Фото')),bmRead);
jpg.LoadFromStream(Blob);
DBImage1.Picture.Assign(jpg);
ADOQuery1.Post;
ADOQuery1.Refresh;
jpg.Free;
Blob.Free;
bmp.Free;
except
on e:Exception do
begin
jpg.Free;
Blob.Free;
bmp.Free;
end;
end;
end;




© OSzone.net 2001-2012