Esse programa esta instalado em um cliente, e ele tira as fotos e Direto da maquina digital passa pro computador.. por isso o tamanho Da foto..
O código é o seguinte: var Imagem: TPicture; JPEG : TJPEGImage; begin OpenDialog.Execute; if OpenDialog.FileName = '' then Exit; Imagem := TPicture.Create; Imagem.LoadFromFile(OpenDialog.FileName); JPEG := TJPEGImage.Create; JPEG.Assign(Imagem); JPEG.CompressionQuality := 25; Clipboard.Assign(JPEG); DBImage1.PasteFromClipboard; Imagem.Free; end; Bom, não sei se isto esta correto, só sei que depois de gravadas Umas 30 imagens de 1 mb cada no banco de dados.. ele foi pra mais de 500 MB... e as outras informções são somente texto... O que acontece para aumentar tanto o tamanho do banco? Obrigado -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 7 de março de 2006 07:59 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Converter Imagem Prioridade: Alta JPEG com mais de 1MB de tamanho? Que imagens são essas que vc grava no banco? Imagino que se você gravasse como BMP teria uns 10MB cada imagem! Posta o teu código que grava as imagens no banco pra gente analisar. Sds. >From: Anderson Cichon <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: delphi-br@yahoogrupos.com.br >Subject: [delphi-br] Converter Imagem >Date: Mon, 06 Mar 2006 22:54:07 -0300 > >Boa tarde > >Estou gravando imagens jpeg no banco de dados firebird.. >O problema é que cada arquivo de imagem de mais de 1 mb... >Como faço para diminuir o tamanho do arquivo antes de >armazenar no banco > >Muito obrigado > _________________________________________________________________ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- <<<<< 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