Fórum Fazer chamada telefonica via DELPHI 7 usando o modem #355196

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

Blz, Wilson !!

Testei e funcionou certinho.

Muito Obrigado pela ajuda.

abraços.

Oi cara, vc me mandaria esse exemplo do discador?
Muito obrigado,
Cássio
cassiofialho@globo.com

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;

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,

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.

pode deixar... se descobrir algo inclusive uma funçao ou componente pra gravar a ligação... tbm estou procurando