[Delphi] Videos no webbrowser

['Frostizin~ 2]

Então eu tava tentando colocar um video no meu programa direto do youtube e etc só que só sei fazer isso no webbrowser e com isso carrega a pagina inteira....tem como eu fazer com que carregue só o local onde está o video ? e também tem a parte de busca teria como ele pegar somente o primeiro item de uma lista que tem umas previews por ex

 

NOME E LINK PARA O VIDEO | NOME E LINK PARA O VIDEO

PREVIEW | PREVIEW

 

Pegar só o primeiro e fazer com que carregue pra esse link video ?

 

Obs: Se isso ajudar o nome do primeiro link estará em um edit que está no form

 

[luxfer 0]

nao sei se entendi muito bem....

 

Voce pode tentar instalar um componente chamado TWindowsMediaPlayer, ele carrega arquivos do seu pc, ou da internet(videos com formato que seu WMP tenha suporte);

 

no caso do YouTube, que a maioria é .FLV, ele nao irá funcionar, a nao ser que voce tenha um bom pacote de codecs pro WMP, então procure pelo componente TRealAudio

Ele roda .RMVB e .FLV

Mas nao tenho certeza se ele consegue carregar videos da internet, voce terá que testar ai pq estou sem o Delphi

 

Para instala-los voce nem presisa ir na internet, eles ja estao no seu delphi:

 

Vá em:

 

COMPONENTS -> IMPORT ACTIVEX CONTROL....

 

Na listinha que aparecer procure por Real Player ActiveX Control, para .FLV e .RMVB

Ou procure por Windows Media Player para arquivos que seu WMP suporte

 

abaixo em "Pallete Page" escolha a peleta que ficará instalado, se nao me engano o padrão é a System

 

instala e manda eles carregar o video da URL que voce quiser =)

 

 

 

 

 

obs: voce terá que conseguir a URL do video, e nao da pagina do video, no caso do YouTube:

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

• Entre
• ou
• Cadastre-se

nao irá funcionar....

voce tenque achar uma maneira de capturar o link do FLV da pagina do YouTube

 

não é muito dificil

[Owner 7]

Aperte em imcorporar no vídeo e copia o código !

Depois cole no bloco de notas e salvar com extensão HTML, exemplo:

incorporar.html ( sei lá como se escreve "incorporar", "imcorporar" ).

Depois coloque um WebBrowser no Form e coloque pra carregar o vídeo, assim:

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

• Entre
• ou
• Cadastre-se

Pronto :amor:

[~OwneR~ 8]

incorporar.html ( sei lá como se escreve "incorporar", "imcorporar" ).

 

Só se usa M antes de P e B :lol:

 

@Topic

Aqui no fórum tem um tutorial pra trabalhar com WebBrowser usando Stream:

http://www.webcheats.com.br/forum/delphi-vb/369391-trabalhar-com-delphi-html.html

['Frostizin~ 2]

Sobre os dois owners isso pode até ajudar e luxfer não é isso porem o que eu quero é tipo

 

Busquei o video, está ainda na pagina de pesquisa depois tem o videos o correto é o primeiro da lista seguindo meu ex e eu quero que automaticamente clicasse nesse primeiro video mais acho que é meio dificil fazer então mais facil seria fazer com que o webbrowser procurar as palavras que estão em um edit no site deu pra entender ?

[Surfistinha£ 20]

Seria Melhor no Componente Windowns Media Player nao acha?

[Vator 10]

Mas o WMP só lê AVI?

['Frostizin~ 2]

Do jeito que eu estava tentando ja vi que não vai dar mais como faço para pegar esse link direto de varios players e também pegar isso pelo delphi ? se tiver da uma base aew se num tiver pode dar closed =/

[~OwneR~ 8]

Ok, consegui o que você queria... Pra isso iremos usar:

-- 1 WebBrowser (Internet)

-- 1 IdHTTP (Indy Clients)

-- 1 IdAntiFreeze (Indy Misc) <-- Esse é pra não congelar o form enquanto pega o HTML

 

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

• Entre
• ou
• Cadastre-se

 

É meio que gambiarra mas funciona ^^, pra diminuir o vídeo basta alterar width e height do código (no exemplo está 640x385).

['Frostizin~ 2]

Man não entendi muito bem o code porém deu um erro na hora de compilar nessa parte

 

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

• Entre
• ou
• Cadastre-se

 

Num entendi muito bem mas não consigo passar disso so meio lerdão e não entendi muito bem todo o code poderia explicar um pouquinho melhor ?

[luxfer 0]

voce declarou a função acima?

 

essa aqui ó, voce presisa colocar ela ANTES do OnClick:

procedure WebLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string) ;

var

SL: TStringList;

MS: TMemoryStream;

begin

if not Assigned(WebBrowser1.Document) then begin

WebBrowser1.Navigate('about:blank');

while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do

Application.ProcessMessages;

end;

SL := TStringList.Create;

MS := TMemoryStream.Create;

try

SL.Text := HTMLCode;

SL.SaveToStream(MS);

MS.Seek(0,0);

(WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;

finally

SL.Free;

MS.Free;

end;

end;

[Surfistinha£ 20]

Nao velho o windows media player ler até videos do youtube

E e bem simples dar pra voce criar até um programa de tv online com ele bem util eu recomendo pelo wmp

 

Ja ja eu edito mostrando como usa

[luxfer 0]

Nao velho o windows media player ler até videos do youtube

E e bem simples dar pra voce criar até um programa de tv online com ele bem util eu recomendo pelo wmp

 

Ja ja eu edito mostrando como usa

 

sim

mas é pq vc tem um bom pacote de codecs pro seu WMP;

ou voce tem o Windows 7, que ja vem com pacote de codecs pro WMP.

 

Quem nao tiver esses codecs nao vai conseguir rodar os videos do YouTube pelo WMP

[Surfistinha£ 20]

Turtorial Por imagens

[~OwneR~ 8]

Tá, mas aí você precisa da URL do vídeo (.flv, .avi, sei lá)

 

@'Frostizin~

 

Verifique se você colocou a procedure no lugar certo, ou se você colocou o WebBrowser...

 

Minha source ficou assim:

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

• Entre
• ou
• Cadastre-se