TAPI COMPONENTS!

[selena1]

I need to create answering machine that would be able to:
1) take a call
2) play a message (wav file: "Welcome")
3) get a caller input base on the pressed phone numbers (for example: 3456#)
4) base on that value to query a database, and get values of two fields
5) base on values of that fields to play to play variouses messages (wav files):
- Message 1: "Your numbers are"
- Message 2: value of field 1
- Message 3: "and"
- Message 4: value of field 2
- Message 5: "thanks"
6) after these masseges it should play start message ("Welcome") and go on ....

So I need some TAPI components. Can anybody give me some address where I can get it (if it is possible free commponents). Also some who had expirience with this could give me some advices?

THANKS!

 

[whosrdaddy]

IMHO the best (and free) componentsuite to do this :

http://sourceforge.net/projects/tpapro/

cheers!

--------------------------------------
What You See Is What You Get

 

[selena1]

Thanks for your link. I'm sorry I didn't respond erlier.

These components seem to do all I need.

But I have some problems with playing more files one after another.
I want that second file start playing after first file has been finished.
My code is:

procedure TForm1.ApdTapiDevice1TapiConnect(Sender: TObject);
label alfa, beta;
begin
ApdTapiDevice1.PlayWaveFile('one.wav');
alfa:
if ApdTapiDevice1.WaveState = wsPlaying then goto alfa;
ApdTapiDevice1.PlayWaveFile('two.wav');
beta:
if ApdTapiDevice1.WaveState = wsPlaying then goto beta;
end;

In the middle of the first file program stop responding (like that is same endless loop).
What is wrong? Do anbody know how to solve this?

Thanks!