[Вовайн]

Таблица отображается в dbgrid. Вот код 2 кнопок. Не грузит изображения. Уже по всякому пробывал надоело мучиться с ним. Может поможет кто?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

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;