Discussion :

[Invité]

Bonjour.

Le jour où je déciderai de migrer vers Windows 10, il me faudra un langage de programmation et une possibilité de commande vocale. On ne se refait pas ...

1) Pour le langage, je comptais m'appuyer sur l'EDI Lazarus, j'ai l'habitude de Delphi et j'ai même essayé Lazarus. Dire qu'il me paraissait "hénaurme" avec ses 850 Mo sur le disque (comparé à la centaine de Delphi 7, certes) ; je viens juste de lire dans un autre forum les valeurs des Visual Studios actuels ...
Je vais faire amende honorable et pénitence !
Question : le résultat est-il du code natif et non du code managé ?

2) J'ai trouvé l'article suivant :
http://edn.embarcadero.com/article/29583
mais il s'applique à SAPI 5.1 et Delphi 6 ou 7
Quelqu'un sait-il si tout ceci peut aussi être employé sans trop de modifications avec Lazarus 64 bits et le SAPI 5.4 ?

Merci d'avance ...

[gvasseur58]

Bonjour,

1) Pour le langage, je comptais m'appuyer sur l'EDI Lazarus, j'ai l'habitude de Delphi et j'ai même essayé Lazarus. Dire qu'il me paraissait "hénaurme" avec ses 850 Mo sur le disque (comparé à la centaine de Delphi 7, certes) ; je viens juste de lire dans un autre forum les valeurs des Visual Studios actuels ...
Je vais faire amende honorable et pénitence !
Question : le résultat est-il du code natif et non du code managé ?

Du code natif, comme Delphi.

2) J'ai trouvé l'article suivant :
http://edn.embarcadero.com/article/29583
mais il s'applique à SAPI 5.1 et Delphi 6 ou 7
Quelqu'un sait-il si tout ceci peut aussi être employé sans trop de modifications avec Lazarus 64 bits et le SAPI 5.4 ?

Ce devrait être possible, mais les techniques OLE ne sont pas le point fort de Free Pascal : elles sont du pur Microsoft alors que Free Pascal est totalement orienté multiplateforme.
Cependant, le code suivant compile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.FormCreate(Sender: TObject);
var
    SpVoice: Variant;
begin
    SpVoice := CreateOleObject('SAPI.SpVoice');
    SpVoice.Speak('Hello World', 0);
end;

Reste à accéder à l'API : je ne l'ai pas installée .

Cordialement,

Gilles