[Source] Convertendo Bmp para Jpeg

[anonimo555 2]

Isso é uma source, e não um tutorial, não vou explicar nada.

 

Declare no uses :

 

Graphics e JPeg

 

Crie :

 

1 Edit

1 Button

1 SpeedButton

1 OpenDialog

 

Declare a seguinte Procedure :

 

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

• Entre
• ou
• Cadastre-se

 

Declare o Event Click do SpeedButton deste modo :

 

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

• Entre
• ou
• Cadastre-se

 

Declare o Event Click do Button deste modo :

 

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

• Entre
• ou
• Cadastre-se

 

Está feito, pronto.

 

Source de Unit1.pas :

 

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

• Entre
• ou
• Cadastre-se

 

Compile e teste, converta imagem do tipo BMP para JPEG.

 

Créditos : Google e a mim.

 

[mgbcrazy 0]

AFF man source source isso nao eh ¬¬

 

vc fez um tutorial e no final so postou oq estava na unit.

 

eu considero source qdo a pessoa faz tudo bonitin compacta e bá e uploada

mas na minha opiniao isso nao eh considerado source, ainda mais pq vc fez

um tuto

 

mas eh boa :D

[anonimo555 2]

Estou sem tempo para explicar de manhã, se patrão me ver em forum vou ser demitido :S

 

a tarde eu edito o tópico ...

[' Extasy 0]

@anonimo555

source é o conjunto de arquivos, do seu programa(as units.pas e os projects.dpr)

isso que voce postou é um tuto

espero que tenha entendido

[bidoow 0]

Cadê a source, puff?

 

Já existe esse tutorial em http://www.webcheats.com.br/forum/delphi-vb/349384-delphi-biblioteca-de-tutorias.html

 

valeu