Club Builder

[Susana Johannsen]

Necesito el codigo para un contestador telefonico. En la red encontre varios pero necesitan de componentes que hay que pagar. Alguien tiene el codigo fuente de alguno.

[Snake + +]

hola Susana.

sabes yo hice uno utulizando un componente que es gratis y muy bueno, si te interesa tirame un mauil o un mensaje pribado y te lo hago llegar, le anexe algunjas cosillas buenas al programa.
_________________
I.S.C. Joel Salinas Alvarado
Linux User:454009
the human knowledge belong to the world
"Hoy el Universo Debian es mas GRANDE"
Zacatecas, Mexico.

[Touchsoftwares]

lograste hacer el idcaller?
_________________
Ing. Gabriel Góngora Navarrete
TouchSoftwares Inc

http://www.touchsoftwares.com

[ikis]

Hola, yo lo hice utilizando los componentes de Turbo Power.

Respecto del Id Caller anda solo en ciertos lugares, es decir el programa lo programa en Bs As y andaba perfecto pero no me detectaba el id caller, en cambio en Tierra del Fuego si.....

[Susana]

Si tienen el codigo compartamoslo, haganlo publico, es la unica forma de mejorar

[Cesar C. Salazar Gonzalez]

dentro de 2 dias te pongo el codigo, del IDCAller... es sencillo, recuerda que debes tener activa la linea par el ID Caller...


Saludos
Susana
_________________

[Susana]

No sean egoistas, compartan.
Sera posible que nadie tenga un contestador (TAPI) Telefon API

[ikis]

www.sourceforge.net

alli buscas las librerias de TurboPower, (creo q son las APRO o bien las IPRO). Instalas los componentes que tienen ejemplos para Builder.

Te ruego que leas bien los mensajes que te escriben antes de responder.

[Snake + +]

Este es el codigo de lo que segun yo se le puede decir contestador, le anexe nomas que mande el mensaje grabado a la cuenta de mail predeterminada.

Esta echo con el componente tapiex, en la pagina pueden encontrar la vercion 3 y estaba checando, segun eso trae algunas cosas buena, les recomendaria que lo checara.


