realizar llamada telefonica con reporduccionde sonido
 

Hola a todos

Estoy haciendo una conexion telefonica donde al responder tengo que reproducir un archivo de sonido.

ya puedo hacer el marcado pero me falta reproducir el sonido


esto es lo que tengo

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MPlayer;

function tapiRequestMakeCall(lpszDestAddress,
lpszAppName,
lpszCalledParty,
lpszComment: LPCSTR): DWORD; stdcall;
type
TForm1 = class(TForm)
Button1: TButton;
MediaPlayer1: TMediaPlayer;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation

function tapiRequestMakeCall; external 'TAPI32.DLL' name 'tapiRequestMakeCall';
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
PhoneNumber: array [0..255] of char;
AQuien: array [0..255] of char;
begin
StrPCopy(PhoneNumber,'666666666');
StrPCopy(AQuien,'To Satan');
tapiRequestMakeCall(PhoneNumber,'',AQuien,'');
end;
end.

como puedo agregar el sonido para que se reproduzca


Gracias de antemano

Hola

Echales una ojeada a los componentes TurboPower Async Professional.
http://sourceforge.net/projects/tpapro
Permiten hacer cosas como las que dices.

Un saludo.

Gracias por la recomendacion

ya he visto muchos componenetes pero ninguno es gratis es por eso que estoy usando TAPI de windows y ya hago llamada telefonica pero no se como agregar el mensaje de voz a la llamada

Hola.

El que te han recomendado es gratuito y open-source.

Saludos.

Gracias de antemano


ya tengo el componente instalado y el ocx tambien pero no encuentro
como reproducir el sonido en el wav del modem

alguien tendra un ejemplo?
que ya cheque los ejemplos y no encuentro ninguno que haga esto


se los agradecere


atte
Carlos Morales

Hola.

Has mirado la documentación?? Hay un apartado sobre ello (Playing Wave Files), y hay un ejemplo: exvoice.dpr.

De todas maneras, pon la propiedad EnableVoice a True y:

Código Delphi [-]
 Procedure TForm1.ApdTapiDevice1TapiConnect(Sender : Tobject);
 begin
   ApdTapiDevice1.PlayWaveFile('Greeting.wav');
 end;

Un saludo