[Delphi]Ver Seus Videos Favoritos Do Youtube

[josue1602 0]

Ai galerinha hj vo tah enssinando como criar um programa pra vcs verem seus videos favoritos do youtube.

 

1º Quero Deixar Meu Agradeçimentos Ao DragonBoss Que Me Ajudou Muito Com Os Codigos.

 

Video Aula:

Argane Os Componentes Dessa Forma Como Mostra Na Foto Abaixo:

 

 

 

1º Vamos adicionar os componentes:

 

1º Adicionar 2 Edits

 

2º Adicione 1 Button Mude A Propriedade Name Para Add E A Caption Para Adicionar Aos Favoritos

 

3º Adicione 2 Label o 1º Com A Propriedade Caption Como Link:, e o Segundo Como Nome:.

 

4º Adicione 2 ListBox No 1º ListBox Mude A Propriedade Name Para Nome e No 2º ListBox Mude a Propriedade Name Para Link, No 2º ListBox O Com Propriedade Name Escrita Link Mude a Propriedade Visible Para False E Esconde Ele Na Form.

 

5º Adicione 3 Button o 1º Mude A Propriedade Name Para Assistir e a Caption Para Assistir Tmb, No 2º Mude a Name Para Deletar e a Caption Para Deletar Selecionado, No 3º Mude a Name Para Apagar e a Caption Para Apagar Favoritos.

 

6º Agora Adicione 1 Memo Mude A Propriedade Height Dele Para 217 e a Width Para 489, Na Propriedade Visible Mude Para False e Esconde Ele Na Form, Agora Na Propriedade Lines Clicle Nela e Nos 3 Pontinhos(...) e Escreva Esse Texto:

<object width="480" height="385"><param name="movie" value="

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

• Entre
• ou
• Cadastre-se

 

?fs=1&hl=pt_BR"></param><param name="allowFullScreen" value="true"></param><param

name="allowscriptaccess" value="always"></param><embed src="

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

• Entre
• ou
• Cadastre-se

 

?fs=1&hl=pt_BR" type="application/x-shockwave-flash" allowscriptaccess="always"

allowfullscreen="true" width="480" height="385"></embed></object>

 

7º Adicione Um WebBrowser Mude A Propriedade Height Para 420 e a Width Para 521.

 

1 Dica Escreva Em Cima Do Video Ou Em Qualquer Parte No Form Um Observção Assim ó:

OBS: Coloque Apenas O Final Do Link Como Mostra No Exemplo Abaixo:

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

• Entre
• ou
• Cadastre-se

te5vBXe5OqI

Tah Mas Porq Por Isso?

Porque O Programa Só Vai Funcionar Se Por o Final Do Link Colocando O Link Inteiro Não Irá Funcionar.

 

Certo Agora Vamos Para Parte Dos Codigos:

 

No Botão Add Adicione Essas Linhas De Codigo:

Nome.Items.Add(edit2.text);

Link.Items.Add(Edit1.Text);

Edit1.Clear;

Edit2.Clear;

No 2º Botão o Assistir:

Link.ItemIndex := Nome.ItemIndex;

memo1.Lines.Strings[1] := '' + Link.Items[Link.ItemIndex];

memo1.Lines.Strings[4] := '' + Link.Items[Link.ItemIndex];

memo1.Lines.SaveToFile('incorporar.html');

webbrowser1.Navigate(ExtractFilePath(ParamStr(0))+'incorporar.html');

No 3º Botão o Deletar:

Link.DeleteSelected;

Nome.DeleteSelected;

No Botão 4 Apagar:

Nome.Items.Clear;

Link.Items.Clear;

 

Agora No Evento OnClick No ListBox1 o Com Propriedade Name Como Nome:

Link.ItemIndex := Nome.ItemIndex;

 

Agora No Evento OnClose Da Form1:

Link.Items.SaveToFile('Link.txt');

Nome.Items.SaveToFile('Nome.txt');

 

E No Evento OnShow Da Fom1:

Link.Items.LoadFromFile('Link.txt');

Nome.Items.LoadFromFile('Nome.txt');

 

Deu Pessoal Programa Feito

 

Download Source e Programa Compilado

[DOWN]

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

• Entre
• ou
• Cadastre-se

[/DOWN]

 

[sENHA]

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

• Entre
• ou
• Cadastre-se

[/sENHA]

 

 

Gostou? Agradeça Não Custa Nada.

[DragonBoss 8]

Y_Y

 

caraa... ficou mto bom o tutorial

 

*--------* curti o agradecimento a mim no inicio do topico...

 

vc tem otimas ideias, e sabe trabalhar com o seu conhecimento e peskisas... enfim, vc tem tudo pra ser um otimo programador...

 

e to sempre ae pro ke precisar parcero.....

 

