Converter BMP / JPG

Delphi

15/02/2004

Tenho em um Image uma foto ( suponho que seja BMP, pois capturei a mesma do scaner ). e presciso converte-la para JPG de um jei bem basico...Exemplo:

Image1 contem a imagem BMP
Image2 recebe o JPG
um botão para converter...

complicado ?.....

Valeuuuuuuuuuuuu


Gigatel

Gigatel

Curtidas 0

Respostas

Fórum Vini

Fórum Vini

15/02/2004

Olá,
use esse código:
var
  Jpg: TJpegImage;
begin
  Jpg:= TJpegImage.Create;
  Jpg.Assign(Image1.Picture.Bitmap);
  Jpg.SaveToFile(´C:\nomedafigura.jpg´);
  Jpg.Free;
end;
Coloque a unit Jpeg no seu uses.

Espero ter ajudado.
Vinicius.


GOSTEI 0
Gigatel

Gigatel

15/02/2004

Olá, use esse código: 
var
  Jpg: TJpegImage;
begin
  Jpg:= TJpegImage.Create;
  Jpg.Assign(Image1.Picture.Bitmap);
  Jpg.SaveToFile(´C:\nomedafigura.jpg´);
  Jpg.Free;
end;
Coloque a unit Jpeg no seu uses. Espero ter ajudado. Vinicius.



Valeu ajudou sim só mudei isso:

var
Jpg: TJpegImage;
begin
Jpg:= TJpegImage.Create;
Jpg.Assign(Image1.Picture.Bitmap);
_FormCliente.Image2.Picture.Assign(Jpg);
// Jpg.SaveToFile(´C:\nomedafigura.jpg´); // Cód. Original
Jpg.Free;
end;


Só estou com dificuldades para salvar em banco de dados....mas estou na luta...


valeuuuuuuuuuu


GOSTEI 0
Gigatel

Gigatel

15/02/2004

Olá, use esse código: 
var
  Jpg: TJpegImage;
begin
  Jpg:= TJpegImage.Create;
  Jpg.Assign(Image1.Picture.Bitmap);
  _FormCliente.Image3.Picture.Assign(Jpg);
  Jpg.Free;
end;
Coloque a unit Jpeg no seu uses. Espero ter ajudado. Vinicius.


Como faço salvar a figura q esta no image3 ( já convertida para jpg )
Uso esta função para buscar arquivos jpg no HD será que dá para adptar ?

procedure T_FormCliente.Button4Click(Sender: TObject);
var
FileStream : TFileStream;
BlobStream : TBlobStream;
begin
Table1.edit;
if Opendialog1.Execute then
FileStream := TFileStream.Create(OpenDialog1.FileName,
fmOpenRead or fmShareDenyWrite);
BlobStream := TBlobStream.Create(Table1Fig1, bmWrite);
try
BlobStream.CopyFrom(FileStream, FileStream.Size );
finally
FileStream.Free;
BlobStream.Free;
end;
end
else
Abort;


Valeuuuuuuuu


GOSTEI 0
POSTAR