Reprodução de vídeos

Delphi

27/01/2008

Caras, gostaria de fazer num unico form para reproduzir os videos utilizando uma pasta com varios videos como poderia fazer e qis componentes poderia usar....

algum site ou algum tutorial para mim utilizar....

Vlw....


Rotpdt

Rotpdt

Curtidas 0

Respostas

Emarcolongo

Emarcolongo

27/01/2008

Vc pode fazer, assim

1.Vamos adicionar o windows media player no Delphi.
Para isto: Component -> Import ActiveX...
Procure por: Windows Media Player (version 1.0)
Clique em Install e Compile.
Um componente será colocado na guia ActiveX

2.Insira o componente windowsmediaplayer da guia activex

3.Insira o componente shelllistview da guia samples
Mude a propriedade: ViewStyle para VsReport

No evento onClick do ShellListView coloque:
if stringreplace(ShellListView1.Folders[ShellListView1.itemindex].PathName,´.avi´,´´,[rfreplaceall]) <>
   shellListView1.Folders[ShellListView1.itemindex].PathName then windowsmediaplayer1.URL := ShellListView1.Folders[ShellListView1.itemindex].PathName;


Veja este codigo é bem simples, só pega .avi, não implementei muito, mas pelo menos é um começo.

Veja a unit completa:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, WMPLib_TLB, ComCtrls, ShellCtrls;

type
  TForm1 = class(TForm)
    WindowsMediaPlayer1: TWindowsMediaPlayer;
    ShellListView1: TShellListView;
    procedure ShellListView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ShellListView1Click(Sender: TObject);
begin
if stringreplace(ShellListView1.Folders[ShellListView1.itemindex].PathName,´.avi´,´´,[rfreplaceall]) <>
   shellListView1.Folders[ShellListView1.itemindex].PathName then windowsmediaplayer1.URL := ShellListView1.Folders[ShellListView1.itemindex].PathName;
end;

end.



GOSTEI 0
POSTAR