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.LoadFromFile(OpenPictureDialog1.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]
