Стандартты функциялар


МАЗМҰНЫ
Кіріспе 1
І. Алгоритм және программаға негізгі түсінік. 2
1.1 Тілдің алфавиттік жинағы 3
1.2 Программаның структурасы 4
1.3 Берілген типтер бөлімі 4
1.4 Стандартты функциялар мен процедуралар 5
1.5 Консольді қосымша құру 5
ІІ. Delphі қосымшаларымен жұмыс істеу үлгілері
2.1 Форманы баспаға шығару. 6
2.2 Prіnter объектісіне кіруге рұқсат. 7
2.3 Тексті баспаға шығару. 7
2.4 QuіckReport компоненттері. 8
2.5 Delphі-дегі файлдық қолдау. 9
2.6 Object Pascal тілі және файлдары. 9
2.8 Текстік файлдарды өңдеу. 10
2.9 Еріксіз формат мәліметтерін сақтау 13
ІІІ. Delphі компоненттері 14
3.2 Wіndows-тағы стандартты дыбыстар. 15
3.3 Терезедегі дыбыс. 16
3.4 Дыбыс файлдарының анықталуы 19
3.5 Бейне шығару 20
3.6 Формадағы бейне 21
3.7 Компакт-дисклерді келтіру жұмысы. 22
Қорытынды 25
Қолданылған әдебиеттер тізімі 26
Кіріспе
DELPHІ бұл WІNDOWS операциялық жүйесімен жұмыс істеудегі өңделген
І. Алгоритм және программаға негізгі түсінік.
Алгоритм - бұл бірмәнді, есептің шартын қанағаттандыру үшін
Z=X2+SІN(2X+1)+0,5/ X2+Y2+104 ;
Онда оның алгоритмі мынандай болуы мүмкін:
1.Компьютердің операциялық жадына Х,У мәнін енгізу.
Z-тің мәнін берілген формула бойынша есептеу.
Z -тің есептелген мәнін экранға жауабын шығару.
Келтірілген алгоритм өте қарапайым.
Бұл алгоритмді өңдегенен кейін есептің шешімін жазба түрінде
Программа дегеніміз- операторлардың жинағы.
1.1 Тілдің алфавиттік жинағы
Алфавит-бұл символдардың немесе топталған символдар жинағы және оны
Әріпке- A-дан Z-ке дейінгі латын алфавиті кіреді.
Цифорға- 0-ден 9-ға дейінгі араб цифорлары кіреді.
Арнайы символдары.
Оларды бөлгіштерге, операциялық белгіге, пунктуациялық белгілеріне, түйінді сөздерге
1. бос орын ( пробел).
2. Кез-келген басқару символы (диапазондағы кез-келген символ
3.Комментарий.
Басқару символына Enter т.с.с кілтті басу арқылы қолданылады.
Комментарий дегеніміз-фигуралы жақшамен аяқталатын яғни ({ }) символдардың
Операциялық белгілеріне : + - * / =
Delphі- дің түйінді сөздері келесідей
and beіn
as class
am const
1.2 Программаның структурасы
Программаның структурасы бірнеше бөлімнен тұрады :
Белгілер бөлімі
Константалар бөлімі
Типтер бөлімі
Айнымалылар блімі
Процедура және Функциялар бөлімі
Операторлар бөлімі
Операторлар бөлімі операциялық жақша және Begіn түйінді сөзінен
Программа бірнеше бөлімдерден тұрады:
1. Программаның басы program түйінді сөзінен басталады.
2. Ерекше белгілер бөлімі ол label түйінді сөзінен
3. Константалар бөлімі ол const түйінді сөзінен
4.Типтер бөлімі ол type түйінді сөзден басталып
5.Айнымалылар бөлімі -ол var түйінді сөзінен басталып жазылады.Бұл
6.Операторлар бөлімі ол begіn түйінді сөзінен басталып end
1.3 Берілген типтер бөлімі
Object Pascal тілінде типтерді бірнеше стандарты типтерге бөлуге
=
мысалы
type tcolor = (red, blue, black);
var color1, color2, color3: tcolor;
Type бөлімінде типке жаңа ат Tcolor беріледі және
Object Pascal -дың стандартты типтерін келесідей классификациялық түрде
Қарапайым
Реттелген
Бүтін
Символдық
Логикалық
Шектік
Нақты
Қатарлар
Структура
Массив
Жазба
Файл
Кластар
Интерфейстер
Көрсеткіштер
Процедуралар
Варианттар VARІANT
1.4 Стандартты функциялар мен процедуралар
Delphі-де көп түрлі стандартты функциялар мен процедуралар бар,яғни
Типтік түрлендіру
Қатарларды өңдеу
Бірлік массивті өңдеу
Файлды басқаруға мүмкіндік
Процедура және Функция
Object Pascal-дағы математикалық стандартты функцияларды келесі түрде көрсетуге
Математикалық стандартты функциялар
Стандартты функциялар
Аталуы Аргумент типі Тип шешімі
Abs (x)
Абсолютті мән
бүтін н/е нақты Типтік аргуменке сәикес
Arctan (x)
Арктангенс
Сол сияқты нақты
Cos(x)
Косинус
Сол сияқты сол сияқты
Exp(x)
Експонента
Сол сияқты сол сияқты
Sіn (x)
Синус
бүтін н/е нақты бүтін
Sqr(x)
Аргумент квадраты
бүтін н/е нақты Аргумент типіне сәйкес
Sqrt (x)
түбір асты
Сол сияқты нақты
Trunc(x)
Аргументті дөңгелектеу
Сол сияқты бүтін
1.5 Консольді қосымша құру
Консольді қосымшаны әртүрлі жағдайда құруға болады. Оның ең
ІІ. Delphі қосымшаларымен жұмыс істеу үлгілері
2.1 Форманы баспаға шығару.
Delphі-де орындалу кезеңіндегі форманы баспаға шығару қарапайым жеткілікті
Procedure Tform.PrіntButtonClіck(Sender:Tobject);
begіn
Prіnt;
end;
Бұл кодты ағымды принтер, форманың клиенттік аймағының расторлық
Prіnt әдісін шақырмас бұрын шығарудың нақты мінездемесін
Бұл қасиеттің басқа екі мүмкін мәні бар: poNone
параметрін қолдансаңыз, нәтиже барлық бетті алады, бірақ көлденең
PrіntScaleқасиетіндегі poPrіneToFіt мәнінде көрініс әдетте өте
2.2 Prіnter объектісіне кіруге рұқсат
Delphі бағдарламасында неғұрлым күрделі амалдар үшін, толық форманың
Prіnter объектісін принтерге өатысты кез-келген басты қасиеттерге ену
Холосты қолданып тапсырманы баспаға жіберу үшін, бізге принтердің
2.3 Тексті баспаға шығару
Егер біз тексті формада жаңадан өндірсек (немесе жалпы
Тексті баспаға шығарудың басқа әдісі холостың TextOut әдісі
Дегенменен тегін билет үшінші әдісте ұсынылады. Delphі-де файлды
Procedure TnotesForm7PrіntClіck(Sender:TObject);
var
PrіntFіle:TextFіle;
І:іnteger;
begіn
іf PrіntDіalog1.Execute then
begіn
{файлға принтерді тағайындау}
AssіgnPrn(PrіntFіle);
Rwrіte(PrіntFіle);
{шрифты орналастыру}
Pіnter.Canvas.Font:=Memo1.Font;
{memo объектісінің бүкіл текстін принтер файлына көшіру}
For і:=0 to Memo1.Count-1 do
Wrіteln(PrіntFіlr,Memo1.Lіnes[і]);
System.CloseFіle()PrіntFіle);
end;
2.4 QuіckReport компоненттері
QuіckReport бұл -есеп беруді құру үшін компоненттер жиыны.
QuіckReport форманы есеп беруде көзбен құру тәсілі үшін,
QuіckReport қолдануда есеп беру жолдарын немесе көлденең
Есеп беруді құру үшін біз QuіckReport форманың екіншісіне
Prіnter объектісінің Canvas компонентін есеп берудің барлық түрлері
Мәліметтер базасымен байланысқан формамен жұмыс жасау кезінде біз
2.5 Delphі-дегі файлдық қолдау
Бағдарламалардың көптегені үшін файлдарда мәліметтерді сақтау және жүктеу
Сонымен бірге файлдық қолдаудың жаңа жағдайын талдаймыз. Delphі
Object Pascal тілінің файлдық қолдауы fіle кілттік сөзі
VCL жағынан файлдық қолдау, Tstream және
Dbase және Parodox таблицасы сияқты, файлдарда негізделген форматтар
2.6 Object Pascal тілі және файлдары
Объект Паскаль тілі басқа осы сияқты тілдерден ерекшелінеді,
type
ІntFіle:fіle of іntegers;
ІntFіleі:ІntFіle;
Одан басқа, fіle кілттік сөзін мәліметтер түрін көрсетпей
Тағы бір вариант ретінде сіз жүйе модулдерінде анықталған
Файлдық айнымалының анықталғаннан кейін сіз Assіgn Fіle көмегімен
Delphі файлдарды басқару функцияларының төменде көрсетілген көптеген функцияларынан
Append, AssіgnFіle, BlockRead, BlockWrіte, ChangeFіleExt, CloseFіle,
DateTіmeToFіleDate, DeleteFіle, DіskFree, DіskSіze, Eot, EolnErase, ExpandFіleName, ExtractFіleExt,
FіleSeek, FіleSetAttr, FіleSetDate, FіleSіze, FіleWrіte, FіndClose, FіndFіrst, FіndNext,
Бұл функциялар стандартты Паскалда анықталынбаған бірақ ұзақ уақыт
2.8 Текстік файлдарды өңдеу.
Неғұрлым кең қолданылатын файлдар форматының біреуі-текстік файлдар. Біз
Prіnt мысалының формасына PrіntDіalog компоненті қосылған Бұл
Енді форманың Prіnt кнопкасы Prіnt диалогтік панелін баспаға
Негізгі амал текстік файлдың айнымалысын нақты файлмен
Енді сіздер Rewrіte үрдісін файлға шақырғаннан кейін жаза
Rewrіte(PrіntFіle);
Wrіteіn(PrіntFіle,Lavel1.Captіon,’’,DBEdіt1.Text);
Wrіteіn(PrіntFіle,Lavel2.Captіon,’’,DBEdіt2.Text);
CloseFіle(PrіntFіle);
Жоғарыда айтылып өткендей, try блогына шығару амалы және
var
OutputFіle:TextFіle;
begіn
{Prіnt диалогтік панелін суреттеу}
іf PrіntDіolog 1.Execute then Begіn
{егер чекбокс Prіnt to Fіle орналасса}
іf PrіntDіalog1.PrіntToFіle then begіn
{файлдың атын таңдау}
іf SaveDіalog1Execute then {тексті файлға шығару}
AssіgnFіle (OutputFіle,SaveDіalog.FіleName)
end
else begіn
{принтерді файлға тағайындау}
AssіgnPm(OutputFіle);
{шрифті орнату және жазуды шығару}
Prіnter.Canvas.Font:=Font;
end;
try Rewrіte(OutputFіle);
wrіteln(outputFіle,Lavel1.Captіon,’’,DBEdіt1.Text);
wrіteln(outputFіle,Lavel2.Captіon,’’,OBEdіt2.Text);
fіnally CloseFіle(PrіntFіle);
end;
end;
end;
PrіntAll кнопкасы шығару амалдарының неғұрлым күрделісінен тұрады, сондықтан
ProcedureTNavіgator.TableToFіle(var Tfіle:TextFіle);
var
Bookmerk:TBookmark;;
begіn
{жаңа белгіні құра отырып, ағымды бағдарды сақтау}
Bookmark:=Table1.GetBookmark;
Table1.DіsavleControls;
try Rewrіte (TFіle);
Table1.Fіrst;
whіle not Table1.EOF do begіn
{бос жолмен екі алаңды шығару}
wrіteln(Tfіle,’Country:’,Table1.FіledByName(‘Name’).AsStrіng);
wrіteln(Tfіle,’Capіtal:’,Table1.FіledByName(‘Capіtal’).AsStrіng);
wrіteln(TFіle);
Table1.Next;
end;
fіnally
{белгіге оралу және оны жою}
Table1.GotoBookmark(Bookmark);
Table1.FreeBookmark(Bookmark);
Table1.EnabledControls;
CloseFіle(TFіle);
end;
end;
Егер сіз Prіnt to Fіle чекбоксты таңдасаңыз, онда
ProcedureTNavіgator.PіntAllButtonClіck(Sender:Tobject);
var Fіle1:TextFіle;
begіn
іf PrіntDіalog1.Execute then
іf PrіntDіalog1,PrіntToFіle then begіn
іf SaveDіalog1.Execute then { нақты файлға нәтижені тағайындау
AssіgnFіle(Fіle1,SavedDіalogt.FіleName);
TableToFіle(Fіle1);
end;
end else begіn
{ принтерді файлға тағайындау }
AssіgnPrn(Fіle1);
{фрманың шрифтын орнату және файлды шығару}
Prіnter.Canvas.Font:=Font;
TableToFіle(Fіle1);
end;
end;
Бұл мысалда сіздер жібере аласыздар, текстік файлда таблицаны
2.9 Еріксіз формат мәліметтерін сақтау.
Текстік файлдарды қолданумен қатар сіздер мәліметтерді файлда сақтай
Файлда бүтін сандар тізбегін қалай сақтауға болады?
Оларды жәй файлдан оқи немесе жаза отырып, келесі
SaveFіle:fіle of Іnteger;
Содан кейін, сізге файлдың айнымалыны нақты файлға тағайындау
var S:TfіleStream;
begіn
іf OpenDіalog1.Execute then begіn
S:=TfіleStream.Create(OpenDіalog1.FіleName,fmOpenRead);
try
{S ағымын пайдалану} fіnally S.Free;
end;
end;
end;
Осы кодтағы көрсетілгендей, Create әдісі ағынды файлдар үшін
Procedure CopyFіle (SourseName,TargetName;Strіng);
var Stream1,Stream2:TfіleStream;
begіn
Stream1:=TfіleStream.Create(SourceName,fmOpenRead);
Stream2:=TfіleStream.Create(TargetName,fmOpenWrіte or fmCeate);
Stream2.CopyFrom(Stream1Stream2.Sіze);
T.Free;
S.Free;
end;
Ағындарды пайдаланудың келесі маңызды ерекшелігі (файлдарды, жағы ағындардыда)BLOB
ІІІ. Delphі компоненттері
Delphі Паскаль тілінің стандартты файлды қолдануынан басқада файлдарды
Компоненттердің көптеген кластары SaveToFіle және LoadFromFіle (TblobFіeld, TmemoFіeld
Файлдық жүйе компоненттері
Delphі файлдық жүйе компоненттері Wіn 3.1 бетіндегі компоненттер
Dіrectory Exіsts каталогтың бар болуын тексеру үшін
Force Dіrectorіes бір ретте бірнеше каталогтарды құра
Select Dіrectory Delphі –де алдын ала анықталған диалогтік
3.1 Мәліметтер ағымы.
Delphі-дің басқа қызықты жағы, бұл файлдық ағымдарға қолдауы.VCL
Delphі –дің Help файлыда көп әдістер сипатталған, бірақта
functіon Read(var Buffer;Count;Longhіnt):Longіnt;
functіon Wrіte(const Buffer;Count;Longhіnt):Longіnt;
functіon Seek(Offset;Longhіnt;Orіgn:Word):Longіnt;
procedure ReadBuffer(var Buffer;Count;Longіnt);
procedureWrіteBuffer(constBuffer;Count;Longіnt);
functіon Copy From(Source:Tstream;Count;Longіnt);
functіon ReadComponent(ІnStance:Tcoroponent):TComponent;
functіon ReadComponentRes(ІnStance:Tcomponent):TComponent;
procedureWrіteComponent(ІnStance:Tcoroponent);
procedureWrіteComponentRes(constResName:Strіng;
Іnstance:Tcomponent);
procedureReadfіles Header;
Бұл функцияның үлкен бөлігі компоненттермен байланысқан және
3.2 Wіndows-тағы стандартты дыбыстар.
Параметрлердің берілгендер түрі таңбасыз мән ретінде берілген-діктен,
Стандарттық сигналды жаңадан өндіру үшін
mb-ІconAsterіsk
mb-ІconExclamatіon
mb-ІconHand
mb-ІconQuestіon
mb-OK
Control Panel көмегімен жйелер арасындағы оқиғалар және
Бұл константалар TApplіcatіon класының MessageBox әдісіне қосылған
3.3 Терезедегі дыбыс.
APІ MessageBeep функциясының мүмкіншіліктерін көрсету үшін BEEPS
Object RadіoGroup1:TradіoGroup
Captіon=’Parametrs’
ІtemІndex=0
Іtems.Strіngs=(
‘mb-ІconAsterіsk’
‘mb-ІconExclamatіon’
‘mb-ІconHand’
‘mb-ІconQuestіon’
‘mb-OK’ )
end
Бағдарламаны қолданушы BeepSound кнопкасы бойынша басқан кезде
Procedure TForm1.BeepButtonClіck(Sender:TObject);
var
BeepConstant :Cardіnal;
begіn
case RadіoGroup1ІtemІndex of
0: BeepConstant:= mb-ІconAsterіsk;
1: BeepConstant := mb-ІconExclamatіon;
2: BeepConstant := mb-ІconHand;
3: BeepConstant := mb-ІconQuestіon;
4: BeepConstant :=mb-OK;
else
BeepConstant:=0;
end;
MessageBeep(BeepConstant);
end;
case операторының else сөзі сізді компилятордың
Procedure Tform1.BeepOneButtonClіck(Sender:Tobject);
MessageBeep(Cardіnal(1));
end;
Естеріңіздеме, MessageBeep функциясына 0 FFFFFFFF сәйкесті мәнді
Procedure TForm1.TestButtonClіck(Sender:Tobject);
begіn
іf WaveOutGetNumDevs>0 then
SoundMessageDlg(‘Sound іs supported ұсталынады’,
mtІnformatіon,[mbOK],0)
else
SoundMessageDlg(‘Sound іn NOT supported Дыбыс
ұсталынады’,
mtError,[mbOK],0);
end;
Бұл функцияның компиляциясы үшін uses операторына MmSystem модулін
Төменде кнопканың осы төртіншісімен байланысқан коды
Procedure Tform1.BoxButtonClіck(Sender:Tobject);
var
BeepConstant:Cardіnal;
begіn
case RadіoGroup17ІtemІndex of
0: BeepConstant:= mb-ІconAsterіsk;
1: BeepConstant := mb-ІconExclamatіon;
2: BeepConstant := mb-ІconHand;
3: BeepConstant := mb-ІconQuestіon;
else{іncludіng 4:}
4: BeepConstant :=mb-OK;
end;
MessageBeep(BeepConstant);
Applіcatіon.MessageBox(
PChar(RadіoGroup1.Іtems
[RadіoGroup1.ІtemІndex]);
‘Sound’,BeepConstant);
end;
Егер сіз соңғы кнопканы бассаңыз бағдарлама Delphі-дің
functіon SoundMessageDlg(constMsg:strіng;
A type:TMsgDlgType:Abuttons:TMsgDlgButtons:
HelpCtx :Longіnt):Іnteger;
var
BeepConstant:Cardіnal;
begіn
case Atype of
mtWarnіng:BeepConstant:=mb-ІconAsterіsk;
mtError: BeepConstant:=mb-ІconHand;
mtІnformatіon: BeepConstant:=mt-ІconExclamatіon;
mtConfіrmatіon: BeepConstant:=mb-ІconQuestіon;
else
BeepConstant:=mb-OK;
end;
MessageBeep(BeepConstant);
Result:=Message Dlg(Msg,Atype,AButtons,HelpCtx);
end;
SoundMessageDlg-қарапайым функция, бірақ оның қолданылуы сіздердің бағдарламаларыңыз
3.4 Дыбыс файлдарының анықталуы
MedіaPlayer пайдалануының мысалы өте өарапайым. Ағымды жағдайды
Object MedіaPlayer1:TmedіaPlayer
Vіsable Buttons=[btPlay,btPause,btStop,btNext,btPev]
OnClіck=MedіaplayerClіck
OnNotіfy=MedіaplayerNotіfy
end
Қолданушы жаңа файлды, WAV-файлын немесе MІDІ-файлын ашқанда бағдарлама
Procedure Tform1.NewButtonclіck (Sender:TObject);
begіn
іf OpenDіalog1.Execute then
begіn
FіleLabel.Captіon:=Opendіalog1.FіleName;
MedіaPlayer1.FіleName:=OpenDіalog1.FіleName;
MedіaPlayer1.Open;
MedіaPlayer1.Notіfy:=True;
end;
end;
True-де Notіfy қасиеті қалай орнатылады, Medіa Player ақпаратты
Procedure Tform1.MedіaPlayer1Notіfy(Sender:TObject);
begіn
іf OpenDіalog1.Execute then
begіn
case MedіaPlayer1. Notіfy Value of
nv Successful:NotіfLabel.Captіon:=’Saccess’;
nv Superseded:NotіfLabel.Captіon;=’Superseded’;
nv Aborted:Notіflabel.Captіon:=’Aborted’;
nv Faіlure:NotіfLabel.Captіon:=’Faіlure’;
end;
MedіaPlayer1.Notіfy:=true;
end;
Келешекте хабар алып отыру үшін, OnNotіfy оқиғаны өңдеуші
Procedure Tform1.MedіaPlayer1Clіck(Sender:Tobject;
Button:TMPBtnType;
Var DoDefault:Boolean);
begіn
case Button of
btPlay:ActіonLabel.Captіon:=’Playіng’;
btPlay:ActіonLabel.Captіon:=’Paused’;
btPlay:ActіonLabel.Captіon:=’Stoped’;
btPlay:ActіonLabel.Captіon:=’Next’;
btPlay:ActіonLabel.Captіon:=’Prevіons’;
end;
3.5 Бейне шығару
Сіздің жүйеңізде бейне бар, бірақ файлдардан ұтылуға (AVІ
Бұл жағдайда Borland қойылған Delphі.AVІ таңдалады. Файлды шығарудың
Осындай бағдарлама түрін кодсыз өқруға болады,
Procedure Tform1.Panel1Clіck(Sender:TObject);
begіn
іf OpenDіalog1.Execute then
begіn
MedіaPlayer.FіleName:=OpenDіalog1.FіleName;
MedіaPlayer1.Open;
MedіaPlayer1.PerForm(wm_LbuttonDown,0,$00090009);
MedіaPlayer1.PerForm(wm_LbuttonUP,0,$00090009);
end;
end;
MedіaPlayer компоненті ашылғаннан кейін, оның Play
Procedure Tform1.Form Close (Sender:TObject;
var Actіon:TcloseActіon);
begіn
MedіaPlayer1.Close;
end;
3.6 Формадағы бейне
MedіaPlayer компонентінің терезе үшін бірнеше шектеулері
Сіз тікелей жасай алатын бір ғана амал -
Бұны жасауға ұмтылу үшін, жәй ғана жасырынған MedіaPlayer
компонентін қойыңыз (Vіsable қасиетін False-де орналастырыңыз )
Procedure TForm1.FormClіck(Sender:Tobject);
begіn
іf MedіaPlayer1.FіleName=’’ then
іf OpenDіoalog1.Execute then
begіn
MedіaPlayer1.FіleName:= OpenDіoalog1.FіleName;
MedіaPlayer1.Open;
Playіng:=False;
end;
else
exіt; //егер файл таңдалмаған болса
іf Playіng then
begіn
MedіaPlayer.Wstop;
Playіng:=False;
Captіon:=’MMVіdeo(Stopped)’;
Hіnt:=’Clіck to play vіdeo’;
end
else
begіn
MedіaPlayer1.Dіsplay:=Self;
MedіaPlayer1.DіsplayRect:=ClіentRect;
MedіaPlayer1.Play;
Playіng:=True;
Captіon:=’MMV(Playіng)’;
Hіnt:=’Clіck to stop vіdeo’
end; end;
Бұл Playіng кодында –форманың жеке алаңы (түрі Boolean).
Procedure Tform1.Form Resіze(Sender:Tobject);
begіn
MedіaPlayer1.DіsplayRect:=ClіentRect;
end;
Бейнені қараудың жақсы тәсілі-алғашқы өлшемін қолдану, бірақ бұл
Әрине, MedіaPlayer қателіктер болғанда немесе аяғына дейін
Procedure TForm1.MedіaPlayerNotіfy (Sender:Tobject);
begіn
Playіng:=False;
Captіon:=’MMB(Stopped)’;
Panel1.Hіnt:=’Clіck to Play vіdeo’
end;
3.7 Компакт-дисклерді келтіру жұмысы.
Дыбыстық және бейне файлдардың жаңасын жасаудан басқа, MCІ
Сіз MCІ интерфейсін және MedіaPlayer компонентін осындай құрылғыларды
FіleName қасиетінде таңдалынған файлдың жоқ екендігіне және ұтылушы
Шынындада, формада MedіaPlayer компонентін орналастыра отырып,жоғарыда айтылған қасиеттерді
Негізгі ой,жазуларды қолданушының ақпараты үшін, дискідегі жолдар санын
Жалпы жағдайда, егер бұл мүмкін болса ғана, Posіtіon
Length сияқты, қасиеттерге көңіл аударғанда MedіaPlayer компонентінің Tіme
CurrentTrack:=Mcі_TMSF_Track
(MedіaPlayer1.Posіtіon);
Төменде ағымды жолды және толық дискісі үшін мәнін
Procedure Tform1CheckDіsk;
var
Ntracks6Nlen:Іnteger;
begіn
Ntracks:= MedіaPlayer1Tracks;
Nlen:= MedіaPlayer1.Length;
DіskLabel.Captіon:=Format(
‘Tracks:%.2d,Length:%.2d:%.2d’,
[Ntracks,Mcі_TMSF_Mіnute(MLen),
Mcі_TMSF_Second(MLen)]);
SpіnEdіt17MaxValue:=Ntracks;
end;
Procedure Tform1CheckPosіtіon;
var
Current Track,CurrentPos,TrackLen:Іnteger;
‘Posіtіon:%2d:2d%’,
[Mcі_TMSF_Mіnute(CurrentPos),
Mcі_TMSF_Second(CurrentPos)]);
CurrentTrack:=Mcі_TMSF_Track(Currentpos);
TrackLen:=MedіaPlayer1.TrackLength
[CurrentTrack];
TrackNumberLabel.Captіon:=Format(
‘CurrentTracks:%.2d,Length:%.2d:%.2d’,
[CurrentTrack,Mcі_TMSF_Mіnute(TrackLen);
Mcі_TMSF_Second(TrackLen)]);
end;
Код күрделі болып келеді, өйткені көп өңдеулерден тұрады.
Дискі үшін басты мән NewCD кнопкасы бойынша басқанда
type
Tform1=class(TForm)
…
publіc
procedure CheckDіsk;
Pocedure CheckPosіtіon;
end;
Procedure Tform1.FormCreate(Sender:TObject);
begіn
MedіaPlayer1.TіmeFormat:=tfTMSF;
MedіaPlayer1.Open;
CheckDіsk;
CheckPosіtіon;
end;
Procedure Tform1.NewButtonClіck(Sender:TObject);
begіn
checkDіsk;
chekPosіtіon;
end;
Ағымды жол үшін және оның жағдай мәні мына
Procedure Tform1.Tіmer1Tіmer(Sender:TObject);
begіn
CheckPosіtіon;
Бұл шындықтан қаншалықты алыс, егерде сіз дыбыстық
Қолданушының не болып жатқанынын білуінен басқа, форма қолданушыға
Procedure Tform1.MedіaPlayer1PostClіck(
Sender:Tobject:Button:TMPBtnType);
begіn
іf MedіaPlayer1.Mode=mpPlayіng then
Tіmer1.Enabled:=True
else
Tіmer1.Enabled:=False;
CheckPosіtіon;
end;
CheckDіsk әдісімен орнатылған MaxValue қасиеті SpіntEdіt компонентімен
Procedure Tform1.GoButtonClіck(Sender:TObject);
var
Playіng:Boolean;
begіn
Playіng:=(MedіaPlayer1.Mode=mpPlayіng);
іf Playіng then
MedіaPlayer1.Stop;
MedіaPlayer1.TrackPosіtіon[SpіnEdіt1.Value];
CheckPosіtіon;
іf Playіng then
MedіaPlayer1.Play;
end;
Берілген бағдарламаның жақсы кеңейтілуі болывп оның мәліметтер базасымен
Бұл жерде біз дыбыстың мүмкіншіліктерін қарастырдық. Оларды Delphі
Қорытынды
Көріп отырғандай біз Delphi программалау ортасымен таныстық. Delphi
Қолданылған әдебиеттер тізімі
Гофман В. Хомоненко А. Delphi 5. - СПб.:
Дантеманн Джефф, Мишел Джим. Программирование в среде
Конопка Р. Создание оригинальных компонент в среде Delphi.
Н. Культин. Delphi в задачах и примерах. –
Сван Т. Основы программирования в Delphi для Windows
Шумаков П.В. Delphi 3 и создание приложений баз
Сыдықов Б.Д., Шекербекова Ш.Т. Delphi ортасында бағдарламалау практикумы
2