MFV (DTMF) Töne generieren

[sh17]

geht auch mit beliegender Ressource

Delphi-Quellcode:

const
  DELAY = 100;
var
   i : Integer;
begin
     for i := 1 to Length(Number) do begin
         case Number[i] of
             '0' : begin PlaySound('DTMF0', 0, SND_RESOURCE or SND_SYNC) Sleep(DELAY); end;
             '1' : begin PlaySound('DTMF1', 0, SND_RESOURCE or SND_SYNC) Sleep(DELAY); end;
             '2' : begin PlaySound('DTMF2', 0, SND_RESOURCE or SND_SYNC) Sleep(DELAY); end;
             '3' : begin PlaySound('DTMF3', 0, SND_RESOURCE or SND_SYNC) Sleep(DELAY); end;
             '4' : begin PlaySound('DTMF4', 0, SND_RESOURCE or SND_SYNC) Sleep(DELAY); end;
             '5' : begin PlaySound('DTMF5', 0, SND_RESOURCE or SND_SYNC) Sleep(DELAY); end;
             '6' : begin PlaySound('DTMF6', 0, SND_RESOURCE or SND_SYNC) Sleep(DELAY); end;
             '7' : begin PlaySound('DTMF7', 0, SND_RESOURCE or SND_SYNC) Sleep(DELAY); end;
             '8' : begin PlaySound('DTMF8', 0, SND_RESOURCE or SND_SYNC) Sleep(DELAY); end;
             '9' : begin PlaySound('DTMF9', 0, SND_RESOURCE or SND_SYNC) Sleep(DELAY); end;
             ',' : Sleep(SpecificDelay);
         end;
     end;