valeu galera pela ajuda hj a noite estarei testando os dois códigos blz mesmo valeu...
----- Mensagem original ---- De: Desenvolvimento (Anderson) <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 19 de Janeiro de 2007 8:47:03 Assunto: Re: [delphi-br] pegar tamanho da imagem para complementar, e pegar o tamanho em pixels da imagem, vc faz: image1.autosize := true; image1.picture. loadfromfile( 'C:\ARQUIVO. JPG'); daí vc pega o height e o width da imagem para saber a altura e a largura, respectivamente. facinho... rsrsrs para não ficar feio, oculte a image1 ----- Original Message ----- From: Ricardo Berti To: [EMAIL PROTECTED] os.com.br Sent: Friday, January 19, 2007 8:17 AM Subject: Re: [delphi-br] pegar tamanho da imagem Olá meu amigo, use a rotina abaixo, ele verifica o arquivo antes mandar ele pro dbimage: procedure... var F: file of Byte; begin if OpenPictureDialog1. Execute then begin AssignFile(F, OpenPictureDialog1. FileName) ; Reset(F); try if FileSize(F) > 512000 then ShowMessage( 'O arquivo tem mais de 500kb!') else DBImage1.Picture. Bitmap.LoadFromF ile(OpenPictureD ialog1.FileName) ; finally CloseFile(f) ; end; end; end; Bom Código Ricardo Berti ----- Original Message ----- From: Renato Lorandi To: Lista Delphi Sent: Thursday, January 18, 2007 11:35 PM Subject: [delphi-br] pegar tamanho da imagem Olá pessoal estou desenvolvendo minha tela de cadastro onde nesta tenho que colocar a foto do cliente, so que gostaria de delimitar um tamanho para a foto para caber direito no espaço destinado a ela na tela.. mas não tenho a minima ideia de como fazer isso, o componente que estou usando para colocar a imagem na tela é o EDBImage, baixei esse componente ai,pois ele suporta imagens do tipo JPG e não so BMP como o DBImage, apos carregar a imagem vou gravar ela em banco, mas o que gostaria é o seguinte na hora que estou selecionando a imagem atraves do openPictureDialog ele me apresentar uma mensagem dizendo que a foto é muito grande... entenderam.. . ou se alguem tiver outra ideia lógico que estou interessado em saber ok.. aguardo retorno.. abraços... ____________ _________ _________ _________ _________ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger .yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __________ Informação do NOD32 IMON 1988 (20070118) __________ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. com.br [As partes desta mensagem que não continham texto foram removidas] __________________________________________________ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
