Taulusta haetun äänen soittaminen
- 1.
- Kirjoitetaan lomakkeelle tapahtuman käsittelijä:
procedure TFormAapinen.FormKeyPress(Sender: TObject; var Key: Char);
var nimi,c:string; lkm:integer;
begin
c := AnsiUpperCase(Key);
QueryAapinen.Close;
QueryAapinen.SQL.Clear;
QueryAapinen.SQL.Add('select * from WAapi where kirjain = "' + c +'"');
QueryAapinen.Open;
lkm := QueryAapinen.RecordCount;
if ( lkm = 0 ) then exit;
nimi := QueryAapinen.Fields[1].AsString;
if ( nimi = '' ) then exit;
MediaPlayerWav.Filename := nimi;
try
MediaPlayerWav.Open;
MediaPlayerWav.Play;
except
on EMCIDeviceError do ;
end;
end;
- 2.
- Kokeile ohjelmaa