Prev Next Up Title Contents Index

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


Prev Next Up Title Contents Index