FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
|
|
|