DBImage

Question

Eu vi um exemplo em um livro que o dbimage e o dbmemo busca em um arquivo.mb, como fa�o para utilizar o dbimage no delphi ou seja que as imagens fiquem

Fabio.hc · Answer

Vc coloca um DBImage no form apontando para o campo da sua tabela q vai receber a imagem e para armazenar a imagem no campo da tabela fa�a o seguinte:

procedure TForm1.Button1Click(Sender: TObject);
var BMP: TBitMap;
begin
   BMP := TBitMap.Create;
   if OpenPictureDialog1.Execute then
      begin
      if Table1.State in [dsInsert, dsEdit] then
         begin
         BMP.LoadFromFile(OpenPictureDialog1.FileName);
         Table1Imagem.Assign( BMP );
         end;
      end;
end;