linkedin facebook linkedin facebook nod32

Videorolik va animatsiyalarni ko'rish

Muallif: Mengliyev SH.

Qo`shilgan sana: 2014-09-14

Videorolik va animatsiyalarni ko‘rish

Eshittirishdan tashqari MediaPlayer komponentasi AVI-fayl (AVI -Audio Video Interleave so‘zining qisqartmasi bo‘lib, tovush va video almashuvi deb o‘kiladi) sifatida berilgan videorolik va multiplikatsiyani ko‘rishga imkon beradi.
Quyidagi dasturda buyruq tugmasini bosish natijasida tovushli mulьtiplikatsiya soat mili bo‘yicha aylanuvchi Delphi so‘zini ko‘rish mumkin (delphi.avi fayli bu  multiplikatsiyani o‘z ichiga olgan).
Dastur dialog oynasi rasmda, MediaPlayerl komponentasi xossalari kiymati jadvalda berilgan.

MediaPlayerdan foydalanish dasturi formasi va dialog oynasi.

MediaPlayer1 komponentasi xossalari.

Xossa

Qiymat

Name

MediaPlayer1

FileName

C:\WINDOWS\clock.avi

DeviceType

dtAVIVideo

AutoOpen

True

Display

Panel1

Visible

False

Formada Panell komponentasida animatsiya aks etadi, uning nomi MediaPlayer1 komponenta Display xossasining qiymati sifatida beriladi.
Animatsiya sohasi o‘lchovlari MediaPlayer komponentasi DisplayRect xossasi qiymati sifatida beriladi. Bu qiymat dastur ishlash jarayonida MediaPlayer1.DisplayReet:=Rect(0,0,60,60) instruksiyasini bajarish natijasida o‘rnatiladi.

Tovushli animatsiya aks ettirish dastur matni.
unit Unit1;

interface

uses
Windows, Messages, SysUtils,
Classes, Graphics, Controls,
Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Panel1: TPanel;
Button1: TButton;
MediaPlayer1: TMediaPlayer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations ) public
{ Public declarations } end;
var
Form1: TForm1 ;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin

MediaPlayer1.Play;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin

MediaPlayer1.DisplayRect:=Rect(0,0,60,60);

end;
end.

2524 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений