faire un dialer

Salut tout le monde
Je veut faire une application comme ringcentral
câd une application de téléphony via le modem si quelqu'un a une suggestion sa serai sympa de sa part pour me guider avec des composant ou avec les api de windows
:oops: :oops: :oops: :oops:
merci d'avance

j'ai essayer avec tdialer mais il ne prend pas en charge la communication câd dialoguer avec la personne que j'ai appeler avec mon pc

bon j'ai utiliser l'api de windows qui est le suivant

hCommFile : THandle;
procedure TForm1.Button1Click(Sender: TObject);
var
PhoneNumber : string;
CommPort : string;
NumberWritten : DWORD;
begin
PhoneNumber := 'ATDT 003308789565' + #13 + #10;
CommPort := 'COM3';
{Open the comm port}
hCommFile := CreateFile(PChar(CommPort),
GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if hCommFile=INVALID_HANDLE_VALUE then
begin
ShowMessage('Unable to open '+ CommPort);
exit;
end;
{Dial the phone}
NumberWritten:=0;
//function WriteFile(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD;
// var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
if WriteFile(hCommFile,PChar(PhoneNumber)^,Length(PhoneNumber),NumberWritten,nil) = false then begin
ShowMessage('Unable to write to ' + CommPort);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
{Close the port}
CloseHandle(hCommFile);
end;


le probléme est le suivant j'entend la communication atravers mon casque mais je ne peut pas parler avec mon micro veuillez m'eclaircir les idée
merci d'avance:oops: ;)

Cependant, , je vous recommande vivement d'utiliser les composants TurboPower Async Professional disponible sur la page des composants : http://delphi.developpez.com/freewar...tionTelephonie
Ces composants sont gratuit et fonctionnent très bien.