Tecnobyte

O exemplo abaixo demonstra como salvar imagens Bitmap em tabelas Paradox. 1. Crie uma tabela Paradox com um campo do tipo Binary (B). 2. Coloque no form um Table e ligue-o com a tabela Paradox recém criada. 3. Coloque também um OpenDialog. 4. Para carregar a imagem de um arquivo bitmap para a tabela faça assim: procedure TForm1.Button1Click(Sender: TObject); var Bmp: TBitmap; begin if not OpenDialog1.Execute then Exit; Bmp := TBitmap.Create; try Bmp.LoadFromFile(OpenDialog1.FileName); Table1.Insert; Table1.FieldByName('Imagem').Assign(Bmp); Table1.Post; finally Bmp.Free; end; end; Para mostrar no form a imagem que foi salva na tabela siga o exemplo: procedure TForm1.Button2Click(Sender: TObject); var Bmp: TBitmap; begin Bmp := TBitmap.Create; try Bmp.Assign(Table1.FieldByName('Imagem')); Form1.Canvas.Draw(0, 0, Bmp); finally Bmp.Free; end; end;
O conteúdo desta página pode ajudar alguém? Compartilhe!