Siga-nos em...
Follow us on Twitter Follow us on Facebook Watch us on YouTube
Registro

Alpha Servers
Resultados 1 a 1 de 1
  1. #1

    Avatar de FusioN
    Data de Ingresso
    Jul 2010
    Localização
    Rio de Janeiro - Brasil
    Idade
    29
    Posts
    434
    Agradecido
    18
    Agradeceu
    14
    Peso da Avaliação
    23

    Padrão [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:



    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.

 

 

Informações de Tópico

Usuários Navegando neste Tópico

Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)

Tópicos Similares

  1. |Resolvido| Arquivos para Servidor/Cliente de Exile
    Por dggames no fórum Tópicos resolvidos
    Respostas: 4
    Último Post: 26-12-2009, 02:23 PM
  2. |Download| Version Converter By Nightmbr
    Por nightmbr no fórum Downloads
    Respostas: 2
    Último Post: 29-11-2009, 04:20 PM

Marcadores

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •