Bonjour à tous.
Après un long moment, je suis de retour.
Toutes mes excuses pour l'absence.
Aidez moi. Je demande comment transcrire ce que dis à travers un microphone en texte dans un Tedit?
J'ai beaucoup fouillé sur le net. J'ai pu faire lire du texte d'un tmemo par l'ordinateur.
Mais ma préoccupation actuelle n'est pas encore ça. J'ai vu des lignes de codes suivants que je n'arrivage pas à exploiter.
Car presque toutes les instructions ne sont pas reconnus par delphi 10.3 ed community que j'utilise.
Voici ces lignes de codes:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  fMyGrammar := SpSharedRecoContext1.CreateGrammar(0);
  fMyGrammar.DictationSetState(SGDSActive);
end;
 
procedure TForm1.SpSharedRecoContext1Recognition(Sender: TObject;
  StreamNumber: Integer; StreamPosition: OleVariant;
  RecognitionType: TOleEnum; var Result: OleVariant);
begin
  Memo1.Text := CurrentText + Result.PhraseInfo.GetText;
  CurrentText := Memo1.Text;
end;
 
procedure TForm1.SpSharedRecoContext1Hypothesis(Sender: TObject;
  StreamNumber: Integer; StreamPosition: OleVariant;
  var Result: OleVariant);
begin
  Memo1.Text := CurrentText + Result.PhraseInfo.GetText;
end;
 
end. //really
Win10 installé sur le poste.
Merci de m'orienter.