Sound

[cyracks]

Hello,

I would like to know if it is possible to create a beep like sound with any mobile component ?
(I am creating inventory mobile app which will allow users to scan inventory barcodes and I would like to produce two different sounds. One indicating successful match and other indicating error in code reading)

Thx, Tomaž

[assapan]

What i have done , is when i show a frame for error i do run a beep script

Code: Select all

JQDialogOptions.OnOpen.Script:=BeepScript(UserSession.Parametres.BeepErreur,True)

Code: Select all

function BeepScript(Params: string; AvecEntete: Boolean; EntreAccolades: Boolean = true): string;
var
  Duree, Frequence: Integer;
  Types: String;
begin
{$IFNDEF NOBEEP}
  ExtraitParametresBeep(Params, Duree, Frequence, Types);
  Result := format('beep(%d,%d,1,''%s'');', [Duree, Frequence, Types]);

  if EntreAccolades then
    Result := '{' + Result + '}';

  if AvecEntete then
    Result := 'function (e)' + Result;
{$ELSE}
  Result := '';
{$ENDIF}
end;

procedure AddBeepScript(PreHeader: TStringList);
begin
{$IFNDEF NOBEEP}
  PreHeader.Add('<script>');
  PreHeader.Add('  //if you have another AudioContext class use that one, as some browsers have a limit');
  PreHeader.Add('var audioCtx = new (window.AudioContext || window.webkitAudioContext || window.audioContext);');
  PreHeader.Add('');
  PreHeader.Add('//All arguments are optional:');
  PreHeader.Add('');
  PreHeader.Add('//duration of the tone in milliseconds. Default is 500');
  PreHeader.Add('//frequency of the tone in hertz. default is 440');
  PreHeader.Add('//volume of the tone. Default is 1, off is 0.');
  PreHeader.Add('//type of tone. Possible values are sine, square, sawtooth, triangle, and custom. Default is sine.');
  PreHeader.Add('//callback to use on end of tone');
  PreHeader.Add('function beep(duration, frequency, volume, type, callback) {');
  PreHeader.Add('    var oscillator = audioCtx.createOscillator();');
  PreHeader.Add('    var gainNode = audioCtx.createGain();');
  PreHeader.Add('');
  PreHeader.Add('    oscillator.connect(gainNode);');
  PreHeader.Add('    gainNode.connect(audioCtx.destination);');
  PreHeader.Add('');
  PreHeader.Add('    if (volume){gainNode.gain.value = volume;};');
  PreHeader.Add('    if (frequency){oscillator.frequency.value = frequency;}');
  PreHeader.Add('    if (type){oscillator.type = type;}');
  PreHeader.Add('    if (callback){oscillator.onended = callback;}');
  PreHeader.Add('');
  PreHeader.Add('    oscillator.start();');
  PreHeader.Add('    setTimeout(function(){oscillator.stop()}, (duration ? duration : 500));');
  PreHeader.Add('};');
  PreHeader.Add('</script>');
{$ENDIF}
end;


[cyracks]

Hi assapan.

thank you for trying to help. Could you please also copy the definition of "ExtraitParametresBeep" procedure, now i get error: "Undeclared identifier: 'ExtraitParametresBeep'"

Regards,
Tomaž

[assapan]

Hi,
you don't need it ,
Duree, = duration
Frequence = frequency
, Types = type

have a look to source

Code: Select all

//duration of the tone in milliseconds. Default is 500');
//frequency of the tone in hertz. default is 440');
//volume of the tone. Default is 1, off is 0.');
//type of tone. Possible values are sine, square, sawtooth, triangle, and custom. Default is sine.'


[cyracks]

Thank you assapan, it works.

Clarification for other beginners

1) Script needs to be put to page header
uses ServerController
...
AddBeepScript(IWServerController.HTMLHeaders);

2) function BeepScript should set script on event
IWCGJQMButton1.JQMButtonOptions.Events.OnVClick.Script := BeepScript(True);