Convertendo JPG para Bmp?

09/12/2003

4

MEU PROGRAMA ARQUIVA BMP EM TABELA POIS INFELISMENTE NÃO CONSEGUI COLOCAR JPEGS

COMO PODERIA COLOCAR NESSA FUNÇÃO UM CONVERSOR DE JPG P/ BMP ANTES DE GRAVAR A IMAGEM NO BD???

VAR
BMP: Tbitmap;

begin
BMP:= Tbitmap.Create;
if OpenPictureDialog1.Execute then
begin
try
BMP.LoadFromFile(OpenPictureDialog1.FileName);
DBImage1.Picture.Assign(BMP);

finally
BMP.Free;
end;
end;
end;


Responder

Posts

09/12/2003

Frare

Olá Campos

Tente esta função:

function JpgToBmp(cImage: String): Boolean;
// Requer a Jpeg declarada na clausua uses da unit
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
Result := False;
if fileExists(cImage+´.Jpeg´) then
begin
MyJPEG := TJPEGImage.Create;
with MyJPEG do
begin
try
LoadFromFile(cImage+´.Jpeg´);
MyBMP := TBitmap.Create;
with MyBMP do
begin
Width := MyJPEG.Width;
Height := MyJPEG.Height;
Canvas.Draw(0,0,MyJPEG);
SaveToFile(cImage+´.Bmp´);
Free;
Result := True;
end;
finally
Free;
end;
end;
end;
end;

Espero ter ajudado :wink:


Responder

09/12/2003

Crcam

EU JÁ TINHA ESSE FONTE TENTEI FAZER OS DOIS TRABALHAR JUNTOS MAS DA ERRO NÃO SEI O QUE ESTOU FAZENDO DE ERRADO


MINHA INTENÇÃO É FAZER UM BTN QUE PROCURE A IMG SE FOR BMP GRAVA DIRETO NO BD CASO FOR JPG CONVERTE BMP E DEPOIS GRAVA.


NA VERDADE TENTEI ACHAR UM BANCO DE DADOS QUE ACEITASSE JPEG MAS O BLOB SÓ ARQUIVA ICO, BMP,WMF

O BANCO FICA ENORMA MAS FAZER O QUE.
TENTEI UM FONTE QUE RODA POR AI DE JPG EM BDE MAS NÃO FUNCIONOU.

CASO VC DESCUBRA UM LUGAR PARA QUE EU POSSA CONSULTAR AGRADESSO E SE DER CERTO EM PASSE SEU E-MAIL QUE MANDO O PROG PRONTO PARA VC .

É UM SISTEMA DE COFRE VIRTUAL.



CRCAMPOS,
Não escreva o conteúdo da sua mensagem utilizando caixa alta. É o mesmo que gritar. Por favor, leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.
Sandra/Moderação


Responder
jpeg no uses...

function JpgToBmp(Jpg: TJPEGImage): TBitmap;
begin
  Result := TBitmap.Create;
  Result.Assign(Jpg);
end;


para usar:

var
 Image: TPicture;
begin 
if OpenPictureDialog1.Execute then 
begin 
try 
Image.LoadFromFile(OpenPictureDialog1.FileName); 
if Image.Graphic is TJPEGImage then
  Image.Bitmap := JpgToBmp(Image.Graphic);
DBImage1.Picture.Assign(Image.BMP); 
end; 





não testei... e favor não postar o título da mensagem totalmente em maiúsculas como consta nas Regras de Conduta


Responder

12/09/2010

Renato

Ola! Me chamo Renato e estou utilizando o seu código fonte para converter imagen, mas esta dando esse erro veja:
procedure TFrmclientes.DBImage1Click(Sender: TObject);
var
Image: TPicture;
begin
if OpenPictureDialog1.Execute then
begin
try
Image.LoadFromFile(OpenPictureDialog1.FileName);
if Image.Graphic is TJPEGImage then
Image.Bitmap := JpgToBmp(Image.Graphic);
DBImage1.Picture.Assign(Image.BMP);
end;

end;

end.





Responder

13/09/2010

Fábio Cruz

Santo Google Batman!

http://www.tecnobyte.com.br/dica8.html#dica179
Responder
Cara de uma olhadinha neste componente aqui nao testei ele mas testa ai e posta aqui se funcionou. Abraços
http://www.inf.ufsc.br/~prass/vcl/multimidia/jpgtobmp.zip

Responder

14/09/2010

Wilson Junior

function  ConverterJpegToBmp(CaminhoJpeg, CaminhoBmp: string): string;
var
  Bmp: TBitmap;
  Jpeg: TJPEGImage;
begin
  Result := '';
  if  FileExists( CaminhoJpeg ) then
    begin
      CaminhoBmp := ChangeFileExt( CaminhoBmp, '.bmp' );
      if  not FileExists( CaminhoBmp ) then
        begin
          Bmp := TBitmap.Create;
          Jpeg := TJPEGImage.Create;
          try
            Jpeg.LoadFromFile( CaminhoJpeg );
            Bmp.Assign( Jpeg );
            Bmp.SaveToFile( CaminhoBmp );
            Result := CaminhoBmp;
          finally
            Jpeg.Free;
            Bmp.Free;
          end;
        end
      ;
    end
  ;
end;


Espero ter colaborado.
Responder

14/09/2010

Pietro Braga

Santo Google Batman!

http://www.tecnobyte.com.br/dica8.html#dica179


uhasusahuashasuhasuauashsuhsauhasuashasuhsauashushsauhasushauashasuhasuas..................

Esse funcona, ja usei uma vez esse mesmo código, por isso ficou mais engraçado ainda!!!

suahsuahsauhasushsuahsaushusahsauhasuhsaushuashasuhas...
Responder

19/04/2015

Paulo Andrade

Ao usar o código apresenta erro de falta da use. Declarei a use JPEG mas acho que o delphi XE 7 que estou usando não tem. Como proceder?
Responder