Ma`lumotlar : 1092
Xabarlar soni: 314
Bugun: 29.3.2024
Soat: 9:54
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.