Valdir , você já utilizou com MySQL ? - - - - att' Paulo Batalhão - [EMAIL PROTECTED] arphanet.com <http://www.arphanet.com/> batalhao.eti.br <http://www.batalhao.eti.br/> saudeamericana.com.br <http://www.saudeamericana.com.br/> fusame.com.br <http://www.fusame.com.br/>
"Não existe patch para a estupidez humana" ----- Original Message ----- From: "Valdir UOL" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Tuesday, November 07, 2006 3:39 PM Subject: RES: [delphi-br] Lendo e Gravando Imagem no BD 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 >>>>> Links do Yahoo! Grupos -- Este e-mail está livre de vírus. Verificado por AVG. Versão: 7.5.431 / Banco de dados de Vírus: 268.13.31/522 - Data de Lançamento: 7/11/2006 09:40 -- <<<<< 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