Видео проигрватель

[Claster]

Написал проигрыватель да вот ошибки......может я неправильно работаю с компонентом MediaPlayer

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, OleCtrls, WMPLib_TLB,MMSystem;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    OpenDialog1: TOpenDialog;
    MediaPlayer: TWindowsMediaPlayer;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure MediaPlayerNotify(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//MediaPlayer.display:=Form1;
SpeedButton1.GroupIndex:=1;
SpeedButton1.AllowAllUp:=true;
end;


procedure DimAvi(f:string; var w,h:integer);
var
fst:TFileStream;
header:record
RIFF:array[1..4] of char;
nul:array[1..5] of LongInt;
AVIH:array[1..4] of char;
nu2:array[1..9] of LongInt;
Width:LongInt;
Height:LongInt;
end;

begin
fst:=TFileStream.Create(f,fmOpenRead);
fst.Read(header,sizeof(header));
w:=header.Width;
h:=header.Height;
fst.Destroy;
end;




procedure TForm1.SpeedButton2Click(Sender: TObject);
var
top,left:integer;
width,height:integer;
mw,mh:integer;
kh,kw:real;
k:real;

begin
OpenDialog1.Title:='Vibor Klipa';
if not OpenDialog1.Execute
then exit;
DimAvi(OpenDialog1.fileName,width,height);
mh:=SpeedButton1.Top-10;
mw:=Form1.clientWidth;
if mh>height
then kh:=1
else kh:=mh/height;

if mw>width
then kw:=1
else kw:=mw/width;

if kw<kh
then k:=kw
else k:=kh;

width:=Round(width*k);
height:=Round(height*k);

left:=(Form1.clientWidth-width)div 2;
top:=10;

MediaPlayer.FileName:=OpenDialog1.FileName;
MediaPlayer.Open;
MediaPlayer.DisplayRect:=Rect(left,top,width,height);
end;


procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if SpeedButton1.Down then
begin
MediaPlayer.Play;
SpeedButton1.Hint:='Stop';
end
else begin
MediaPlayer.Stop;
SpeedButton1.Hint:='Play';
end;
end;

Procedure TForm1.MediaPlayerNotify(Sender:TObject);
begin
if (MediaPlayer.Mode=mpStopped)
and
 SpeedButton1.Down
then
SpeedButton1.Down:=false;
end;

end.

А вот ошибки:

[DIgorevich]

Используй имя MediaPlayer1

[Stilet]

TWindowsMediaPlayer;

Это что за звэрь?
Помоему стандартный имеет класс TMediaPlayer; В какой делфи такое? Какая у тя версия?

[raxp]

TC, наверно импортировал ...WMPLib_TLB

[Claster]

Сообщение от DIgorevich

Используй имя MediaPlayer1

Так я ему имя дал MediaPlayer

Сообщение от Stilet

Это что за звэрь?
Помоему стандартный имеет класс TMediaPlayer; В какой делфи такое? Какая у тя версия?

Это я установил компонент стандартный ActiveX

Delphi 7

[DIgorevich]

Сообщение от Claster

Так я ему имя дал MediaPlayer

гм-м... может так заметнее будет: MediaPlayer1

[Claster]

Сообщение от DIgorevich

гм-м... может так заметнее будет: MediaPlayer1

Да не ты не понял сам компонент и называется в свойстве name не MediaPlayer1 а MediaPlayer

MediaPlayer: TWindowsMediaPlayer;

[Stilet]

Это я установил компонент стандартный ActiveX

У-у-у. В таком случае пошастай по свойствам, посмотри какие есть может по названию угадаешь какое подходит

[Claster]

идей больше нет?

[DIgorevich]

Сообщение от Claster

Да не ты не понял сам компонент и называется в свойстве name не MediaPlayer1 а MediaPlayer

MediaPlayer: TWindowsMediaPlayer;

Я-то как раз понял. НО! возможно система воспринимает имя "MediaPlayer", как зарезервированное слово. Поэтому попробуй сменить имя на какое-нибудь MedPlr