[Delphi] Adicionando músicas ao aplicativo

[~OwneR~ 5]

Antes de falarem que é mais um tópico sobre isso eu digo NÃO É, esse tópico fala sobre como adicionar MOD Music (.xm/.mod/.s3m/.it/.mtm), são aquelas musiquinhas bastante utilizadas em Keygen para não deixá-los pesados. Com esse tutorial você poderá adicionar uma música de 4 minutos aumentando apenas cerca de 150KB o seu aplicativo (sendo 96KB a DLL, existe a versão compacta -BassMod- que tem apenas 36KB!!!). Essa dll é usada também para .wav/.ogg/.mp3 mas o código é um pouco diferente... Então vamos ao que interessa \o/

 

Essa DLL pode ser usada em VB e C também, leia o final do tópico para ver como \o/

 

A dificuldade desse tutorial é 2/10 (muito fácil)

 

Primeiramente precisaremos das músicas, no

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

• Entre
• ou
• Cadastre-se

existem cerca de 1700 MODs, recomendo você baixar o MusicPack! para escolher a música que desejar \o/

 

Agora baixem esse arquivo:

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

• Entre
• ou
• Cadastre-se

 

Na criação desse aplicativo precisaremos apenas de 2 ou 3 botões (que são opcionais)

Os botões serão necessários apenas se você quiser controlar a música, altere o Caption deles para Play, Pause, Restart.

 

Descompacte o arquivo que você baixou na pasta do seu projeto.

 

Agora vamos aos códigos o/

 

Declare BASS na uses

Declare isso ↓↓↓ em Private Declarations

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

• Entre
• ou
• Cadastre-se

 

Coloque isto no OnCreate do OnCreate

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

• Entre
• ou
• Cadastre-se

Só precisa alterar alí em NOME DA MÚSICA, no meu caso é Music.xm

 

Botão Play

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

• Entre
• ou
• Cadastre-se

Botão Pause

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

• Entre
• ou
• Cadastre-se

Botão Restart

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

• Entre
• ou
• Cadastre-se

 

Se você deseja fazer algo mais avançado ou um Player eu recomendo que baixe o BASS FULL no un4seen:

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

• Entre
• ou
• Cadastre-se

Essa versão tem samples de como utilizar o BASS em Delphi, VB, C e com funções avançadas o/

Créditos pelo Tutorial: EU \o/

Créditos pela DLL:

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

• Entre
• ou
• Cadastre-se

[lucas98 0]

ae bem legal depois vo le com paciencia mais ja li a metade muito bom levo meu tanks !!!

[dargains 0]

Muito Bom!Finalmente alguem consegue ganhar meu thanks!! valeu!!!

[Niik 2]

Achei bem interessante...

 

futuramente usarei :)

 

Thx!