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
|