[Ajuda] Criar programa para fazer download de musicas

[~ Ronaldinho 0]

Ae galera, eu estava pensando em fazer um novo projeto, até que pensei em um bem bacana, só que parece muito complicado para eu fazer sozinho. Eu pensei em fazer um programa como se fosse o Ares, um programa onde você procura o nome da musica ou o autor, aparece as opções, e faça um download e que esse download caia em alguma pasta por exemplo a do Ares: " My Shared Folder "

 

Bom, eu sei que neste exato momento, não consigo fazer sozinho, então quem quiser me ajudar a fazer, ou até mesmo fazer uma source para mim, para eu estudar, estarei grato. Eu sei que não é fácil, por isso estou pedindo alguem que saiba muito de programação.

 

Queria que o programa fosse feito pelo Delphi 7 se possível. Obrigado a todos que tentarem e obrigado de coração mesmo aquele que conseguir.

 

Sempre que alguem postar algo, estarei respondendo ( se for uma pergunta lógico ) .

 

Abraçss :amor:

[- NOOB 2]

Você pode fazer uma coisa menor de começo , como é iniciante , e te aconselho que você mesmo faça.

utilize um list box para listar as músicas. E pode usar o UrlDownloadToFile que pode usar para fazer download, acho melhor que você faça sozinho.

a então , para salvar em tal pasta utilize o CreateDir, espero que tenha ajudado , pelo menos um pouco.

Abraços!

[AceStryker 32]

Listando musicas da pasta:

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

• Entre
• ou
• Cadastre-se

 

Faça com que todas as músicas vão para algum tipo de banco de dados, pode ser FTP, cada usuário com sua pasta, agora um sistema de busca, pode ser algo parecido com isso:

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

• Entre
• ou
• Cadastre-se

 

Agora o download é a parte fácil:

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

• Entre
• ou
• Cadastre-se

 

Qualquer ajuda só me pedir.

[~EvilCode 93]

@AceStryker

Esqueceu de umas coisinhas... :)

 

procedure ListarMusicas(var Lista : TStrings);

var

SR: TSearchRec;

begin

if (FindFirst('MySharedFolder\*.mp3', faAnyFile, SR) = 0) then

begin

repeat

if (SR.Attr <> faDirectory) then

Lista.Add(SR.Name);

until (FindNext(SR) <> 0);

FindClose(SR);

end;

end;

 

procedure Buscar(Busca : String; var Solucao : TStrings);

var

S : TStrings;

i : integer;

FTP : TIdFTP;

begin

FTP := TIdFTP.Create(nil);

FTP.List(S, '*.mp3', false);

for i := 0 to S.Count -1 do

if (S.Strings = Busca + '.mp3') then //procura musicas com o mesmo nome

Solucao.Add(S.Strings) //adiciona um resultado encontrado

end;

 

:)

[AceStryker 32]

@AceStryker

Esqueceu de umas coisinhas... :)

 

 

 

 

 

:)

 

o IdFTP eu dei a entender que ele deveria adicionar o componente...

[~EvilCode 93]

Ok, mas possui dois erros ainda. :)

[~ Ronaldinho 0]

Obrigado a todos =D, vou dar uma estudada no que vocês falarão quando eu tiver tempo, xD.

E se der, tento criar um simples, e posto aqui, pra ver o que posso aprimorar.

 

Abraçss :amor:

 

-------------------------------- Edit --------------------------------

Onde fica o UrlDownloadTFile ?

[AceStryker 32]

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

• Entre
• ou
• Cadastre-se

 

Parameters

 

pCaller

A pointer to the controlling IUnknown interface of the calling Microsoft ActiveX component, if the caller is an ActiveX component. If the calling application is not an ActiveX component, this value can be set to NULL. Otherwise, the caller is a Component Object Model (COM) object that is contained in another component, such as an ActiveX control in the context of an HTML page. This parameter represents the outermost IUnknown of the calling component. The function attempts the download in the context of the ActiveX client framework, and allows the caller container to receive callbacks on the progress of the download.

szURL

A pointer to a string value that contains the URL to download. Cannot be set to NULL. If the URL is invalid, INET_E_DOWNLOAD_FAILURE is returned.

szFileName

A pointer to a string value containing the name or full path of the file to create for the download. If szFileName includes a path, the target directory must already exist.

dwReserved

Reserved. Must be set to 0.

lpfnCB

A pointer to the IBindStatusCallback interface of the caller. By using OnProgress, a caller can receive download status. URLDownloadToFile calls the OnProgress and OnDataAvailable methods as data is received. The download operation can be canceled by returning E_ABORT from any callback. This parameter can be set to NULL if status is not required.

 

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

• Entre
• ou
• Cadastre-se