Delphi - Lyhyt esimerkki

Lyhyt esimerkki

Ennenkuin yhdistämme tietokantataulun ohjelmaamme, teemme pienen kokeen:

1.: Avaa uusi projekti
2.: Laita lomakkeelle:

		Button:
		  Name = ButtonSoita
		  Caption = '&Soita'
		
		MediaPlayer:  (system-sivu)
		  Name = MediaPlayerWav
		  AutoOpen = True
		  FileName = auto.wav

3.: Kirjoita Soita- nappulan tapahtumaksi:

		procedure TForm1.ButtonSoitaClick(Sender: TObject);
		begin
		  MediaPlayerWav.Play;
		end;

4.: Kokeile ohjelman toimintaa.

Siinä kaikki! Periaatteessa ainoa mitä meidän siis tarvitsee tehdä, on sijoittaa MediaPlayer - komponentin FileName ominaisuuteen sen tiedoston nimi, jonka haluamme soittaa. Samalla komponentilla voimme soittaa myös .mid (midi-musiikki), .avi (audiovideo) yms. tieostoja. Kokeile!