Fórum Converter BMP / JPG #214343

Olá,
use esse código:
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

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