[Medio]Converter Arquivos BMP para JPG

O que o programa faz?
Converte arquivos de BMP para JPG.

Vamos Precisar De:

1 - Edit;
1 - Button;
1 - SpeedButton;
1 - OpenDialog;

Organize - o Dessa Maneira:

[Only registered and activated users can see links. Click Here To Register...]

O SpeedButton pode ser substítuido pode ser substituído por um Button comum. Se o fizer, ignore o passo 2.

2 - Mude a propriedade "Flat" do SpeedButton para True.

3 - Adicione nas uses: JPeg e Graphics

Talvez já exista Graphics adicionado nas uses. Confira antes de adicionar.

4 - Altere o filter do OpenDialog1 para: Bitmap File - *.bmp

5.0 - Códigos:

5.1 - Declare a seguinte procedure abaixo de Implementation:

Citação:

---

var
Bmp: TBitmap;
JPeg: TJPegImage;
begin
//if FileExists(ExtractFileName(Arquivo)) then
if FileExists(Arquivo) then
begin
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile(Arquivo);
JPeg := TJPegImage.Create;
try
JPeg.CompressionQuality := 100; { Qualidade: 100% }
JPeg.Assign(Bmp);
JPeg.SaveToFile(ChangeFileExt(Arquivo, '.jpg'));
finally
JPeg.Free;
end;
finally
Bmp.Free;
end;
end
else
ShowMessage('ERROR! Please select a BMP File.');
end;

---

5.2 - Evento OnClick do Button1:

Citação:

---

begin
ConverterBmpParaJPeg(Edit1.Text);
end;

---

5.3 - Evento OnClick do SpeedButton1 (ou do Button2):

Citação:

---

begin
if OpenDialog1.Execute then
begin
Edit1.Text := OpenDialog1.FileName;
end;
end;

---

Creditos:

Dudaxan e internet

Fonte:

Pro Code