Realizar automática~ llamadas telefónicas
 

Hola estimados compañeros de foro. En mi nuevo proyecto, debo hacer trabajos con telefonía, más en concreto con el fax y con llamadas de teléfono.
Hasta ahora mi trabajo siempre ha estado orientado hacia las BBDD, pero en este caso debo hacer algo nuevo, lo cual además de ser un reto es un mar de dudas para mi.

En concreto debo conseguir hacer:

Realizar de modo automático llamadas telefónicas de manera programada.

P.e., debería programar como hace la compañía telefónica un servicio de avisos a modo de despertador, dejando programado el nº de teléfono y la hora de pulsación del mismo.
He visto por internet, que existen centralitas telefónicas que tienen este tipo de funcionabilidad mediante software adicional, pero en mi caso la centralita es tan vieja que no hay nada que se le pueda anexar como modulo sw o hw que me permita comprar algún sw comercial que me dé el servicio, por lo que he de programarlo yo y hacer esas funciones mediante un pc con salida a través de proxy a Internet.

El mensaje de emisión ya se me ocurrirá como reproducirlo, pero de momento lo que me interesa en un primer paso es esa conexión o pulsación del número.
Del mismo modo y por cuestiones económicas, me interesa también por el hecho de poder enviar faxes extensos en horario nocturno a delegaciones donde no tengo ningún modo de acceso vía correo electrónico por no tener siquiera ni pc en las oficinillas o casetas del material en las obras.

Si alguien conoce o sabe como realizar de modo programado estas conexiones telefónicas mediante código o simplemente con algún componente, se lo agradecería.

Gracias por todo y felicidades para los que ni siquiera podéis leer esto por estar de vacaciones, ya me llegarán..... :p

Ja està, sol cal ficar-li el temporizador, però aquestes son les funcions principals.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
  function tapiRequestMakeCall(lpszDestAddress,lpszAppName,lpszCalledParty,lpszComment: LPCSTR): DWORD;
  stdcall;

type
  TForm1 = class(TForm)
    Button1: TButton;
    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,'963134455');
     StrPCopy(AQuien,'To me');
     tapiRequestMakeCall(PhoneNumber,'',AQuien,'');
end;

end.

Se te fue la olla, y "hablas" en catalan... :p

Hola. Te recomiendo que te bajes de torry.net los componentes APRO.
Son muy potentes con ellos vas a poder enviar faxes, llamar por telefono y muchas otras cosas mas.

Lamentablemente Torry.net ahora no esta disponible , voy a ver si los subo a algun server pa que los bajes.

Saludos...

mmmmmmmmm
 

Yo he tenido muchos problemas con los APRO, uno de ellos, en cierto tiempo me deja de recibir FAXES(Tengo que ReConectar el Puerto), y para enviar FAX's no he encontrado la manera de enviarlos a FAXES que no esten automáticos(DIRECTOS) aquellos que tienes que hablar con la operadora para que te pasen TONO....

Saludos....

Voy a buscarlos aunque no sea en torry.net, más en concreto en emule, pero debera ser este fin de semana en casa, aquí con el proxy lo tenemos prohibido.
No obstante voy a ver si en un momento encuentro algún enlace que me permita bajarlos desde el despacho.
No obstante me reservo el poder escribirte por email para pedirtelos, si eres tan amable.
Un saludo y gracias a todos :) .

Bueno. He encontrado en una primera inspección de páginas los siguientes ficheros (entre otros).

APROHLP.ZIP
APROPDRVHLP.ZIP
APTR6.EXE (Tengo el Delphi 6.0)

Pero al ir a instalar el APTR6.EXE, me pide un Unlocking Code que parece ser se obtiene de la pagina de TurboPower,pero me excede el tiempo de la conexión y no lo obtengo.
No obstante este fin de semana si puedo lo buscaré por ahí y si no lo obtengo, os lo pediré si sois tan amables.

Gracias y un saludo.

Ya los subi a un server. Aca te dejo los links.

Archivo1
Archivo2
Archivo3
Archivo4
Archivo5
Archivo6

El archivo es uno: tpapro_4_06.zip, pero esta cortado en 6.
Para unirlo tenes que renombrar el archivo tpapro_4_06-UNIR.(exe) por tpapro_4_06-UNIR.exe y ejecutarlo. Esta asi porque el servidor no me deja subir archivos muy grandes ni tampoco ejecutables.
Cualquier problema avisame.

Bytes...

Hola de nuevo.
Gracias por todo Sotrono, pero al intentar bajarlos de tus enlaces y montarlos, después de montarlos no se puede descomprimir ya que el Rar me da error de fichero y me indica que me lo vuelva a bajar.
No obstante, ayer Domingo conseguí los dos ficheros en el Emule llamados:
tpapro_4_06.zip y tpapro_docs.zip respectivamente que contienen directorios denominados APAX, DIN, DOCS, EXAMPLES, PACKAGES, SOURCE en su raiz, pero tengo dudas al instalarlo.

1ª forma de la instalación:
Existe un fichero en el raiz denominado readme.txt donde explica:

