MFV (DTMF) Töne generieren

[edosoft]

Hallo,

Ich möchte über die Soundkarte mit meinem Telefon wählen.
also muss ich ja die entsprechenden MFV töne erzeugen, also 2 sich überlagernde töne mit variablen frequenzen. Wie kann ich das am besten machen?
Vielen Dank schonmal im vorraus!

MfG.

[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;

[edosoft]

hmm... also bei mir funktioniert da gar nichts.

Delphi-Quellcode:

const
  DELAY = 100;
  SpecificDelay = 100;
  Number = '0123';
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;
end;

er spielt nichts ab.

auch hier:

Delphi-Quellcode:

begin
PlaySound('DTMF0', 0, SND_RESOURCE or SND_SYNC);
end;

passiert nichts.
muss ich das "DTMF0" vielleicht erst irgen dwie einbinden?

mfG.

[sh17]

hast Du die Ressource eingebunden?

{$R DialWithDTMF.res}

[edosoft]

hm, wo krieg ich den die datei her?

[sh17]

Die hab ich in meinem ersten Post als Anhang dran

[edosoft]

hm? da ist doch nur die unit drin...

[sh17]

ich ...

ok, anhang korrigiert

[edosoft]

ok... sind das jetzt sowas wie WAV-dateien in der ressorucendatei drin?
mit welchem program kann man die gut bearbeiten? (ich will die bissle kürzer machen so dauerts wählen ja ewig )

[sh17]

Zitat von edosoft:

ok... sind das jetzt sowas wie WAV-dateien in der ressorucendatei drin?
mit welchem program kann man die gut bearbeiten? (ich will die bissle kürzer machen so dauerts wählen ja ewig )

Das sind WAV-Dateien. Die Originale hab ich nicht mehr, wirst sie aber sicher mit einem RessourcenEditor rausbekommen.

Ein guter WAV-Editor wäre http://audacity.sourceforge.net/