Discador pra Agenda Telefonica
Pessoal,
Estou desenvolvendo uma agenda completa, endereço, contatos e telefones;
Quero que minha agenda disque para os numeros desejados;
Quando o usuário necessitar telefonar para um fornecedor, basta ele selecionar o fornecedor e clicar em botão para discar.
Após discar, esse usuário pega o telefone que está em sua mesa, ligado ao modem.
Imagine isso na mesa da sua secretária, no seu escritorio ou até mesmo em casa.
Se alguem sabe como fazer isso, tem ideia de como poderia ser feito ou algo do tipo... aceito qualquer comentário... ajuda ou dica.
Atenciosamente
Bruno
Estou desenvolvendo uma agenda completa, endereço, contatos e telefones;
Quero que minha agenda disque para os numeros desejados;
Quando o usuário necessitar telefonar para um fornecedor, basta ele selecionar o fornecedor e clicar em botão para discar.
Após discar, esse usuário pega o telefone que está em sua mesa, ligado ao modem.
Imagine isso na mesa da sua secretária, no seu escritorio ou até mesmo em casa.
Se alguem sabe como fazer isso, tem ideia de como poderia ser feito ou algo do tipo... aceito qualquer comentário... ajuda ou dica.
Atenciosamente
Bruno
Sanson
Curtidas 0
Respostas
M@rcelo
05/02/2004
Tenho um exemplo que encontrei na web ainda nao testei mas ele tem uma rotina de testar modem e discar pelo computador me da seu email que te mando juntamente com o Tdial Up que e um utilitario de modem talvez te sirva tb
OK
OK
GOSTEI 0
Roni_moc
05/02/2004
Coloque este codigo no botão discar
var
Porta, Fone, msg:String;
begin
Porta:=´COM3´;
hCommFile:= CreateFile( PChar(Porta), GENERIC_WRITE,
0, //not shared
nil, //no security
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0 );
if hCommFile = INVALID_HANDLE_VALUE then
begin
msg:=´Não foi possível abrir a porta do Modem.´+#13+
´Discagem cancelada, favor entrar encontato com o suporte Técnico.´;
Application.MessageBox(Pchar(MSG),´Erro Internto´,MB_ICONERROR + mb_OK);
CloseHandle(hCommFile);
end;
Fone:=´ATDT´+EDIT1.TEXT+1310;
NumberWritten:=0;//Envia a String de Comando
Status:=WriteFile( hCommFile,PChar(Fone)[0],
Length(Fone),
NumberWritten,
nil);
msg:=´Favor após 3 segundos retire o telefone do gancho e Clique OK!´;
Application.MessageBox(Pchar(MSG),´Atenção´,MB_ICONINFORMATION + mb_OK);
WriteFile(hCommFile,´ATH´,5,NumberWritten,nil);//Desconecta a ligação (Hangup)
CloseHandle(hCommFile);
var
Porta, Fone, msg:String;
begin
Porta:=´COM3´;
hCommFile:= CreateFile( PChar(Porta), GENERIC_WRITE,
0, //not shared
nil, //no security
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0 );
if hCommFile = INVALID_HANDLE_VALUE then
begin
msg:=´Não foi possível abrir a porta do Modem.´+#13+
´Discagem cancelada, favor entrar encontato com o suporte Técnico.´;
Application.MessageBox(Pchar(MSG),´Erro Internto´,MB_ICONERROR + mb_OK);
CloseHandle(hCommFile);
end;
Fone:=´ATDT´+EDIT1.TEXT+1310;
NumberWritten:=0;//Envia a String de Comando
Status:=WriteFile( hCommFile,PChar(Fone)[0],
Length(Fone),
NumberWritten,
nil);
msg:=´Favor após 3 segundos retire o telefone do gancho e Clique OK!´;
Application.MessageBox(Pchar(MSG),´Atenção´,MB_ICONINFORMATION + mb_OK);
WriteFile(hCommFile,´ATH´,5,NumberWritten,nil);//Desconecta a ligação (Hangup)
CloseHandle(hCommFile);
GOSTEI 0