To install TurboPower APRO into your IDE, take the following steps:
1. Unzip the release files into a directory (e.g., d:\apro).
2. Start Delphi or C++Builder.
3. Add the source subdirectory (e.g., d:\apro\source) to the IDE's
library path.
4. Open & compile the runtime package specific to the IDE being
used.
5. Open & install the designtime package specific to the IDE being
used. The IDE should notify you the components have been
installed.

Duda:
Después de hacer el paso 3 empiezan mis dudas.
En el IDE de delphi 6.0 abro Component/Install Component
En la pestaña Into New page añado:
UnitFileName: A406_R60.dcu
Search path: (Ruta donde esta el fichero)
Package file name: A406_R60.dpk
Package description: (Pongo Turbo power.....)

y me dice que ya está instalado.

Procedo a hacer el punto 4.
En el IDE de delphi 6.0 abro Component/Install Component
En la pestaña Into New page añado:
UnitFileName: A406_D60.dcu
Search path: (Ruta donde esta el fichero)
Package file name: A406_D60.dpk
Package description: (Pongo Turbo power.....)

y despues de intentar compilarlo (lo cual obvio) no tengo la opción de Install accesible.


2ª forma de la instalación:
Existe un fichero llamado APRO_DevGuide.pdf
donde explica lo siguiente:

1º que existe un directorio Setup, lo cual no es cierto, al menos en lo que yo me he bajado

2º me vuelve a explicar como hacer lo mismo que me explicaba el readme.txt, pero no he tenido exito por el mismo motivo, aún haviendo copiado los dcu en el Windows/system32.


El Viernes por otra parte tambien obtuve un fichero que parece ser que los instala denominado APTR6.EXE pero al ejecutarlo para la instalacion presumible de los componentes me pide un UNLOCKING CODE que no lo conozco nilo obtiene automaticamente de la web.


¿Como puedo instalar los componetes?

Para continuar con el paso 4 tenes que ir a la carpeta packages y abrir, en tu caso, el archvo A406_D60.dpk e instalar eso y ya esta.

Bytes...

Si consigues mandar Faxes me seria de gran ayuda un ejemplo, pues la documentacion esta en ingles y no se me da muy bien. Que tengas suerte en el nuevo proyecto.

Por cierto te lo puedes bajar de SourceForge, tpapro

Un saludo

No se si los revisaron pero los componentes vienen con varios ejemplos entre los que hay envio de faxes. Estan en la carpeta examples.

Bytes...

;) No me pregunteis como, pero al final los he instalado.
Ahora me queda un mundo por descubrir en este rollo telefónico.

Por si acaso álguien conoce algo y adelanto mis conocimientos, necesito conocer como hacer algo así.

1º) Poder realizar llamadas ocultando el teléfono con el que llamo (cuestion de marketing y política de empresa).

2º) Que la propia llamada se cierre dentro de un tiempo estipulado.

3º) Cuando el usuario llamado descuelgue, que pueda reproducirle un fichero de sonido con el aviso pregrabado.

4º) Poder volver a llamar a otro número pasados unos minutos desde la última llamada.

Si existe algún componente dentro de estas paletas que lo haga y lo conoceis, agradecería vuestra ayuda.
En caso contrario, me los estudiaré, no sé lo que tardaré, porque tengo otros temas en liza entre ellos irme de vacaciones :D , pero enseguida los conozca (si es que se puede) lo publicaré igualmente aquí.

Un saludo, y lo dicho, si lo conoceis.....

Para realizar llamadas agrega un apdComPort de la paleta APRO y un apdTapiDevice de la paleta APRO Telephony. Enlazalos mediante la propiedad ComPort de este ultimo

1) Para realizar llamadas utiliza el metodo Dial del apdTapiDevice.Para ocultar tu numero tenes que averiguar con la empresa telefonica. Por ejemplo yo para figurar como anonimo en el identificador de llamadas tengo que marcar *31# y luego el numero telefonico.

2) Utiliza el metodo CancelCall.

3) En el evento OnTapiConnect usa el metodo PlayWaveFile(ruta_del_archivo)

4) Contas el tiempo que paso desde la ultima llamada hasta ahora y si paso el tiempo necesario haces otro Dial.

5) Uhhhhhh, ya te vas de vacaciones... que bueno, yo tengo que esperar hasta enero, va, aunque en realidad no se si voy a tener vacaciones porque empiezo el curso de ingreso a la facultad.

Bytes...

Vaya Sotrono, te debo una tio. Parece que dominas bastante el tema. Gracias por todo.
En realidad ayer no pude mirar nada del proyecto, pero tan pronto sepa, publicaré los métodos y procedimientos.
En cuanto a las vacaciones, bueno espera a Enero, en tu tierra (supongo la gran Argentina) hará mejores dias y más calurosos que ahora en invierno, todo o contrario que por aquí.
En fin de nuevo gracias por todo. ;)

Sotrono, ese el problema, que el ejemplo es bastante extenso y no funciona, por eso preguntaba si alguien sabia como hacerlo, como has echo al indicarle a Cabanyaler como se realizan las llamdas.

Un saludo y gracias

detectar el Descolgado del telefono
 

Alguien ya sabe a lo que comentaban que:
Cuando el usuario llamado descuelgue, que pueda reproducirle un fichero de sonido con el aviso pregrabado.

se los agradeceria mucho si me pudieran informar como hacerle, ya que he estado investigando y no he podido encontrarle como hacerle.