Playing DTMF tones (HCI) Delphi 4

I am writing a program to simulate the user interface of a phone. Does anybody have any code which will either poll the speaker and/or send dual frequency sine waves to the a sound card? i.e I specify a frequency or dual frequency and duration. I don't want to play sampled wave files as these can be rather large. I  just want to emulate the tone of a phone i.e dialing numbers 1 to D, dial tone, busy etc.

I have tried using wave files before but there is a slow response time in say pressing a button and hereing a response. Also on repeating a tone say the busy tone in a cycle there can be delay due to multi threading this will vary on the machines I have to run the program on here in uni?

I am writing the program at home under 98se but will be testing the thing at uni who run NT. Is there any way to make the pc speaker accept more than one tone? i.e buffer the waveform you created somewhere and send these shifts in frequency(or a square wave repersentation) to the pc speaker? As far as I am aware the pc speaker can be in two states in or out and any tone you have to send it has to variey in frequency i.e high the frequency more pulses through the speaker. I have found a speaker and a taudio componient @
The taudio componient will allow me to create a wave form in its buffer which it then outputs to the sound card. Is there any way of implimenting the buffer for the PCspeaker? The PCSpkr componient on the above mention site only seems to work on 98 as NT produces a "Privelage instruction" error message.
I found some information on the beep instruction you mentioned :-
"Function Beep(dwFreq {Hertz (37 .. 32767)}, dwDuration {milliseconds}:  DWORD):  BOOL;
Under Windows 95 the Beep parameters are ignored and the Windows plays the default sound event.  Unders Windows NT, Beep is synchronous, except for when dwDuration is -1.  In this case Beep is asynchronous and continues until the next call to Beep."

Who is Participating?
simonetConnect With a Mentor Commented:
Better than giving you the answer here, I'll give you the 2 sources I used when I had a similar problem. However, I no longer have the application I wrote (it was for the company I was working for), but I ket the URLs:

Dual Tone Multiple Frequency: 

Generating DTMF tones using soundcard 

The latest will point you to an application that generated the WAV files for the source codes. The application contains source for both Pascal and C++.



It seems like the sampled wav files would not need to be very large though
because the wavs would only need to be a fraction of a second to dial out on a phone line.... 12 sounds of say 1/5 sec each should work them in a res file.
ironwood321Author Commented:
Edited text of question.
Cloud Class® Course: Ruby Fundamentals

This course will introduce you to Ruby, as well as teach you about classes, methods, variables, data structures, loops, enumerable methods, and finishing touches.

ironwood321Author Commented:
Edited text of question.
the native win32 Beep function takes frequenty and duration parameters (only on NT!)

<-paste from win32 programmer's ref.->
BOOL Beep(
    DWORD dwFreq,
    // sound frequency, in hertz
    DWORD dwDuration
    // sound duration, in milliseconds
<-end paste->

as I remember (from some ISDN programs) the DTMF specifications are somewhere described (e.g. busy: 3s 5000Hz, 1s silence, 3s 5000Hz etc.)

Hope u use NT ;-)
ironwood321Author Commented:
Edited text of question.
ironwood321Author Commented:
Edited text of question.
As far as I understand DTMF frequencies are not for example say 500Hz or 1500Hz. Rather it is a mix of frequencies, which is difficult to create.
you're right: according to
it is a mix of a low and high frequencies.
But there's probably a nice component to achieve this...


The whatis link doesn't show the complete DTMF list, but it's a start...
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.