linkedin facebook linkedin facebook nod32

Tovushlarni eshittirish

Muallif: Mengliyev SH.

Qo`shilgan sana: 2014-09-14

Tovushlarni eshittirish

Tovush fragmentlari WAV kengaytmali fayllarda saqlanadi. Misol uchun C:\Winnt\Media katalogida Windows standart tovushlari yozilgan fayllar joylashgan.
Quyidagi dasturda MediaPiayer komponentasidan WAV-fayllarda joylashgan tovushlarni eshitish uchun foydalanish ko‘rsatilgan.
MediaPiayer komponentasidan tashqari formada ListBox va ikki Label komponentalari mavjud bo‘lib, birinchisi ma’lumotni aks etish, ikkinchisi ruyxatdan tanlangan WAV-fayl nomini aks ettirish uchun ishlatiladi. Bundan tashqari ikii Button komponentalari mavjud bo‘lib, birinchisi tovushli fayllar ro‘yxatini ekranga chiqarish, ikkinchisi ro‘yxatdan tovushli faylni tanlash uchun mo‘ljallangan.
Dastur quyidagicha ishlaydi. Dialog oynasi paydo bo‘lgandan so‘ng "Microsoft tovushi" eshitiladi, so‘ngra foydalanuvchi ro‘yxatdan C:\Windows\Media katalogidagi ixtieriy tovushli faylni tanlaydi va Vosproizvedenie tugmasini bosgandan so‘ng, shu faylni eshittiriladi.

Microsoft Windows tovushlari dasturi formasi

MediaPlayerl komponentasi o‘zgartirilgan xossalar qiymatlari jadvalda berilgan.

MediaPlayer1 komponentasi xossalari qiymatlari.

Xossa

Qiymat

DeviceType

DtAutoSelect

FileName

C:\Winnt\Media\3vuk Microsoft.wav

AutoOpen

True

VisibleButtons . btNext

False

VisibleButtons .btPrev

False

VisibleButtons . btStep

False

VisibleButtons . btBack

False

VisibleButtons . btRecord

False

VisibleButtons .btEject

False

Microsoft Windows tovushlari dasturi matni
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer;

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;

    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject); private
    { Private declarations } public
{ Public declarations } end;
const
SOUNDPATCH='C:\WINDOWS\Media\';
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
SearchRec: TSearchRec;
begin
if FindFirst('C:\WINDOWS\Media\'+'*.wav', faAnyFile, SearchRec) =0 then
begin
Form1.ListBox1.Items.Add(SearchRec.Name) ;
while (FindNext(SearchRec) = 0) do
Form1.ListBox1.Items.Add(SearchRec.Name);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
          Label2.Caption:=ListBox1.Items[ListBox1.itemindex];
 if  (Label2.Caption <> '') then
begin
with MediaPlayer1 do begin
FileName:='C:\WINDOWS\Media\'+ Label2.Caption;
Open; end;
end;
 end;

end.

1782 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


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

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