(Tutorial) Convert Imagem Jpeg To Bmp e Bmp To Jpeg

[josue1602 0]

Então Galerinha Faz Tempinho Q Naum Posto Nada E Naum Mecho Mas Em Delphi Então Me Ajudem Se Tiver Algum Erro. Vamos Lá

 

Hj Vo Enssina Como Criar Um Programinha Para Converter Imagens Jpeg Para Bmp E Bmp Para Jpeg

 

Com Seu Delphi Já Aberto é Claro e Com o Novo Projeto Criado Vamos Adicionar Os Seguintes Componentes:

 

2 ListBox Na Aba Standard

8 Button Na Aba Standard

2 Timer Na Aba System

1 OpenDialog Na Aba Dialog

 

e Organize Mais Ou Menos Desse Jeito:

 

Organizado Vamos Para Os Codigos:

 

Embaixo Do Implemetation:

Coloque Esse Code:

procedure ConverterJPegParaBmp(Arquivo: string);

var

JPeg: TJPegImage;

Bmp: TBitmap;

begin

JPeg := TJPegImage.Create;

try

JPeg.LoadFromFile(Arquivo);

Bmp := TBitmap.Create;

try

Bmp.Assign(JPeg);

Bmp.SaveToFile(ChangeFileExt(Arquivo, '.bmp'));

finally

Bmp.Free;

end;

finally

JPeg.Free;

end;

end;

 

procedure ConverterBmpParaJPeg(Arquivo: string);

var

Bmp: TBitmap;

JPeg: TJPegImage;

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;

Agora Vamos Adicionar Os Code Nos Botões:

1º Botão o Para Abrir As Imagens:

if OpenDialog1.Execute then

Listbox1.Items := OpenDialog1.Files;

ListBox1.ItemIndex := ListBox1.ItemIndex +1

 

No Segundo Botão Para Deletar As Imagens:

listbox1.Clear;

 

No Terceiro Botão O Que Passo 1 Imagem Só Para O Segundo Listbox Q No Meu Eu Colocei A Caption Dele Assim ">" :

listbox2.items.Add(listbox1.Items[listbox1.itemindex]);

listbox2.ItemIndex := 0;

 

No Quarto Botão O Q Passa Todas Imagens Para Segunda Listbox Q No Meu Tah Assim ">>":

listbox2.ItemIndex := 0;

 

No Quinto Botão Q Deleta A Imagem Selecionada Do Segundo Listbox Q No Meu Tah Assim "<":

listbox2.DeleteSelected;

 

No Sexto Botão Q Deleta Todas Imagens Do Segundo Listbox Q No Meu Tah Assim "<<":

listbox2.Clear;

No Setimo Botão Q Serve Para Ativar o Timer Q Convert As Imagens Para Bmp No Meu o Caption Tah Assim "Convert To Bmp" Coloque Esse Code:

Listbox2.ItemIndex := 0:

timer1.Enabled := true;

 

Agora Finalmente No Oitavo e Ultimo Botão O Q Convert Para Jpeg No Meu Caption Coloquei Assim "Convert To Jpeg" Coloque Esse Code:

Listbox2.ItemIndex := 0:

timer2.Enabled := true;

 

Deu Com Botões Pronto Vamos Para O Timer e o OpenDialog

No Timer1 Mude A Propriedade Enabled Para False De Dois Clicks Em Cima Do Timer e Coloque Esse Code:

ConverterJPegParaBmp(listbox2.Items[listbox2.ItemIndex]);

listbox2.DeleteSelected;

ListBox2.ItemIndex := 0;

if listbox2.Items.Count = 0 then

timer1.Enabled := false;

 

No Timer2 Mude A Propriedade Enabled Para False De Dois Clicks Em Cima Do Timer e Coloque Esse Code:

ConverterBmpParaJpeg(listbox2.Items[listbox2.ItemIndex]);

listbox2.DeleteSelected;

ListBox2.ItemIndex := 0;

if listbox2.Items.Count = 0 then

timer2.Enabled := false;

Agora No Open Dialog:

Na Propriedades Dele Que Se Encontra No Object Inspector De 1 Click No + Ao Lado Do Option e Mude A Opção ofAllowMultiSelect Para True.

Uma Imagem Para Quem Naum Encontrar:

Ahh Mais Uma Coisinha Antes De Compilar Declare Na Uses:

Jpeg

 

è Isso Ai Galera Se Alguem Tiver Algum Problema Poste Que Tentarei Ajudar o Maximo Possivel

 

Source Para Quem Quiser:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Agora Os Creditos

Ao Daniel P. Guimarões Por 2 Code

Ao DragonBoss Que Tiro Uma Duvida Minha

E Claro A Mim xD.

[- Disturbed 0]

Muito bom bro .

Mais a source já está aí, então galerinha dedo à obra F9 :}

[josue1602 0]

Vlw ai Jhow

A Source Coloquei Para Quem Quiser Estudar, Agora Vai De Cada Um Ir Direto no F9 xD.

[Zaphey 2]

Muito bom josue1602, é de tutoriais assim que precisamos, chega de pessoas que só querem fazer hacks!

O tutorial está bem explicado, formatação boa e etc

Espero que você volte =)

 

Abraços!

[josue1602 0]

Muito Obrigado Zaphey

Ahh e Sempre Que Tiver Algo Vo Postar Aki Sim xD.

[- Disturbed 0]

É isso mesmo @josue1602.

Vai de cada um, eu mesmo baixei apenas para estudo, como estou fazendo com muitos projetos!

 

Zaphey eu fazia hacks para combat arms,x_x agora que fudeo tudo parei... geral tem source, porquê umas pessoas disponibilizou!

 

Chega de hacks, gogo estudar galerinha *-*

[Mestre_Vator 0]

Chega de hacks, gogo estudar galerinha *-*

 

Ótimo se todos pensassem assim,não é?

[edoO~' 1]

de acordo com vator

parem de pensar em hacks de gc

e façam algo produtivo

 

muito bom cara

agradecido!

[josue1602 0]

Fico Grato Pelos Agradeçimentos.

[DragonBoss 8]

Olhaaa lá quem voltouuu =D

 

Aew parceiro, vai voltar na atividade no forum ? ^^'

 

ótimo tutorial, é sempre bom ver coisas diferenciadas aqui...

 

Como todo tutorial seu, está bem explicado e agradavel de se ler =]

 

flw, abraços

[josue1602 0]

Clr Maninho

Obg Pelos Elogios.

;D