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: 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: 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: begin ConverterBmpParaJPeg(Edit1.Text); end; 5.3 - Evento OnClick do SpeedButton1 (ou do Button2): begin if OpenDialog1.Execute then begin Edit1.Text := OpenDialog1.FileName; end; end; Creditos: Dudaxan e internet Fonte: Pro Code
Última edição por FusioN; 17-08-2010 às 11:20 PM.
Hidden Content
Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)
Regras do Fórum