Convertendo JPG para Bmp?
09/12/2003
0
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;
Crcam
Posts
09/12/2003
Frare
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:
09/12/2003
Crcam
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
09/12/2003
Marcelo Saviski
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
12/09/2010
Renato
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.
13/09/2010
Fábio Cruz
http://www.tecnobyte.com.br/dica8.html#dica179
14/09/2010
Leonardo Xavier
http://www.inf.ufsc.br/~prass/vcl/multimidia/jpgtobmp.zip
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.
14/09/2010
Pietro Braga
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...
19/04/2015
Paulo Andrade
Clique aqui para fazer login e interagir na Comunidade :)