Ai vai !
procedure TCad_Casas.BitBtn2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
try
size := FileSize(f);
if size <= 30000 then
begin
Imagem := TBitmap.Create;
Imagem.LoadFromFile(OpenDialog1.FileName);
Stream := TMemoryStream.Create;
Imagem.SaveToStream(Stream);
Datamodule1.Fotos.Edit;
Datamodule1.FotosFoto.LoadFromStream(Stream);
Datamodule1.fotos.Post;
Imagem.Free;
Stream.Free;
Cad_Casas.PageControl1Change(Sender);
end;
if size > 30000 then
begin
MessageDlg('Esta imagem selecionada tem '+inttostr(size)+' bytes, e o
maximo permitido para não atrapalhar o desempenho do Banco de Dados é de
30.000 bytes. Edite esta imagem para inseri-la no sistema.', mtInformation,
[mbOk], 0, mbOk);
end;
except
Showmessage('Problemas na importação da imagem');
end;
end;
end;
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de HNS Informática
Enviada em: sábado, 22 de outubro de 2005 10:19
Para: Lista DelphiBr; DelphiTotal; DelphiMysql; DelphiLista
Assunto: [delphi-br] Limitar tamanho da Imagem
Pessoal, estou armazenando uma imagem jpg no banco mysql, e mostrando na
tela atraves de um TImage, tem como limitar o tamanho dessa figura para 50K?
Abraços
Charles A. Chiodi
[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]
Yahoo! Grupos, um serviço oferecido por:
<http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_notebooks_c.gif>
_____
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]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do <http://br.yahoo.com/info/utos.html> Yahoo!.
[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]
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
