Discussion :

[lassmust]

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

merci d'avance

[lassmust]

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

[lassmust]

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

[lassmust]

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.