Fazer chamada telefonica via DELPHI 7 usando o modem
Boa Noite !!
Fiz um discador de chamadas no delphi usando o fax/modem, até ai sem problemas, agora eu gostaria de saber como eu faço por exemplo se eu precisar colocar outros dois edits para colocar o codigo do pais e o DDD.
Em um EDIT estou usando para pegar o numero do telefone e enviar para o modem, agoraa questão é se eu precisar juntar o Codigo do Pais + DDD que estão em outro edit.
Exemplo:
EDIT1 = 55
EDIT2 = 11
EDIT3 = 2222-1111
Preciso juntar as ifnormações dos tres edit e um só para enviar para o modem.
EDITX = 55112222-1111
Se alguem puder me ajudar eu agradeço.
obrigado.
Fiz um discador de chamadas no delphi usando o fax/modem, até ai sem problemas, agora eu gostaria de saber como eu faço por exemplo se eu precisar colocar outros dois edits para colocar o codigo do pais e o DDD.
Em um EDIT estou usando para pegar o numero do telefone e enviar para o modem, agoraa questão é se eu precisar juntar o Codigo do Pais + DDD que estão em outro edit.
Exemplo:
EDIT1 = 55
EDIT2 = 11
EDIT3 = 2222-1111
Preciso juntar as ifnormações dos tres edit e um só para enviar para o modem.
EDITX = 55112222-1111
Se alguem puder me ajudar eu agradeço.
obrigado.
Badboysjc
Curtidas 0
Respostas
Walencar
11/03/2008
Olá amigo, veja o exemplo abaixo, note que o +(soma) em dados do tipo string funcionam para concatenar estes valores:
var
telefone : string;
begin
telefone := edit1.text + edit2.text + edit3.text;
showmessage(´Este é o número de telefone?´ + #13 + telefone);
abraços
Wilson
var
telefone : string;
begin
telefone := edit1.text + edit2.text + edit3.text;
showmessage(´Este é o número de telefone?´ + #13 + telefone);
abraços
Wilson
GOSTEI 0
Badboysjc
11/03/2008
Blz, Wilson !!
Testei e funcionou certinho.
Muito Obrigado pela ajuda.
abraços.
Testei e funcionou certinho.
Muito Obrigado pela ajuda.
abraços.
GOSTEI 0
Cassiofialholima
11/03/2008
Oi cara, vc me mandaria esse exemplo do discador?
Muito obrigado,
Cássio
cassiofialho@globo.com
Muito obrigado,
Cássio
cassiofialho@globo.com
GOSTEI 0
Badboysjc
11/03/2008
Caro Cassio, segue abaixo um exemplo basico, adapte as suas necessidades:
procedure TfrmDiscador.Button1Click(Sender: TObject);
var
hCommFile: Thandle;
Status: LongBool;
NumberWritten: Dword;
Buf: Array[0..1023] of byte;
S, Telefone, Pausa: String;
begin
If (frmDiscadorConfig.ComboBox1.Text <> ´ ´) and (dm.cdsConsultaCPFTELEFONE_RESIDENCIAL.Value <> ´´)
Then
Begin
S := frmDiscadorConfig.ComboBox1.Text;
HcommFile := CreateFile(Pchar(s), Generic_write, 0, nil, Open_existing,
File_attribute_normal,0);
Memo1.Lines.clear;
Memo1.Lines.Add(´Discando...´);
If frmDiscadorConfig.RadioButton1.Checked Then
S := ´ATDT´;
telefone := frmDiscadorConfig.edtExterna.text + frmDiscadorConfig.edtPausa.Text +
frmDiscadorConfig.edtCodPais.text + dm.cdsConsultaCPFTELEFONE_RESIDENCIAL.Value;
S := S + telefone + #1310;
Memo1.Lines.Add(S);
NumberWritten := 0;
Status := WriteFile(hCommFile, pchar(s)[0], length(s), NumberWritten, nil);
Memo1.Lines.Add(´Aguardando atendimento...´);
MessageDlg(´Tire o telefone do gancho e clique em OK para desligar o modem´,
mtInformation, [mbOK],0);
WriteFile(hCommFile, ´ATH´,5 , NumberWritten, nil);
CloseHandle(hCommFile);
Memo1.Lines.Add(´Modem desconectado.´1310);
end;
end;
procedure TfrmDiscador.Button1Click(Sender: TObject);
var
hCommFile: Thandle;
Status: LongBool;
NumberWritten: Dword;
Buf: Array[0..1023] of byte;
S, Telefone, Pausa: String;
begin
If (frmDiscadorConfig.ComboBox1.Text <> ´ ´) and (dm.cdsConsultaCPFTELEFONE_RESIDENCIAL.Value <> ´´)
Then
Begin
S := frmDiscadorConfig.ComboBox1.Text;
HcommFile := CreateFile(Pchar(s), Generic_write, 0, nil, Open_existing,
File_attribute_normal,0);
Memo1.Lines.clear;
Memo1.Lines.Add(´Discando...´);
If frmDiscadorConfig.RadioButton1.Checked Then
S := ´ATDT´;
telefone := frmDiscadorConfig.edtExterna.text + frmDiscadorConfig.edtPausa.Text +
frmDiscadorConfig.edtCodPais.text + dm.cdsConsultaCPFTELEFONE_RESIDENCIAL.Value;
S := S + telefone + #1310;
Memo1.Lines.Add(S);
NumberWritten := 0;
Status := WriteFile(hCommFile, pchar(s)[0], length(s), NumberWritten, nil);
Memo1.Lines.Add(´Aguardando atendimento...´);
MessageDlg(´Tire o telefone do gancho e clique em OK para desligar o modem´,
mtInformation, [mbOK],0);
WriteFile(hCommFile, ´ATH´,5 , NumberWritten, nil);
CloseHandle(hCommFile);
Memo1.Lines.Add(´Modem desconectado.´1310);
end;
end;
GOSTEI 0
Cassiofialholima
11/03/2008
Opa.. valeu...
Fiz uns testes, funcionaram perfeitamentes, mas não consegui enviar os parâmetros corretos para desligar a ligação pelo computador, ou seja.. se eu quiser interromper e ligar pra outro numero... vc saber como seria?
Muito obrigado,
Fiz uns testes, funcionaram perfeitamentes, mas não consegui enviar os parâmetros corretos para desligar a ligação pelo computador, ou seja.. se eu quiser interromper e ligar pra outro numero... vc saber como seria?
Muito obrigado,
GOSTEI 0
Badboysjc
11/03/2008
Caro Cassio, bom dia !!
Fico feliz que o exemplo tenha te ajudado, se o que você pretende é fazer um discador através de uma base ele ligar para os telefones de forma automatica, também estou precisando, não consiguir fazer, preciso usar e um cliente meu que esta montando um telemarkting.
Se conseguir alguma coisa por favor mande um exemplo.
osvaldodomenico@hotmail.com
abraços.
Fico feliz que o exemplo tenha te ajudado, se o que você pretende é fazer um discador através de uma base ele ligar para os telefones de forma automatica, também estou precisando, não consiguir fazer, preciso usar e um cliente meu que esta montando um telemarkting.
Se conseguir alguma coisa por favor mande um exemplo.
osvaldodomenico@hotmail.com
abraços.
GOSTEI 0
Cassiofialholima
11/03/2008
pode deixar... se descobrir algo inclusive uma funçao ou componente pra gravar a ligação... tbm estou procurando
GOSTEI 0