Transformação bmp-jpg, jpg-bmp
CAROS AMIGOS
PRECISO TRANSFORMAR UMA IMAGEM BMP EM JPG, MAS TB O
PROCESSO CONTRARIO, NAO SEI SE É POSSIVEL, PELO DELPHI
SE PUDEREM DAR UMA DICA.
SOLDI
[b:69133fe175]Título em letras maiúsculas editado, conforme citado nas regras de conduta. Evite-as também no corpo da mensagem. Equivale a gritar.[/b:69133fe175]
PRECISO TRANSFORMAR UMA IMAGEM BMP EM JPG, MAS TB O
PROCESSO CONTRARIO, NAO SEI SE É POSSIVEL, PELO DELPHI
SE PUDEREM DAR UMA DICA.
SOLDI
[b:69133fe175]Título em letras maiúsculas editado, conforme citado nas regras de conduta. Evite-as também no corpo da mensagem. Equivale a gritar.[/b:69133fe175]
Soldi
Curtidas 0
Respostas
Beppe
08/10/2003
Coloque Jpeg num [b:f4bd00566f]uses[/b:f4bd00566f]. Então:
function BmpParaJpg(Bmp: TBitmap): TGraphic;
begin
Result := TJpegImage.Create;
Result.Assign(Bmp);
end;
function JpgParaBmp(Jpg: TJpegImage): TGraphic;
begin
Result := TBitmap.Create;
Result.Assign(Jpg);
end;
Ataliba.
function BmpParaJpg(Bmp: TBitmap): TGraphic;
begin
Result := TJpegImage.Create;
Result.Assign(Bmp);
end;
function JpgParaBmp(Jpg: TJpegImage): TGraphic;
begin
Result := TBitmap.Create;
Result.Assign(Jpg);
end;
Ataliba.
GOSTEI 0