Existe-t'il, sous Delphi un composant, procédure ou fonction qui permet au modem (téléphonique) de composer un numéro de téléphone; j'ai trouvé le "Numéroteur Téléphonique de Windows mais la solution ne me plait qu'à moitié car j'aimerais que le modem, une fois le numéro composé soit mis hors fonction. (En appuyant sur un bouton ou autre, le modem composerait ce numéro et au bout de quelques secondes, il laisserait le champ libre afin que l'on puisse parler directement du téléphone connecté sur l'ordi. Le code qui suit fait cela mais pas à mon goût car la fonction WM_Close ne marche pas à tous les coups et quand cela marche, le numéroteur demande confirmation avant de fermer ce qui m'embête.
Si quelqu'un a des suggestions, elles sont le bienvenu car j'ai cherché au meilleur de mes connaissances sans rien trouver d'intéressant.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.Button1Click(Sender: TObject); var NoTel: array [0..255] of char; Destinataire: array [0..255] of char; HandleV:THandle; begin StrPCopy(Notel,NoTelv); // NoTelv = # téléphone venant d'un fichier StrPCopy(Destinataire,destv); // Destv = Nom du prop. de ce numéro tapiRequestMakeCall(NoTel,'',Pchar(Destv),''); // Ouvre le numéroteur HandleV := FindWindow(nil,'Numéroteur Téléphonique'); // Trouve le handle pour la fermeture Sleep(5000); // 5 secondes de délais SendMessage(HandleV,WM_CLOSE,0,0); // Fermeture du numéroteur end;
Merci, Duan
Partager