Fórum Jpg x bmp #348491
06/11/2007
0
Para guardar, é claro que o jpg é melhor pois ocupa menos espaço, porém como eu preciso imprimí-la com 3 tamanhos diferentes, mas o jpg não permite a manipulação de tamanho, quem me permite isto é o bmp, o qual ocupa muito espaço. Além disto as imagens do cliente são salvas como jpg.
Então vai a pergunta, como manipular isto?
Eis o que tenho:
1) Este exemplo com bmp funciona, só que a imagem tem mais de 1MB, e são dezenas de imagens por dia
Foto := TBitMap.Create;
Foto.LoadFromFile(´Temp\Foto.bmp´);
Foto.Height := 70;
Foto.Width := 120;
Imprimir
2) Neste exemplo a imagem tem aproximadamente 200k, o que é bem mais viável, porém não tenho como alterar o tamanho da imagem para a impressão
Foto := TJPegImage.Create;
Foto := LoadFromFile(´Temp\Foto.Jpg´);
Foto.Height := 70; aqui diz que não posso mudar o tamanho da imagem
Foto.Width := 120; aqui diz a mesma coisa
Imprimir
Alguém conhece alguma solução prática para isto?
Edilcimar
Curtir tópico
+ 0Posts
06/11/2007
Rodc
Foto := TJPegImage.Create; Foto := LoadFromFile(´Temp\Foto.Jpg´); bmp := TBitMap.Create; bmp.Assign(Foto); bmp.Height := 70; bmp.Width := 120; Foto.Assign(bmp); Imprimir
Eu testei isto e ele apenas alterou o tamanho da imagem, sem esticar a imagem. Para esticar a imagem para o novo tamanho, pege o Canvas do bmp e utilize a função StretchDraw().
Gostei + 0
06/11/2007
Alexandrej
Gostei + 0
06/11/2007
Edilcimar
Gostei + 0
06/11/2007
Edilcimar
Gostei + 0
06/11/2007
Alexandrej
O problema parece ser na hora da impressão.
Gostei + 0
06/11/2007
Edilcimar
Gostei + 0
06/11/2007
Rodc
Gostei + 0
06/11/2007
Edilcimar
Gostei + 0
06/11/2007
Edilcimar
Gostei + 0
06/11/2007
Rodc
Se você mandar salvar a imagem em arquivo ele salva cortando ou com o stretch?
Gostei + 0
06/11/2007
Edilcimar
peguei o jpg, transformei em bmp, joguei o bmp para dentro de um image invisível e mandei imprimir este image
Gostei + 0
06/11/2007
Rodc
POG sempre resolve nossos problemas!!!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)