Sistema não carrega formato .JPG

[nsouza]

Colegas,

meu sistema esta carregando as fotos perfeitamente, o problema é que só aceita foto no formato .bmp.

Ao inserir foto no formato .jpg da a seguinte mensagem de erro.

"Unkonw picture file extension (.jpg)". Estou usando o componente OpenDialog

Alguém pode me ajudar.

Obrigado!

[Jhonas]

Use o componente OpenPictureDialog

abraço

[Pirambu!]

Jhonas ele pode tentar isso para facilitar:

Adiciona a USES: jpeg, clipbrd;

......................................

no Botão:

procedure TFCad_Clientes.BitBtn13Click(Sender: TObject);
var
jpg: Tjpegimage;
begin
dados.TBClientes.Edit;
if OpenPictureDialog2.Execute then
  begin
  jpg:= Tjpegimage.Create;
  jpg.LoadFromFile(openpictureDialog2.FileName);
  Clipboard.Assign(jpg);
  Dbimage2.PasteFromClipboard;
  jpg.Free;
  end;
dados.TBClientes.Post;
end;

[Jhonas]

if OpenPictureDialog2.Execute then

Valeu a dica Pirambu!

abraço

[nsouza]

Use o componente OpenPictureDialog

abraço

Jhonas,

foi perfeito, carregou sem problemas. No entando a foto ultrapassou o tamanho do espaço que defini.

Como faço para ajustar tamanho do componente TImage?

[Daniel Sanches]

qual o tamanho do TImage ??? qual o tamanho da Imagem que está carregando ???

se você quiser reduzir ou ampliar a imagem, conforme o tamanho do TImage, use

a propriedade Stretch = True (no TImage) ...

se não for isso, post novamente ...

abraços !!

[nsouza]

qual o tamanho do TImage ??? qual o tamanho da Imagem que está carregando ???

se você quiser reduzir ou ampliar a imagem, conforme o tamanho do TImage, use

a propriedade Stretch = True (no TImage) ...

se não for isso, post novamente ...

abraços !!

estou usando o OpenPictureDialog2. Com respeito a imagem, como assim tamanho da imagem? Eu apenas tiro com a maquina

digitau o coloco na pasta!

[Daniel Sanches]

vamos supor que o arquivo.jpg tenha a resolução 1024x768...

vamos supor que seu objeto TImage tenha a resolução 640x480...

se você carregar o arquivo.jpg no seu TImage, ele vai carregar apenas parte do arquivo.jpg (640x480),

a contar do topo=0 e esquerda=0 ...

tem uma propriedade "Center" no TImage, que se estiver = True, o TImage irá carregar apenas parte

do arquivo.jpg (640x480), a contar do centro ....

tem uma propriedade "Stretch" no TImage, que se estiver = True, o Timage irá reduzir o arquivo.jpg

para 640x480, exibindo toda a imagem .... (porém, deve-se tomar cuidado para que, se mantenha a

proporção da imagem, para que ela não fique destorcida) ...

se não for isso que deseja, post novamente ...

abraços !!!