Estaria bien que lo calaras usando la linea decodificada para poder saber el ID caler y asi poder detectar las señales DTMF que sirven para poder ahcer mil cosas.

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Principal.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "TAPIEXLib_OCX"
#pragma resource "*.dfm"
TSnake_Contestador_Form *Snake_Contestador_Form;
int x;
bool bandera;
//---------------------------------------------------------------------------
__fastcall TSnake_Contestador_Form::TSnake_Contestador_Form(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSnake_Contestador_Form::Boton_AbrirClick(TObject *Sender)
{
int i;
x=0;
bandera=false;
ITAPILine *linea;
TOLEBOOL retvalue;
for(i=0;i<Lista_de_Dispositivos->Items->Count-1;i++)
{
linea=TapiControl->Lines->Item(i);
retvalue=linea->Open((LINECALLPRIVILEGE)(CALLPRIVILEGE_MONITOR | CALLPRIVILEGE_OWNER));
}
}
//---------------------------------------------------------------------------

void __fastcall TSnake_Contestador_Form::FormCreate(TObject *Sender)
{
int i;
ITAPILine *linea;
TListItem *lt;
TapiControl->initialize(); //Initailize
for(i=0;i<TapiControl->Lines->Count-1;i++)
{
linea=TapiControl->Lines->Item(i); //enum all the TAPIMEDIATYPE_AUDIO devices
if (linea->Caps->Media_Modes && TAPIMEDIATYPE_AUDIO)
{
lt=Lista_de_Dispositivos->Items->Add();
lt->Caption =IntToStr(linea->get_DeviceID());
lt->Data=(void*)i;
lt->SubItems->Add(linea->get_DeviceName());
}
}
}
//---------------------------------------------------------------------------

void __fastcall TSnake_Contestador_Form::Boton_CerrarClick(TObject *Sender)
{
TapiControl->CloseAll();
}
//---------------------------------------------------------------------------
void __fastcall TSnake_Contestador_Form::TapiControlRing(TObject *Sender, ITAPICall *m_Call,
long RingCount)
{
if (RingCount>=StrToInt(Edit_Numero_Rings->Text))
m_Call->Answer();
}
//--------------------------------------------------------------------------
void __fastcall TSnake_Contestador_Form::TapiControlPlayBackComplete(TObject *Sender,
ITAPICall *m_Call)
{
wchar_t buffer[300];
AnsiString filename="mensage_"+ IntToStr(m_Call->LineOwner->DeviceID) + ".wav";
filename.WideChar(buffer,sizeof(buffer));
m_Call->Record(buffer);
bandera=true;

}
//---------------------------------------------------------------------------
void __fastcall TSnake_Contestador_Form::TapiControlConnected(TObject *Sender,
ITAPICall *m_Call, LINECONNECTEDMODE ConnectedMode)
{
wchar_t buffer[300];
m_Call->PlaybackFile(Edit_Nombre_Mensaje->Text.WideChar(buffer,sizeof(buffer)));

}
//---------------------------------------------------------------------------
//void __fastcall TSnake_Contestador_Form::TapiControlDebug(TObject *Sender, BSTR msg)
//{
// Memo1->Lines->Add(msg);
//}
//---------------------------------------------------------------------------

void __fastcall TSnake_Contestador_Form::BitBtn1Click(TObject *Sender)
{

NMSMTP1->Host = Edit_Host->Text;
NMSMTP1->UserID = Edit_Login->Text;

try{
NMSMTP1->Connect();
}
catch(...)
{
return;
}
Label4->Caption=Edit_Login->Text + "@"+Edit_Host->Text;
Label2->Caption="Conectado";
Edit_Host->Text="";
Edit_Login->Text="";

}

//---------------------------------------------------------------------------
__fastcall TSnake_Contestador_Form::EnviarMensaje(TObject *Sender)
{


NMSMTP1->PostMessage->FromAddress =Label4->Caption;
NMSMTP1->PostMessage->ToAddress->Text = Direccion_Buzon->Text;
NMSMTP1->PostMessage->Subject = "Hola que tal" ;
NMSMTP1->PostMessage->Attachments->Text =Lista_de_Archivos->Items->Text;
NMSMTP1->SendMail();

}
//---------------------------------------------------------------------------


Espero que a alguien le sirva y a ver si a alguin se le ocurre algo nuevo para poder meterle a los programas de telefonia.
_________________
I.S.C. Joel Salinas Alvarado
Linux User:454009
the human knowledge belong to the world
"Hoy el Universo Debian es mas GRANDE"
Zacatecas, Mexico.

[Snake + +]

Algo mas.


Para que todo pueda funcionar bien, es NECESARIO y FORZOZAMENTE, un buen MODEM, que sopporte el modo de VOZ, los mejores para eso son los US Robotics, claro que hay mas pero son mas genericos y pueden tener algunos tropiezos.
_________________
I.S.C. Joel Salinas Alvarado
Linux User:454009
the human knowledge belong to the world
"Hoy el Universo Debian es mas GRANDE"
Zacatecas, Mexico.

[Susana]

Podes poner la direccion de la pagina

[Touchsoftwares]

Alguien sabe que modelo de momen funciona en Mexico el idcaller?
_________________
Ing. Gabriel Góngora Navarrete
TouchSoftwares Inc

http://www.touchsoftwares.com

[Cesar C. Salazar Gonzalez]

Te envio el codigo, de como debes tomar la cadena que te avienta el telefono cuando recibes una llamada y ademas tienes activo el ID

[Snake + +]

Que hay de nuevo.

sabes cesar, estaba checando el material que publicaste y esta genial, pero yo intente hacerlo antes d eusar el id caller y es un poco tedioso estar lideando con la hyperterminal, para poder comunicarse con el modem, ademas de que es cierto que no todos lo modem's fuciona, yo quiero ahcer un sistema que detecte los DTMF para poder automatizar mil cosas desde cualquir punto utilizando comi ntermediario una simple llamada telefonica, claro que esta solo en ver a ver que.

bueno voy a meterme en esto y espero tener algo de material nuevo, pues creo que esto tiene mucho de donde expeimirle.

uns saludo y luego nos vemos.
_________________
I.S.C. Joel Salinas Alvarado
Linux User:454009
the human knowledge belong to the world
"Hoy el Universo Debian es mas GRANDE"
Zacatecas, Mexico.

[777]

como se detecta las teclas pulsadas en el telefono?