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!
Versão Completa: Sistema não carrega formato .JPG
Use o componente OpenPictureDialog
abraço
abraço
Jhonas ele pode tentar isso para facilitar:
Adiciona a USES: jpeg, clipbrd;
......................................
no Botão:
Adiciona a USES: jpeg, clipbrd;
......................................
no Botão:
CODE
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;
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;
if OpenPictureDialog2.Execute then
Valeu a dica Pirambu!
abraço
Valeu a dica Pirambu!
abraço
QUOTE(Jhonas @ 18/07/2009 - 18:03) 
Use o componente OpenPictureDialog
abraço
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?
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 !!
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 !!
QUOTE(Daniel Sanches @ 20/07/2009 - 08:35)
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 !!
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!
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 !!!
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 !!!
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.