Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Vídeos

Vídeos

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Banner

Delphi - Banco de Dados

Salvar imagem em tabela Paradox

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;

Observações

O exemplo acima pinta a imagem diretamente no Canvas do Form1. Uma alternativa mais elegante seria usar um objeto TImage para mostrar a imagem. Para salvar em outros bancos de dados a técnica usava será semelhante.

O conteúdo desta página pode ajudar alguém? Compartilhe!