Buscar

Inserindo imagem a um campo blob

Código

 // Neste exemplo utilizei um campo tipo blob do meu banco de dados
  // Inclua na cláusula uses a unit: clipbrd

  // declare uma váriavel para a imagem

  var
  imagem : TPicture;

  // Crie um botão do tipo bitbutton e escreva o seguinte código entre o par begin / end

  imagem:=TPicture.Create;
  imagem.LoadFromFile(OpenPictureDialog1.FileName);
  Clipboard.Assign(imagem);
  DBImage1.PasteFromClipboard;
  imagem.Free;



 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 02/05/05
Por: William
Visualizada: 17833 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009