1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal
Sujet Précédent Sujet Suivant

Code delphi pour écrire un nombre dicté dans un micro dans une zone de texte

Signaler
-
Messages postés
221
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
7 novembre 2021
 -
Bonjour,
comment faire un dictaphone avec delphi. On dicte un nombre et cela se transcrit dans une zone de texte Tedit par exemple.
Merci à tous.

2 réponses

Réponse 1 / 2
Messages postés
221
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
7 novembre 2021
 15
salut
une approche par là peut être
http://delphi-kb.blogspot.com/2011/05/speech-part-2-how-to-add-simple.html
Réponse 2 / 2
Messages postés
221
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
7 novembre 2021
 15
j'ai testé ça 
procedure TForm4.SpSharedRecoContext1Recognition(ASender: TObject;
  StreamNumber: Integer; StreamPosition: OleVariant; RecognitionType: TOleEnum;
  const Result: ISpeechRecoResult);
begin // ok pour les nombres
  // pour les chiffres dicter zéro un... zéro neuf  sinon la conversion en chiffre  ne se fait pas et le nombre est ecrit en lettres
  // marche aussi pour les réels en pronoçant par ex zéro neuf virgule zéro deux
  Edit1.Text := Result.PhraseInfo.GetText(0, -1, true);
  Memo1.Text := Result.PhraseInfo.GetText(0, -1, true);
end;


disons que ça marche mais pas très fiable pour les chiffres a toi de tester si ça ta conviens
sinon quelqu'un aura peut être une autre proposition a te faire
Répondre Posez votre question