(( espero que um diaa possamos nos tornar programadores Y_Y ))

 

 

flw, abraçs

[josue1602 0]

o.O é isso ai, èh Nois xD. vlw pelo comentario

 

Abraços.

[~GabrielD 4]

Boa cara, fico fera, só uma pergunta, procuro mais nunca acho a resposta, vi que tua skin é diferente, poderia me explicar como mudou?? (Sou iniciante xD)

 

E também você não disponibilizou o código do memo no tuto ^^ Quem quiser vai ter que baixar.

[DragonBoss 8]

Boa cara, fico fera, só uma pergunta, procuro mais nunca acho a resposta, vi que tua skin é diferente, poderia me explicar como mudou?? (Sou iniciante xD)

 

na verdade... ele soh usou um xpmanifest, da aba Win32... esse componente soh necessita ser colokado no form para que o mesmo fike com o visual do windows xp.... mas, se vc tiver falando das skins do alpha controls, acho que tem pra baixar no site oficial do componente

 

E também você não disponibilizou o código do memo no tuto ^^ Quem quiser vai ter que baixar.

 

hum. ? o codigo do 'memo' eh akele modificado do incorporar nao eh ? .... se for, ta ae sim

 

 

mas enfim

 

 

flw, abraçs

[josue1602 0]

Olá. Disponibilizei Sim òlha Só

 

6º Agora Adicione 1 Memo Mude A Propriedade Height Dele Para 217 e a Width Para 489, Na Propriedade Visible Mude Para False e Esconde Ele Na Form, Agora Na Propriedade Lines Clicle Nela e Nos 3 Pontinhos(...) e Escreva Esse Texto:

<object width="480" height="385"><param name="movie" value="

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

• Entre
• ou
• Cadastre-se

 

?fs=1&hl=pt_BR"></param><param name="allowFullScreen" value="true"></param><param

name="allowscriptaccess" value="always"></param><embed src="

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

• Entre
• ou
• Cadastre-se

 

?fs=1&hl=pt_BR" type="application/x-shockwave-flash" allowscriptaccess="always"

allowfullscreen="true" width="480" height="385"></embed></object>

 

Ahh e Aquela Skin Eu Baxei Aki No Site Da Wc Mas Num Lembro Onde Só Da Uma Pesquisada Ai

[~GabrielD 4]

Aeaueauaeu nem vi, é que tava vendo pelo youtube mesmo dai só vinha aqui pegar os códigos dos botões e pulei o do memo =x Mais de boa, e sobre a skin to ligado como é só falta mesmo os arquivos .skn;)

[josue1602 0]

Tah ai o link da skn

[DOWN]

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

• Entre
• ou
• Cadastre-se

[/DOWN]

 

[sENHA]

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

• Entre
• ou
• Cadastre-se

[/sENHA]

[~GabrielD 4]

Opa valeu, mais ou, na primeira consegui assistir de boa mais agora quando vou adicionar algum outro vídeo ele não reproduz, clico para assistir e não vai, testei em vários e continua a mesma coisa, o primeiro a funcionar foi um do Linkin Park - The Catalyst. O que pode ser? Já até tentei usar a sua source e deu a mesma coisa.

[josue1602 0]

Vc ADicionou Esse Codigo No Evento OnClick Do ListBox?

Link.ItemIndex := Nome.ItemIndex;

 

Ou Então Pode Ter Sido Algum Erro Refaça o Programa Salvando Em Outra Pasta.

Isto Já Aconteçeu Comigo Tmb.

[~GabrielD 4]

Parecia estar dando certo... Todos vídeos iam no quadrado lá porém todos aparecem "A incorporação foi desativada mediante solicitação"

 

OBS: Tanto no meu re-feito quanto na sua source.

[josue1602 0]

Vc Está Colocando Só o Final Do Link?

Ex:

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

• Entre
• ou
• Cadastre-se

Mov1HkoIZiQ

Ou

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

• Entre
• ou
• Cadastre-se

OPuYDRb1u30&feature=fvsr

 

Coloque o Que Está Em Vermelhor Sempre Depois Do =.

 

Vejá Tmb Se Vc Não Errou No Codigo Incorporar ou Pode Ser Algum Video Protejido Tipow Videos Muitas Acessados Não Da De Incorporar.

[~GabrielD 4]

Tudo certo, agora deu, só que ta indo em vídeos não muito acessados x) Foda é isso, queria por negócio de música né aueaue. Testei num de 1mil viewes e deu certo. Valeu ;)

[josue1602 0]

xD o problema é esse videos muitos acessados são protegidos só da pra assistir no site do youtube mesmo.

[~GabrielD 4]

Mais ou, será que não existe nenhuma possibilidade de ver os mais acessados mesmos? Todos são assim ou será que tem exceção, pois youtube entro pra ver os mais vistos né *-* aueaueau.