Проигрыватель в Delphi

 

  Animate компонентінде компонентті ашу және жабу дыбысты орындалудың басы мен аяғын генерирлейтін OnClose OnOpen OnStart және OnStop оқиғалары қарастырылған.

 

   Енді Animate компонентің мүмкіндіктерін көрсететін текстік қосымша құрсақ.... Осы қосымшада Animate компонентінің Visible қасиетін false-қа өзгертсек. Бұл файлдарды көшіру, файлдарды іздеу және т.б. оқиғалары болған кезде бейнелер шығу үшін қажет. Текстік қосымшада дыбысты орындауды тоқтату және ену батырмасын басу арқылы мультипликация лы орындалатын оқиғаның басын және аяғын өзгертуге болады.

Сондықтан, дыбысты орындалу соңына дейін орындалу үшін        Repetitions қасиетін 0-ге тең деп беру керек. Active қасиетін false-қа орнатамыз. Сол сияқты бейне экранның центрінде пайда болу үшін   AutoSize қасиетін false-қа, ал Center қасиетін true-ге орнатамыз.     

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Анимациялық мысал

 

    

 

        

 

Бұл оқиғаның ең қызықтысы  ол,  Анимацианы тоқтатып, кадрлап  бейнелеуге болады.

 

        

 

 

unit ShowAVI_;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, ComCtrls, ExtCtrls;

 

type

  TForm1 = class(TForm)

    Animate1: TAnimate;  // компонент Animate

    Button1: TButton;    // кнопка Пуск-Стоп

    Button2: TButton;    // следующий кадр

    Button3: TButton;    // предыдущий кадр

    RadioButton1: TRadioButton; //  просмотр всей анимации

    RadioButton2: TRadioButton; //  по кадровый просмотр

 

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;   // форма

  CFrame: integer; // номер отображаемого кадра

                     // в режиме покадрового просмотра

 

implementation

 

{$R *.DFM}

 

// к следующему  кадру

procedure TForm1.Button2Click(Sender: TObject);

begin

     if CFrame = 1 then Button2.Enabled := True;

     if CFrame < Animate1.FrameCount then

     begin

      

CFrame := CFrame + 1;

        // вывести кадр

        Animate1.StartFrame := CFrame;

        Animate1.StopFrame := CFrame;

        Animate1.Active := True;

 

        if CFrame = Animate1.FrameCount // текущий кадр - последний

               then Button2.Enabled:=False;

     end;

end;

 

// к предыдущему  кадру

procedure TForm1.Button3Click(Sender: TObject);

begin

     if CFrame = Animate1.FrameCount

         then Button2.Enabled := True;

     if CFrame > 1 then

     begin

        CFrame := CFrame - 1;

        // вывести кадр

        Animate1.StartFrame := CFrame;

        Animate1.StopFrame := CFrame;

        Animate1.Active := True;

 

        if CFrame = 1 // текущий кадр - первый

            then Form1.Button3.Enabled := False;

     end;

end;

 

// активизация  режима просмотра всей анимации

 

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

     Button1.Enabled:=True; // доступна кнопка Пуск

     // сделать недоступными кнопки  покадрового просмотра

     Form1.Button3.Enabled:=False;

     Form1.Button2.Enabled:=False;

end;

 

// активизация  режима покадрового просмотра

 

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

     Button2.Enabled:=True;  // кнопка Следующий  кадр доступна

    Button3.Enabled:=False; // кнопка Предыдущий кадр недоступна

 

     // сделать недоступной кнопку  Пуск - вывод всей анимации

     Button1.Enabled:=False;

end;

 

// пуск и  остановка просмотра анимации

 

procedure TForm1.Button1Click(Sender: TObject);

begin

     if Animate1.Active = False // в данный момент анимация не выводиться

        then begin

          Animate1.StartFrame:=1; // вывод с первого

          Animate1.StopFrame:=Animate1.FrameCount; // по последний  кадр

          Animate1.Active:=True;

          Button1.caption:='Стоп';

          RadioButton2.Enabled:=False;

        end

      else  // анимация отображается

      

begin

          Animate1.Active:=False; // остановить отображение

          Button1.caption:='Пуск';

          RadioButton2.Enabled:=True;

end;

end;

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Есептің берілгені

Delphi программалай тілінде Медиаплеермен анимация, дыбыс, әуен және бейнелерді (видеоролик) ойнату. Жаңа жобаның бетіне керекті компоненттерді орналастырып, Приойгрователь секілді жобаны құру керек.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Алгоритімі

 

Ең бастысы  біз  жаңа жоба құрамыз.Пуск →Все программы →BorlandDelphi7→ Delphi7.

 

 

Келесі қадамымыз, ол компоненттерді Форма бетіне дұрыс орналастыру.

1. Animate - компонентін орналастырып, керекті қасиетін өзгертеміз.
2. Panel - Керекті батырмаларды орналастыру үшін.
3. OpenDialog - Керекті файлды таңдап алу үшін.
4. BitBtn1 - Stop батырмалары болып келкді
5. BitBtn2 - Play батырмалары болып келкді
6. BitBtn3 - Open батырмалары болып келкді

 

 

 

 

 

 

 

 

 

 

 

Қойлған компоненттер осы  бейнеде болып келеді. Компоненттердің қасиетін келесі терезеде көруге болады.

 

       

 

Open Dialog  Animate   Panel

 

 

 

 

 

 

 

 

Листинг

 

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, MPlayer, ExtCtrls, ComCtrls, StdCtrls, Buttons;

type

  TForm1 = class(TForm)

    Animate1: TAnimate;

    Panel1: TPanel;

    OpenDialog1: TOpenDialog;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Math;

{$R *.dfm}

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

   Animate1.Active:=true;

end;

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Animate1.Active:=false;

end;

 

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

If OpenDialog1.Execute Then begin

   Animate1.FileName:=OpenDialog1.FileName;

   BitBtn2.Enabled:=true

end; end; end.

Нәтижеі

 

 

                    

 

 

Жұмысты біткен соң  F9 (Run) батырмасын басып программаның жұмысқа жарамдылығын көруге болады. 
Қорытынды:

 

Қорытындылай келетін  болсақ, Жалпы  Delphi программалау тілінде көптеген мүмкіндіктер бар екендігіне көзіміз жетті. Бұл программаны құруы өт қызықты және оңай болып келді, сонымен қатар, Delphi программалау тілінде басқада көптеген мүмкіндіктер бар. Ал егерде сіз Delphi –де мультимедияны жалғастыратын болсаңыз, келесі  Delphi 8, Delphi 9 сияқты, оларда бұданда көп мүмкіндіктері  бар.

Мультимедиа мүмкіндіктерін Интернет жүйесінде де жариялауға болады. Және дайын программаларды сатуға болады. Тағы қызықты жағдайы  Delphi-де браузер секілді Explorer жасауға болады. Оның мүмкіндіктері шексіз болып келеді, Соған қарамастан басқа программалау тілінде Мультимедиа  мүмкіндіктері жеткілікті.

 

 

Қолданылған әдебиеттер:

1. А.Я Архангельский - Программирование в Delphi7
2. Зубов -  Справочник программиста.
3. Шумаков -  в среде Delphi
4. А.Горев, С.Макашарипов, Р.Ахаян. Эффективная работа в среде Delphi