(Resolvido) Assistir filmes e tv online

[joão Aprendiz]

ola estou tentando fazer um programa para assistir filmes e tv online pelo delphi 7 mais não sei po onde começar alguém pode me ajudar?

como coloco iframe alguém pode me ajudar

a quem quiser assistir tv e filmes online www.vertvhd.com

[Jhonas]

ola estou tentando fazer um programa para assistir filmes e tv online pelo delphi 7 mais não sei po onde começar alguém pode me ajudar?

primeiro voce tem que importar o componente Windows Media Player

va em Menu > Component > Import ActiveX Control > Windows Media PLayer ( Version 1.0)

para criar o form :

1º-Abra o delphi

2º-Vai na Palheta ActiveX e coloque o Componente WindosMediaPlayer no seu Form.

3º-Insira um Button (ou Label)

=====================================================

codigo para ver a wwitv canal 21

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, WMPLib_TLB;

type
  TForm1 = class(TForm)
    WindowsMediaPlayer1: TWindowsMediaPlayer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   WindowsMediaPlayer1.URL:= 'http://wwitv.com/tv_streams/7404.asx';
end;

end.

OBS: Se voce souber os endereços de outros canais é só substituir no botão ou criar outros botões com outros endereços

abraço

[joão Aprendiz]

mas e os filmes tem como colocar?

[Jhonas]

o principio é o mesmo ... basta digitar a URL para um filme

abraço

[joão Aprendiz]

o principio é o mesmo ... basta digitar a URL para um filme

abraço

e no Microsoft Visual Basic 2008 Express Edition como coloco o player

[Jhonas]

e no Microsoft Visual Basic 2008 Express Edition como coloco o player

Amigo, essa pergunta voce tem que fazer no forum de Visual Basic ... ok ?

http://scriptbrasil.com.br/forum/index.php?showforum=23

abraço

[joão Aprendiz]

Como coloco uma mensagem box no delphi e quando clicar em ok vai para um url definido por min???????? ou sem url

[Jhonas]

exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var url : string;
begin
   url := InputBox ('Seleção de URL' , 'Digite o endereço de uma URL', '');

   showmessage(url);

   WindowsMediaPlayer1.URL:= url;
end;

abraço

[joão Aprendiz]

o principio é o mesmo ... basta digitar a URL para um filme

abraço

mais amigo e pra colocar um canal explo esse aki desse jeito com esse link http://vertvhd.xp3.biz/simpsons.php php ou html como faço????

pode me explicar

[Jhonas]

Para esse tipo de mídia voce deve usar o WebBrowser

exemplo:

coloque um componente webbrowser e um botão

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, WMPLib_TLB, SHDocVw;

type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var url : string;
begin
   url := InputBox ('Seleção de URL' , 'Digite o endereço de uma URL', '');

   showmessage(url);

   WebBrowser1.Navigate(url);

end;

end.

os endereços podem ser esses:

http://vertvhd.xp3.biz/ben10.php

http://vertvhd.xp3.biz/canais/megapix.php

http://vertvhd.xp3.biz/AXN.php

http://vertvhd.xp3.biz/prisonbreak.php

http://vertvhd.xp3.biz/wwe.php

http://vertvhd.xp3.biz/dbz.php

http://vertvhd.xp3.biz/canais/history.php

http://vertvhd.xp3.biz/canais/action.php

abraço

[joão Aprendiz]

ola estou tentando fazer um programa para assistir filmes e tv online pelo delphi 7 mais não sei po onde começar alguém pode me ajudar?

primeiro voce tem que importar o componente Windows Media Player

va em Menu > Component > Import ActiveX Control > Windows Media PLayer ( Version 1.0)

para criar o form :

1º-Abra o delphi

2º-Vai na Palheta ActiveX e coloque o Componente WindosMediaPlayer no seu Form.

3º-Insira um Button (ou Label)

=====================================================

codigo para ver a wwitv canal 21

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, WMPLib_TLB;

type
  TForm1 = class(TForm)
    WindowsMediaPlayer1: TWindowsMediaPlayer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   WindowsMediaPlayer1.URL:= 'http://wwitv.com/tv_streams/7404.asx';
end;

end.

OBS: Se voce souber os endereços de outros canais é só substituir no botão ou criar outros botões com outros endereços

abraço

o amigo você sabe como eu coloco na minha aplicação o visualdo player do cineturbo?

pode me ajudar nisso?

[Jhonas]

se o visual é esse

é só fazer algo parecido, usando os componentes do delphi:

Tmediaplayer, Tedit, TLabel, TCheckBox ou TRadioGroup, TImage

o resto vai da sua imaginação

abraço

[joão Aprendiz]

se o visual é esse

é só fazer algo parecido, usando os componentes do delphi:

Tmediaplayer, Tedit, TLabel, TCheckBox ou TRadioGroup, TImage

o resto vai da sua imaginação

abraço

amigo me passa ai seu MSN por favor porque não consigo colocar esse skin aki no delphi VCL-Skin pode me passa ai se MSN

[Jhonas]

amigo, não tenho MSN ... quanto a usar o vcl-skin veja se acha alguma coisa nos posts do forum

http://scriptbrasil.com.br/forum/index.php...p;highlite=skin

abraço

[nevsky]

Eu aconselho você a visitar o site e assistir a todos os filmes http://filmesdublado.online/

[nevsky]

Excelente local para ver uma variedade de programas de TV e filmes https://filmesonline.video/