[Rofar]

Пожалуйста найдите в этом коде ошибки если они есть...

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject); 

var fEdit:boolean; 

begin //загрузка из файла 

  if OpenPictureDialog.Execute then begin 

    if Table.State=dsBrowse then begin Table.Edit; fEdit:=true; end 

    else fEdit:=false; 

    Image.Picture.LoadFromFile(OpenPictureDialog.FileName); 

    if fEdit then Table.Post; 

  end; 

end; 



procedure TForm1.TableBeforePost(DataSet: TDataSet); 

var BLOB:TBlobStream; 

begin //сохранение картинки в базе 

  BLOB:=TBlobStream.Create(TableImage,bmWrite); 

  try 

   Image.Picture.Graphic.SaveToStream(BLOB); 

  finally BLOB.Free; end; 

end; 



procedure TForm1.DataSourceDataChange(Sender: TObject; Field: TField); 

var BLOB:TBlobStream; 

Code:word; 

begin //считывание картинки из базы 

  if DataSource.State=dsBrowse then begin 

  BLOB:=TBlobStream.Create(TableImage,bmRead); 

  try 

   BLOB.Read(Code,SizeOf(Code)); BLOB.Seek(0,0); 

   case Code of 

    $4D42: begin 

      Image.Picture.Graphic:=TBitmap.Create; 

      Image.Picture.Graphic.LoadFromStream(BLOB); 

    end; 

    $D8FF: begin 

      Image.Picture.Graphic:=TJPEGImage.Create; 

      Image.Picture.Graphic.LoadFromStream(BLOB); 

    end; 

   end; 

   finally BLOB.Free; end; 

  end; 

end;