Speech Plug-In (V1.5) In Development

[Space Fractal]

Thanks for the PM.

I was know it was a joke about the * (since I say that it was funny to hear that).

He He.

Should been very simple to fix that bug.

[loadman]

Ok this Plug-in needs a much needed update:
* Speech to ignore special characters like * in Q*bert 
* Enable 'Light & Speak' for Led-Wiz mod/ MaLa hardware users (like the led-wiz plug-in does)    Eg Say Buttons use and light it at the same time 
* Option to pause/resume music
* Shortcut button to speech on windows control panel
* Ability to test set-up before running MaLa

[squirrellydw]

any benefit of using this if I use the ledwiz plugin?

[loadman]

any benefit of using this if I use the ledwiz plugin?

Nah..  Its for the rest of us  :-)
(eg Cabs with No Led Controller or Mala Hardware/Led-Wiz Mod)

FYI
The Led-wiz plug-in will eventually have the option to also have speech on Start-up and Shutdown I think

[loadman]

One thing I would add to your plugin would be a button to open the Speech Properties window from Control Panel. The command line to launch it is:

Code: [Select]

rundll32.exe shell32.dll,Control_RunDLL "C:\Program Files\Common Files\Microsoft Shared\Speech\sapi.cpl",Speech

I am finally updating this plug-in but I am having trouble implimenting this idea without the use of a batch file.

I need a way of launching sapi.cpl from a delphi command.

I can launch other .cpls from delphi using the following but it does not seem to work with sapi

Code: [Select]

procedure Control_RunDLL(
      hwnd: THandle; 
      hInst: THandle;
      CmdLine: PChar;
      CmdShow: integer
      ); stdcall; external 'Shell32.dll';

// Here are some examples:

//call the "Game Controllers" Applet
Control_RunDLL(Application.Handle, 0, PChar('joy.cpl'), SW_SHOW)

//call the "Keyboard Properties" Applet (contained inside the Main.cpl file)
Control_RunDLL(Application.Handle, 0, PChar('Main.cpl,Keyboard'), SW_SHOW)

//call the "Mouse Properties" Applet (contained inside the Main.cpl file)
Control_RunDLL(Application.Handle, 0, PChar('Main.cpl,Mouse'), SW_SHOW)

//call the Screen Saver tab of the "Display Properties" Applet
Control_RunDLL(Application.Handle, 0, PChar('Desk.cpl,,1'), SW_SHOW)
So I thought I would just use a command line but that does not work for sapi either

Code: [Select]

ShellExecute(Handle, 'open', 'C:\Program Files\Common Files\Microsoft Shared\Speech\sapi.cpl',nil,nil,SW_SHOWNORMAL) ;
So I have it working by Shell executing a batch file...But's it's ugly have the dos box pop up
Delphi Command:

Code: [Select]

