Duvida no Timage

Delphi

18/05/2006

Olá amigos...


Primeiramente tenho um banco sqlserver . Na tabela de alunos tenho imagens Bmp e Jpg. so que o meu (Timage) so carrega as imagens JPG! Gostaria de saber como faço para ele carregar tanto o bmp como o jpg?

Desde de já obg pela atenção de todos aki no Forum ClubDelphi.


Alexespina

Alexespina

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

18/05/2006

Cara, vc pode fazer uma verificação mais ou menos assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    if ExtractFileExt(FileName) = ´.jpg´ then
      Image1.Picture.LoadFromFile(FileName)
    else if ExtractFileExt(FileName) = ´.bmp´ then
      Image1.Picture.Bitmap.LoadFromFile(FileName);
    else 
      ShowMessage(´Tipo inválido´);
  end;
end;



GOSTEI 0
Alexespina

Alexespina

18/05/2006

veleu pela dica deu certo!
muito boa!


:D


GOSTEI 0
POSTAR