DSP Robotics Support

Code: Select all

require "Win32API"
# CLSID_SpVoice as per http://grokbase.com/t/python/python-list/092cy5hgm7/tts-in-windows
CLSID_SpVoice="96749377-3391-11D2-9EE3-00C04F797396"
# CLSCTSX_ALL as per http://msdn.microsoft.com/en-us/library/windows/desktop/ms686615%28v=vs.85%29.aspx
CLSCTX_ALL=23 #(0x17)
#IID_ISpVoice as per (where the hell its that "DEFINED")
#http://www.masmforum.com/board/index.php?topic=17911.0
#IID_ISpVoice  GUID <06C44DF74h, 072B9h, 04992h, <0A1h, 0ECh, 0EFh, 099h, 06Eh, 004h, 022h, 0D4h>>
IID_ISpVoice="6C44DF74-72B9-4992-A1EC-EF996E0422D4"

def doit 

   #api = Win32API.new('user32','MessageBox',['L', 'P', 'P', 'L'],'I')  
   #api.call 0,"Hello Win!!","Alert",0
   begin
      # Initialize COM
      api=Win32API.new("ole32", "CoInitialize", ['P'] , 'I')
      api.call(0)
      
      # Create Voice Interface Object
      pVoice= '\0'*8
      # CoCreateInstance ( CLSID_SpVoice, NULL, CLSCTX_ALL, IID_ISpVoice, (void**)&Voice );
      api=Win32API.new("ole32", "CoCreateInstance", ["P","P","I","P","PP"],"P")
      hOLE=api.call(CLSID_SpVoice, nil, CLSCTX_ALL, IID_ISpVoice, pVoice )
      watch "OLE" ,hOLE
      watch "pvoice", pVoice
=begin
      # TODO
       # Speak!
       # Voice -> Speak ( L"Hello World!!!", SPF_DEFAULT, NULL );
       # Not sure about it
       api= Win32API.new("sapi","Speak",["P","P","P"],"V")
       @aLines.each { |x| 
         api.call(x,0,nil)
      }      

       #TODO
       # Shutdown the voice
       # Voice -> Release(); Voice = NULL if pVoice != nil 
=end 
       # Shutdown COM
       # CoUninitialize ();      
       api=Win32API.new("ole32", "CoUninitialize", ['P'] , 'I')
       api.call(0)
   rescue Exception => e
      watch e.message
      watch "Exception", e.backtrace.inspect 
   end
end