Asskiller Administrador
Número de Mensagens : 1125 Idade : 32 Localização : NikIty CiTy Warning : Data de inscrição : 16/03/2008
| Assunto: Criando 1 Discador! Qua 09 Abr 2008, 22:30 | |
| Atualmente, existem diversas opções de como se realizar ligações a partir de um computador utilizando o modem. A mais simples seria fazer com que seu aplicativo chamasse o discador que acompanha o Windows, o que não seria, por assim dizer, uma solução, visto que todas as ligações não seriam realizadas pelo seu aplicativo e futuramente nenhum tipo de relatório poderia ser extraído. Uma segunda opção possível seria a utilização da TAPI (Interface de Programação de Aplicativos de Telefonia), que é uma API específica para desenvolvimento de aplicações telefônicas. Apesar desta ser a opção mais recomendada, ela exige muitas linhas de código e uma maior experiência do programador. Vamos então nos deter em realizar ligações utilizando os velhos e conhecidos comandos do modem ("modem commands"), acessando, diretamente via um Handle, a porta onde está instalado o modem, e enviando strings de comando para o mesmo, utilizando a função WriteFile. Neste artigo utilizamos as funções CreateFile e WriteFile que são descritas ao final. Maiores informações podem ser obtidas no arquivo Microsoft Windows Developers Guide - "C:\Arquivos de programas\Arquivos comuns\Borland Shared\MSHelp\guide.hlp" que acompanha o instalação do Delphi 5. Os Comandos do Modem Os modems obedecem a tabelas de comandos que podem sofrer variações de acordo com o fabricante. Alguns dos comandos mais usados são: AT Atenção A Atender D Discar H Desligar ("Hangup) T Discagem de TOM P Discagem de PULSO , Pausa &F Configurações de fábrica Terminador
Esses comandos são combinados de forma a criar a string de comando desejada. Por exemplo, para realizar uma ligação, devemos enviar para o modem a seguinte string:
ATDT1234567
A String acima passa ao modem as seguintes informações:
AT - Atenção, comandos serão enviados D - Discar T - Utilizar discagem tipo TOM 1234567 - Número que se deseja discar - Terminador informando o fim da string
Criando o programa discador
Vamos agora criar um pequeno projeto que usa comandos do modem para realizar ligações. Inicie um novo projeto, adicione um TButton, um TEdit, um TComboBox, um TMemo e dois TRadioButton. A Figura 1 mostra o formulário pronto.
Figura1. Formulário principal do discador
Na propriedade Itens do ComboBox, adicione os nomes das portas do seu computador (COM1;COM2;COM3;COM4). Logo após a declaração do seu formulário declare as seguintes variáveis globais (mostradas em negrito):
var Form1: TForm1; hCommFile: THandle; Status: LongBool; NumberWritten: DWORD; Buf : array [0..1023] of Byte; s : string;
No evento OnClick do botão adicione o seguinte código:
procedure TForm1.Button1Click(Sender: TObject); begin //Testa os valores necessários if (combobox1.text <> '') and (edit1.text<>'') then begin //Abre a porta de comunicação s:=Combobox1.text; hCommFile := CreateFile(PChar(s), GENERIC_WRITE,
0, // não compartilhado
nil, // sem segurança OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
// Verifica a abertura da porta if hCommFile = INVALID_HANDLE_VALUE then begin memo1.lines.clear; memo1.lines.add('Não foi possível abrir a porta selecionada.'); memo1.lines.add('Discagem não efetuada'); CloseHandle(hCommFile); end else
begin
memo1.lines.clear; memo1.lines.add('Discando...'); //Cria a string de comando if radiobutton1.checked then s:='ATDT' else s:='ATDP'; s := s + edit1.text + #13#10; memo1.lines.add(s); //Envia a String de Comando NumberWritten:=0; Status:= WriteFile( hCommFile,PChar(s)[0], Length(s), NumberWritten, nil); memo1.lines.add('Aguardando Atendimento ...'); MessageDlg('Retire o telefone do gancho ' + 'e clique OK para desligar o modem', mtInformation,[mbok], 0); //Desconecta a ligação WriteFile(hCommFile,'ATH',5,NumberWritten,nil); //Fecha a porta de comunicação CloseHandle(hCommFile); memo1.lines.add('Modem Desconectado.'#13#10); end; end; end;
Pronto, está criado o programa discador, que pode ainda ser incrementado com diversas facilidades, mas que por hora cumpre seu objetivo: realizar ligações!
As Funções CreateFile e WriteFile
CreateFile e WriteFile são funções 32-bit da API do Windows para comunicação Síncrona ou Assíncrona com portas seriais e diversos outros dispositivos.
Veja abaixo a sintaxe das funções e alguns dos seu principais parâmetros:
A Função CreateFile Cria e abre um arquivo ou acesso a porta, retornando um operador (Handle) por onde serão realizadas as operações desejadas.
HANDLE CreateFile(LPCTSTR lpFileName, // Ponteiro para o Nome do Arquivo DWORD dwDesiredAccess, // Tipo de Acesso DWORD dwShareMode, // Tipo de Compartilhamento LPSECURITY_ATTRIBUTES lpSecurityAttributes, // Atributos de Segurança DWORD dwCreationDistribution, // Forma de criação do objeto DWORD dwFlagsAndAttributes, // Atributos do Arquivo HANDLE hTemplateFile // Operador para o arquivo );
- Principais Parâmetros:
lpFileName Especifica o tipo de objeto para Criar ou Abrir, alguns objetos possíveis são:
- Arquivos - Programas Console - Portas Seriais
dwDesiredAccess
Especifica o tipo de acesso ao objeto que podem ser: Acesso de Leitura, Escrita e Leitura-Escrita.
A Função WriteFile Utiliza o operador retornado pela função CreateFile para escrever no arquivo ou porta recém criada e aberta.
BOOL WriteFile( HANDLE hFile, // Operador para o objeto LPCVOID lpBuffer, // Ponteiro para os dados a escrever DWORD nNumberOfBytesToWrite, // Número de bytes para escrever LPDWORD lpNumberOfBytesWritten, // Ponteiro para número de bytes escritos LPOVERLAPPED lpOverlapped // Ponteiro para estrutura I/O );
- Principais Parâmetros:
hFile Operador retornado pela função CreateFile através do qual é possível se realizar as operações desejadas.
lpBuffer Ponteiro indicando o buffer que contém os dados a serem escritos.
Notas finais
· Para saber em que porta o seu modem está instalado consulte as propriedades do seu modem no painel de controle do Windows
· Realizando testes, percebi que alguns modems tais como o HSP56 Micro Modem não realizam a ligações com a função mostrada anteriormente, isso porque, por default, a opção "Aguardar sinal antes de discar" não está selecionada. Para selecioná-la, envie para o modem a seguinte string de comando, antes da string com o número a ser discado.
s:='ATS7=60S30=0M1\N3%C3&K3B0N1X1'+#13#10;
· Caso possua uma central telefônica entre a linha e o PC, na maioria das vezes é necessário enviar o número para requisitar a linha externa e uma pausa. Isso altera um pouco a string de comando:
S:='ATDT0, 1234567'+#13#10;
.... Creditos:Desconhecido | |
|