ShellExecute(Handle, 'open', 'C:\sapi.bat) ;Batch File:

Code: [Select]

cd C:\Program Files\Common Files\Microsoft Shared\Speech\
sapi.cpl
Anyone fould a better way to lauche sapi.cpl from Delphi? 

 

[SGT]

You can load other CPL files by using Windows' control.exe.  For example:
Start>Run>control main.cpl


So how about:

Code: [Select]

ShellExecute(Handle, 'open', 'control C:\Program Files\Common Files\Microsoft Shared\Speech\sapi.cpl',nil,nil,SW_SHOWNORMAL) ;
Edit:
Nope, control.exe doesn't like that path apparently as the string has spaces being parsed as parameters.

Start>Run>control "C:\Program Files\Common Files\Microsoft Shared\Speech\sapi.cpl"
Works

And
Start>Run>control C:\Progra~1\Common~1\Micros~1\Speech\sapi.cpl
Works

So what about:

Code: [Select]

ShellExecute(Handle, 'open', 'control C:\Progra~1\Common~1\Micros~1\Speech\sapi.cpl',nil,nil,SW_SHOWNORMAL) ;

[loadman]

So what about:

Code: [Select]

ShellExecute(Handle, 'open', 'control C:\Progra~1\Common~1\Micros~1\Speech\sapi.cpl',nil,nil,SW_SHOWNORMAL) ;

Thanks for trying. That should work but it doesn't

Nope ... Nuthin   

[SGT]

Seems like I'm batting -1000 lately.  Here's my last attempt.  According to this link:

http://delphi.about.com/od/windowsshellapi/a/executeprogram.htm

this works:

Code: [Select]

ShellExecute(Handle,'open', 'c:\windows\notepad.exe','c:\SomeText.txt', nil, SW_SHOWNORMAL) ;
therefore this should work:

Code: [Select]

ShellExecute(Handle,'open', 'c:\windows\system32\control.exe','c:\progra~1\common~1\micros~1\speech\sapi.cpl', nil, SW_SHOWNORMAL) ;
or this:

Code: [Select]

ShellExecute(Handle,'open', 'c:\windows\system32\control.exe','c:\Program Files\Common Files\Microsoft Shared\speech\sapi.cpl', nil, SW_SHOWNORMAL) ;

[loadman]

This one works!!!   

therefore this should work:

Code: [Select]

ShellExecute(Handle,'open', 'c:\windows\system32\control.exe','c:\progra~1\common~1\micros~1\speech\sapi.cpl', nil, SW_SHOWNORMAL) ;

The other version didn't, but who cares. 

It's weird how you have to treat this .cpl differently 

Thanks SGT.  I owe you one   



Here is screenshot of config maker (in progress)

[SGT]

The other version didn't, but who cares.

Looks like Delphi would give you a way to add embedded quotes so that the string submitted to control.exe is enclosed in quotes.
Maybe this was what was needed (not that it matters now):

Code: [Select]

ShellExecute(Handle,'open', 'c:\windows\system32\control.exe','"c:\Program Files\Common Files\Microsoft Shared\speech\sapi.cpl"', nil, SW_SHOWNORMAL) ;

It's weird how you have to treat this .cpl differently

 
I guess its just because this cpl is not in a folder that is part of the current PATH?

Thanks SGT.  I owe you one   

No you don't.  I use the speech plug-in.
 

Here is screenshot of config maker (in progress)

Looking good!  Great job!
 

[headkaze]

I would say it was the double quotes too. That's why the DOS 6.3 way worked I guess. Glad you got it sorted

[lettuce]

So when can we test this out 

[ARTIFACT]

I'll have to try that!!

[loadman]

So when can we test this out 

If the wife gives me some more code time 

In a couple of weeks

[youki]

If the wife gives me some more code time 

 
Do we have the same wife 

 

[loadman]

If the wife gives me some more code time 

 
Do we have the same wife 

 

That would explain why we never have any 'special cuddles' anymore. You must be wearing her out 

[headkaze]

If the wife gives me some more code time 

 
Do we have the same wife 

 

That would explain why we never have any 'special cuddles' anymore. You must be wearing her out 

Comon guys don't get creepy on me! 

[loadman]

So when can we test this out 

If the wife gives me some more code time 
In a couple of weeks

Beta version will be posted this weekend.      Soon (but looking good  )

[SGT]

You found some free time? Your wife must be out of town.   Where's Youki?

[loadman]

You found some free time? Your wife must be out of town.   Where's Youki?

She's having a 'Girls night out' so while the Kids sleep I will work on PC and have a beer 

[youki]

You found some free time? Your wife must be out of town.   Where's Youki?

That's the problem. Honnestly, i prefer when she is with loadman... i have more time to work on Atomic!   

But the good thing, is that she said me that she find Atomic more sexy!  ... She loves my "bling bling"! 

[loadman]

You found some free time? Your wife must be out of town.   Where's Youki?

That's the problem. Honnestly, i prefer when she is with loadman... i have more time to work on Atomic!   

But the good thing, is that she said me that she find Atomic more sexy!  ... She loves my "bling bling"! 

Yeah...  I guess you are saying Atomic is for Girls   

[SGT]

Yeah...  I guess you are saying Atomic is for Girls   

Oooh.......burn.   

[youki]

  good one!


In fact, Atomic helps you to catch girls!   

Be sexy, Be Atomic!        

[loadman]

good one!


In fact, Atomic helps you to catch girls!   

Be sexy, Be Atomic!        

Beta version release on this thread:

http://forum.arcadecontrols.com/index.php?topic=71503.0