Olá, eu utilizo da seguinte maneira, para gravar:
procedure TFormEmpresa.Exporta1Click(Sender: TObject);
var Stream: TStream;
Stream2: TMemoryStream;
ImagemJPG: TJPEGImage;
Imagem: TBitmap;
begin
if Dmcon.cdsEmpresa.State in [dsEdit, dsInsert] then
begin
OpenPictureDialog1.InitialDir := (ExtractFilePath(Application.ExeName)
+ 'Logos');
if (OpenPictureDialog1.Execute) then
if (AnsiUpperCase(ExtractFileExt(OpenPictureDialog1.FileName)) =
'.BMP') then
begin
Stream := TFileStream.Create(OpenPictureDialog1.FileName,
fmOpenRead or fmShareDenyWrite);
Stream.Position := 0;
TGraphicField(Dmcon.cdsEmpresa.FieldByName('LOGOMARCA')).LoadFromStream(Stre
am);
Stream.Free;
end
else if (AnsiUpperCase(ExtractFileExt(OpenPictureDialog1.FileName)) =
'.JPG') then
begin
Stream2 := TMemoryStream.Create;
Stream2.Clear;
ImagemJpg := TJPEGImage.Create;
ImagemJpg.LoadFromFile(OpenPictureDialog1.FileName);
Imagem := TBitmap.Create;
Imagem.Width := ImagemJPG.Width;
Imagem.Height := ImagemJPG.Height;
Imagem.Canvas.Draw(0, 0, ImagemJPG);
Imagem.SaveToStream(Stream2);
Stream2.Position := 0;
TGraphicField(Dmcon.cdsEmpresa.FieldByName('LOGOMARCA')).LoadFromStream(Stre
am2);
Stream2.Free;
ImagemJPG.Free;
Imagem.Free;
end
else
Application.MessageBox('Esta não é uma IMAGEM VÁLIDA...', 'ATENÇÃO
!!!', MB_ICONSTOP);
end
else
begin
Application.MessageBox('Clique em EDITAR para realizar qualquer
ALTERAÇÃO...', 'ATENÇÃO !!!', MB_ICONSTOP);
end;
end;
E para Excluir
procedure TFormEmpresa.Excluir1Click(Sender: TObject);
begin
inherited;
dbimage1.Picture:= nil;
end;
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de carolinetcc
Enviada em: terça-feira, 7 de novembro de 2006 13:49
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Lendo e Gravando Imagem no BD
Olá pessoal!
Preciso muito da ajuda de vocês!
É o seguinte... eu uso um Banco de Dados(Firebird) integrado ao
Delphi, e nesse BD eu tenho uma tabela chamada EVENTOS, onde um dos
campos desta tabela chama-se LOGO_EVENTO que eu preciso armazenar o
logo/imagem do evento.
Eu já estou lendo a imagem e mostrando ela num componente Image, mas
eu quero GRAVAR essa imagem no meu banco de dados...
Espero que alguém possa me ajudar.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
