Vá até o site http://codecentral.borland.com. Registre-se e tenha acesso a inúmeros recursos e códigos fonte em Delphi e C++Builder. Lá, vc vai encontrar um projeto em Delphi que mostra como reduzir o tamanho de uma figura JPEG, procurando reservar o máximo de qualidade possível. []s
-----Mensagem original----- De: Alisson [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 20 de outubro de 2004 11:49 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Diminuir tamanho de imagem sem perder muita resolução! Certa vez tentei fazer uma rotina como essa. Se salvasse com bmp, o arquivo ficava muito grande. Então tentei mudar para gif ou jpg, mas a figura continuava do mesmo tamanho. O curioso é que se eu abrisse a figura em um editor e salvasse sem fazer nenhuma modificação o tamanho diminuía. Será que tem alguma maneira de salvar com o tamanho já reduzido? ----- Original Message ----- From: "MYSQL" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, October 19, 2004 7:21 PM Subject: Re: [delphi-br] Diminuir tamanho de imagem sem preder muita resolução! Você deve usar jpg ou gif. Use um programa chamado conversor.exe. Se quiser eu posso enviar. Michelangelo V. Freitas [EMAIL PROTECTED] ----- Original Message ----- From: "David Leão " <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Friday, October 15, 2004 7:58 PM Subject: [delphi-br] Diminuir tamanho de imagem sem preder muita resolução! Caros Amigos, Tenho uma rotina pra capturar uma imagem da área de trabalho e salvar como bmp, gostaria de saber se existe uma maneira melhor de fazer, pois do jeito que está a imagem fica com mais de 3mb. Será que gravando em jpg melhora?? vcs podem me ajudar?? a rotina que estou usando eh a descrita abaixo . Keybd_Event(VK_SnapShot, 0, 0, 0); // Simula o pressionamento da tecla Print Screen Image1.Picture.LoadFromClipboardFormat(cf_BitMap, ClipBoard GetAsHandle(cf_Bitmap), 0); // Captura da área de transferência a imagem Image1.Picture.SaveToFile('C:\Desktop.Bmp'); // salva a imagem como bmp. __________________________________________ David Leão Alves Administrador de Banco de Dados Governo do Estado do Amapá Secretaria de Estado do Meio Ambiente - SEMA Av. Mendonça Furtado, 53 - Centro / Macapá-AP 212-5318 - 212-5378 212-5303 [EMAIL PROTECTED] www.sema.ap.gov.br [As partes desta mensagem que não continham texto foram removidas] -- <<<<< 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] ou [EMAIL PROTECTED] 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE ---------------------------------------------------------------------------- ---- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- <<<<< 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] ou [EMAIL PROTECTED] 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] ou [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
