www.FiveTechSoft.com
https://forums.fivetechsupport.com/
i use FWH 23.07 and harbour 3.2.0 Dev (r1801051438)Error: Unresolved external '_hb_iswinsp' referenced from C:\HARBOUR\LIB\WIN\BCC\HBWIN.LIB|win_osc
Error: Unresolved external '_HB_FUN_HB_OSISWIN7' referenced from C:\HARBOUR\LIB\WIN\BCC\HBWIN.LIB|win_os
Code: Select all | Expand
lOleError = HB_VTBL( pDisp )->Invoke( HB_THIS_(pDisp) dispid, HB_ID_REF(IID_NULL),
LOCALE_USER_DEFAULT,
( V_VT( dispparam.rgvarg ) == VT_DISPATCH ) ? DISPATCH_PROPERTYPUTREF : DISPATCH_PROPERTYPUT,
&dispparam, NULL, &excep, &uiArgErr );Code: Select all | Expand
function main()
local oVoice := CreateObject( "Sapi.SPVoice", "WithEvents" )
// oVoice:WithEvents = .T.
oVoice:EventInterests = 327679
oVoice:__hSink := __axRegisterHandler( oVoice:__hObj, { | ... | QOut( ... ) } )
// oVoice:voice = oVoice:GetVoices():Item( 0 )
oVoice:Speak( "harbour and xharbour" )
oVoice:Speak( "another" )
return nilHola Antonio Linares con su permiso voy a responder en español , no recordaba estar registrado en su sitio y lo abré hecho para leer el foro.Antonio Linares wrote:Dear Jimmy,
I have reviewed the topic at https://hmgforum.com/viewtopic.php?t=7505 I have requested to join the forums so maybe we can solve it together.
I have been trying to use the events and it seems as something is missing:Code: Select all | Expand
function main() local oVoice := CreateObject( "Sapi.SPVoice", "WithEvents" ) // oVoice:WithEvents = .T. oVoice:EventInterests = 327679 oVoice:__hSink := __axRegisterHandler( oVoice:__hObj, { | ... | QOut( ... ) } ) // oVoice:voice = oVoice:GetVoices():Item( 0 ) oVoice:Speak( "harbour and xharbour" ) oVoice:Speak( "another" ) return nil
Code: Select all | Expand
HB_FUNC( WIN_OLEAUTO___ONERROR )
{
IDispatch * pDisp;
const char * szMethod;
wchar_t szMethodWide[ HB_SYMBOL_NAME_LEN + 1 ];
OLECHAR * pMemberArray;
DISPID dispid;
DISPPARAMS dispparam;
VARIANTARG variant;
EXCEPINFO excep;
UINT uiArgErr;
HRESULT lOleError;
HB_USHORT uiClass;
int iPCount;
hb_oleInit();
uiClass = hb_objGetClass( hb_stackSelfItem() );
if( uiClass == 0 )
return;
/* Get object handle */
hb_vmPushDynSym( s_pDyns_hObjAccess );
hb_vmPush( hb_stackSelfItem() );
hb_vmSend( 0 );
pDisp = hb_oleParam( -1 );
if( ! pDisp )
return;
iPCount = hb_pcount();
szMethod = hb_itemGetSymbol( hb_stackBaseItem() )->szName;
AnsiToWideBuffer( szMethod, szMethodWide, ( int ) HB_SIZEOFARRAY( szMethodWide ) );
/* Try property put */
if( szMethod[ 0 ] == '_' && iPCount >= 1 )
{
pMemberArray = &szMethodWide[ 1 ];
lOleError = HB_VTBL( pDisp )->GetIDsOfNames( HB_THIS_( pDisp ) HB_ID_REF( IID_NULL ), &pMemberArray,
1, LOCALE_USER_DEFAULT, &dispid );
if( lOleError == S_OK )
{
DISPID lPropPut = DISPID_PROPERTYPUT;
memset( &excep, 0, sizeof( excep ) );
GetParams( &dispparam, 0, HB_FALSE, 0, NULL, NULL );
dispparam.rgdispidNamedArgs = &lPropPut;
dispparam.cNamedArgs = 1;
lOleError = HB_VTBL(pDisp)->Invoke(HB_THIS_(pDisp) dispid, HB_ID_REF(IID_NULL),
LOCALE_USER_DEFAULT,
(V_VT(dispparam.rgvarg) == VT_DISPATCH) ? DISPATCH_PROPERTYPUTREF : DISPATCH_PROPERTYPUT,
&dispparam, NULL, &excep, &uiArgErr);
FreeParams( &dispparam );Code: Select all | Expand
lOleError = HB_VTBL(pDisp)->Invoke(HB_THIS_(pDisp) dispid, HB_ID_REF(IID_NULL),
LOCALE_USER_DEFAULT,
(V_VT(dispparam.rgvarg) == VT_DISPATCH) ? DISPATCH_PROPERTYPUTREF : DISPATCH_PROPERTYPUT,
&dispparam, NULL, &excep, &uiArgErr);Code: Select all | Expand
function main()
local oVoice := CreateObject( "Sapi.SPVoice", "WithEvents" )
// oVoice:WithEvents = .T.
oVoice:EventInterests = 327679
oVoice:__hSink := __axRegisterHandler( oVoice:__hObj, { | ... | QOut( ... ) } )
// oVoice:voice = oVoice:GetVoices():Item( 0 )
oVoice:Speak( "harbour and xharbour" )
oVoice:Speak( "another" )
return nilHola Antonio Linares :Antonio Linares wrote:Estimado Daniel,
Lo que no hemos conseguido que funcione son los eventos.
A ver si entre todos descubrimos como hacerlo funcionar:Code: Select all | Expand
function main() local oVoice := CreateObject( "Sapi.SPVoice", "WithEvents" )
voy a ver como hacer un ejemplo en Harbour/HMG que es lo que utilizo, ya que nunca utilize FiveWin que es su producto.Eventos de voz
A medida que una voz habla texto, puede generar eventos cuando detecta ciertas condiciones en el flujo de entrada. Estos eventos están contenidos en la enumeración SpeechVoiceEvents. Ejemplos de estos eventos son la finalización de fonemas, palabras u oraciones, así como cambios de voz o la presencia de marcadores. La gama de condiciones que SpeechVoiceEvents puede informar es lo suficientemente amplia como para que la mayoría de las aplicaciones utilicen sólo algunas de ellas. Para evitar que el motor TTS genere eventos que la aplicación ignorará, utilice la propiedad EventInterests para especificar los eventos de interés. Sólo se plantearán estos eventos.
El punto en el flujo de texto de entrada en el que se ha completado un evento potencial se denomina límite de evento. En cada límite de evento, el tipo de evento se compara con los EventInterests actuales. Si el tipo de evento es de interés, se genera un evento de ese tipo. Los eventos de voz devuelven el número de flujo de entrada para asociarlos con el flujo apropiado.
Code: Select all | Expand
function main()
local oVoice := TOleAuto():New( "Sapi.SPVoice" )
// oVoice:WithEvents = .T.
oVoice:EventInterests = 327679
oVoice:__hSink := __axRegisterHandler( oVoice:__hObj, { | ... | QOut( ... ) } )
oVoice:Speak( "harbour and xharbour" )
oVoice:Speak( "another" )
return nilCode: Select all | Expand
test.prg(7) Error E0030 Syntax error "syntax error at '...'"