F�rum Carregando FOTOS NO FORMATO JPEG #385084

29/08/2010

Galera eu uso o banco de dados paradox 7 criei um campo no banco chamado fotocli e lancei no meu frmcliente, aparecendo o local da foto (TBimage). Com esse c�digo abaixo eu consigo carregar somente imagem no formato bitmap isso � claro buscando as imagens em um local pr�prio no HD. O que eu gostaria de saber � como proceder para arquivar as imagens j� no formato Jpeg.

procedure Tfrmclientes.imageClick(Sender: TObject);
begin
  if opendialogo.execute then
  Image.Picture.LoadFromFile(opendialogo.FileName);
end;

end.

Quem quiser dar uma tunada no meu meu simples c�digo eu agrade�o. Estarei on aguardando...

Renato

Curtir t�pico

+ 0

Responder

Posts

30/08/2010

Marco Salles

procedure Tfrmclientes.imageClick(Sender: TObject);
begin
  if opendialogo.execute then
  Image.Picture.LoadFromFile(opendialogo.FileName);
end;

end.

Quem quiser dar uma tunada no meu meu simples c�digo eu agrade�o. Estarei on aguardando...

pq ???? Tem algum filtro no opendialogo que impe�a de aparecer imagems em outro formato Utilizando este codigo eu carrego nos dois formatos ...

Responder

Gostei + 0

30/08/2010

Pjrm1470

Eu n�o fiz nenhum teste, mas tenho esse c�digo guardado j� tem um bom tempo.
D� uma olhada pra ver se lhe serve:

Obs.: � necess�rio a unit JPEG adicionada na uses

var
  imgJpg: TJpegImage;
  imgBmp: TBitmap;
begin
  imgJpg := TJpegImage.Create;
  imgBmp := TBitmap.Create;
  try
    imgJpg.LoadFromFile('minhaimagem.jpg'); //Aqui carrega a imagem em JPG
    imgBmp.Assign(imgJpg); //Aqui voc� carrega a sua imagem JPG num BMP
    // Aqui voc� ir� dar o assign na sua TImage usando a vari�vel imgBmp
    // ficaria mais ou menos assim: (veja se adeque ao seu codigo, copiar e colar n vai funcionar direto)
    Image1.Assign(imgBmp);
  finally
    //sempre libere da memoria.
    imgBmp.Free;
    imgJpg.Free;
  end;
end;

veja se lhe ajuda.

Responder

Gostei + 0

30/08/2010

Renato

Amigo,

Primeiro quero agardecer por ter respondindo esse post, mas veja o seu exemplo abaixo:

var
  imgJpg: TJpegImage;
  imgBmp: TBitmap;
begin
  imgJpg := TJpegImage.Create;
  imgBmp := TBitmap.Create;
  try                   //onde mostra minhaimage.jpg eu coloco o opendialogo ou TBimage?
    imgJpg.LoadFromFile('minhaimagem.jpg'); //Aqui carrega a imagem em JPG
    imgBmp.Assign(imgJpg); //Aqui voc� carrega a sua imagem JPG num BMP
    // Aqui voc� ir� dar o assign na sua TImage usando a vari�vel imgBmp
    // ficaria mais ou menos assim: (veja se adeque ao seu codigo, copiar e colar n vai funcionar direto)
    Image1.Assign(imgBmp); //Eu coloquei o meu TBimage onde vai revelar a foto � sei se �
  finally                   //assim pode me ajudar. Eu estou aprendendo. Grato
    //sempre libere da memoria.
    imgBmp.Free;
    imgJpg.Free;
  end;
end;

Responder

Gostei + 0