Função para converter Jpg para Png.
Função testada no Delphi XE 7.
É necessário estar declarado Graphics, pngimage, jpeg na seção uses,
em versões unicode declare Vcl.Graphics, Vcl.Imaging.pngimage,
Vcl.Imaging.jpeg;
1
2
3
4
5
6
7
8
9
10
11
| function JpgToPNG(Jpg : TJPEGImage) : TPngImage;
var
vBmp : TBitmap;
begin
Result := TPngImage.Create;
vBmp := TBitmap.Create;
vBmp.Assign(Jpg);
Result.Assign(vBmp);
vBmp.Free;
end; |
function JpgToPNG(Jpg : TJPEGImage) : TPngImage;
var
vBmp : TBitmap;
begin
Result := TPngImage.Create;
vBmp := TBitmap.Create;
vBmp.Assign(Jpg);
Result.Assign(vBmp);
vBmp.Free;
end;
Exemplo de uso:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| procedure TForm1.Button1Click(Sender: TObject);
var
vPng: TPngImage;
vJpg: TJPEGImage;
begin
vJpg := TJPEGImage.Create;
vJpg.LoadFromFile('D:\teste.jpg');
vPng := JpgToPNG(vJpg);
vPng.SaveToFile('D:\novo_teste.png');
vJpg.Free;
vPng.Free;
end; |
procedure TForm1.Button1Click(Sender: TObject);
var
vPng: TPngImage;
vJpg: TJPEGImage;
begin
vJpg := TJPEGImage.Create;
vJpg.LoadFromFile('D:\teste.jpg');
vPng := JpgToPNG(vJpg);
vPng.SaveToFile('D:\novo_teste.png');
vJpg.Free;
vPng.Free;
end;
-
InfusTec
-
8.364 views
- 0 comentários
- 31 de março de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo