音声合成 アセンブラでの 抜粋 その１

アセンブラで　音声合成　私の言語　での　サンプル抜粋

DS.L VPTR

DS.L VPTABL

DS.L RELEADSE /* Release */

DS.L SETVOICE /*    ( (This)->lpVtbl -> SetVoice(This,pToken) ) */

DS.L GETVOICE

DS.L SPEEK   /* 80 ( (This)->lpVtbl -> Speak(This,pwcs,dwFlags,pulStreamNumber) ) */

DS.L SETRATE /* 112 ( (This)->lpVtbl -> SetRate(This,RateAdjust) )  */

DS.L SETVOLM /* 120 ( (This)->lpVtbl -> SetVolume(This,usVolume) ) */

DS.L OBVPTR

DS.L OBVPTABL

DS.L OBGETID

DS.L OBSETID

DS.L OBRELEADSE DC.L CLSIDSpVoice 0D941651CH

DC.W CLSID1 44E6H

DC.W CLSID2 4C17H

DC.B CLSID3 0BAH,0DFH,0C3H,68H,26H,0FCH,34H,24H

DC.L IIDISpVoice 6C44DF74H

DC.W IID1 72B9H

DC.W IID2 4992H

DC.B IID3 0A1H,0ECH,0EFH,99H,6EH,04H,22H,0D4H

/*

EXTERN_C const IID IID_ISpVoice;

    MIDL_INTERFACE("6C44DF74-72B9-4992-A1EC-EF996E0422D4")

    Hello

*/

/* 言語変更するです */

DC.L CISSTOK 14056589H

DC.W CISSTOK1 0E16CH

DC.W CISSTOK2 11D2H

DC.B CISSTOK3 0BBH,90H,00,0C0H,4FH,8EH,0E6H,0C0H

/* Release */

/*

class DECLSPEC_UUID(EF411752-3736-4CB4-9C8C-8EF4CCB58EFE)

SpObjectToken;

  MIDL_INTERFACE(14056589-E16C-11D2-BB90-00C04F8EE6C0)

    ISpObjectToken : public ISpDataKey

*/

/* ------------------------------------------- */

DC.L CSPOBJTK 4424CB70H

DC.W CSPOBJTK1 2A7CH

DC.W CSPOBJTK2 43E2H

DC.B CSPOBJTK3 83H,3DH,0CBH,0FDH,82H,0DAH,10H,4FH

/*

EXTERN_C const CLSID CLSID_SpObjectToken;

#ifdef __cplusplus

class DECLSPEC_UUID("4424cb70-2a7c-43e2-833d-cbfd82da104f")

SpObjectToken;

*/

 

/A INVOKE CoInitialize,0

/*

HRESULT hr = CoCreateInstance(CLSID_SpVoice, NULL, CLSCTX_ALL, IID_ISpVoice, (void **)&pVoice);

CLSCTX_ALL              equ CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER or CLSCTX_LOCAL_SERVER

CLSCTX_INPROC_SERVER equ 1

CLSCTX_INPROC_HANDLER equ 2

CLSCTX_LOCAL_SERVER equ 4

*/

SET CLSIDSpVoice TO *PC1

SET IIDISpVoice  TO *PC2

/A MOV EAX,[EBP+8] ;PC1

/A MOV EBX,[EBP+12] ;PC2

/A MOV ECX,EBP

/A ADD ECX,16 ; *PC3 PR2 64

/A INVOKE  CoCreateInstance,EAX,0,7,EBX,ECX

/A ;MOV EAX,1

/A MOV [EBP+20],EAX

TRSWT(10H,'SP=',0)

TRSWT(1,*PC3,4)

IF WKL = 0

THEN TRSWT(0,' Ok ',0)

SET *PC3 INDEX *PI SET *PC3 TO VPTR

SET *PI TO WKL MOVE WKL TO VPTABL

/A MOV EBX,[VPTABL]

/A ADD EBX,8 ;REEISH

/A MOV EAX,[EBX]

/A MOV RELEADSE,EAX ; Release 

/A MOV EBX,[VPTABL]

/A ADD EBX,72 ; ;hr = pVoice->

/A MOV EAX,[EBX]

/A MOV SETVOICE,EAX

/A MOV EBX,[VPTABL]

/A ADD EBX,76 ; ;hr = pVoice->

/A MOV EAX,[EBX]

/A MOV GETVOICE,EAX

/A MOV EBX,[VPTABL]

/A ADD EBX,80 ; ;hr = pVoice->

/A MOV EAX,[EBX]

/A MOV SPEEK,EAX

/A MOV EBX,[VPTABL]

/A ADD EBX,112 ; ;hr = pVoice->

/A MOV EAX,[EBX]

/A MOV SETRATE,EAX ; 112 ( (This)->lpVtbl -> SetRate(This,RateAdjust) -10 . 10)  

/A MOV EBX,[VPTABL]

/A ADD EBX,120 ; ;hr = pVoice->

/A MOV EAX,[EBX]

/A MOV SETVOLM,EAX ; 120 ( (This)->lpVtbl -> SetVolume(This,usVolume) 0~100%) 

/A MOV EBX,3

/A PUSH EBX

/A MOV EAX,[VPTR] ;*PR2

/A PUSH EAX

/A MOV EAX,SETRATE ;話すスピード設定 -10~10

/A CALL EAX ;IID_ISpVoice

/A MOV EBX,100

/A PUSH EBX

/A MOV EAX,[VPTR] ;*PR2

/A PUSH EAX

/A MOV EAX,SETVOLM ;ボリューム設定 0~100 %

/A CALL EAX ;IID_ISpVoice

ELSE TRSWT(0,' Err ',0)

TRSWT(1,WKL,4)

CLR RELEADSE

END-IF

/* 日本語に設定する */

SET CSPOBJTK TO *PC1

SET CISSTOK  TO *PC2

/A MOV EDX,[EBP+8] ;P

/A MOV EBX,[EBP+12] ;P1

/A MOV ECX,EBP

/A ADD ECX,16 ; *P2

/A INVOKE  CoCreateInstance,EDX,0,7,EBX,ECX

/A MOV [EBP+20],EAX

TRSWT(10H,'OB=',0)

TRSWT(1,*PC3,4)

IF WKL = 0

THEN

TRSWT(0,' Ok ',0)

ELSE TRSWT(0,' Err ',0)

TRSWT(1,WKL,4)

CLR OBRELEADSE

END-IF

SET *PC3 INDEX *PI SET *PC3 TO OBVPTR

SET *PI TO WKL MOVE WKL TO OBVPTABL

/A MOV EBX,[OBVPTABL]

/A ADD EBX,8 ;REEISH

/A MOV EAX,[EBX]

/A MOV OBRELEADSE,EAX ; Release 

/A MOV EBX,[OBVPTABL]

/A ADD EBX,64 ; ;hr = ( (This)->lpVtbl -> GetId(This,ppszCoMemTokenId) ) 

/A MOV EAX,[EBX]

/A MOV OBGETID,EAX

/A MOV EBX,[OBVPTABL]

/A ADD EBX,60 ; ;hr =  ( (This)->lpVtbl -> SetId(This,pszCategoryId,pszTokenId,fCreateIfNotExist) ) 

/A MOV EAX,[EBX]

/A MOV OBSETID,EAX

/* TRSWT(10H,' TCHK5=',0) TRSWT(5,CSPMMADEN,64) */

WHEN 1 /* SPEEK */

/A MOV EBX,0

/A PUSH EBX

/A PUSH EBX

/A MOV EBX,[EBP]

/A PUSH EBX

/A MOV EAX,[VPTR] ;*PR2

/A PUSH EAX

/A MOV EAX,SPEEK

/A CALL EAX ;IID_ISpVoice ;,0,0;,0,0 ;ISpVoice_Release

WHEN 2 /* CLOSE */

IF RELEADSE = 0

THEN

ELSE

/A MOV EAX,[VPTR] ;

/A PUSH EAX

/A MOV EAX,RELEADSE

/A CALL EAX ;IID_ISpVoice ;,0,0;,0,0 ;ISpVoice_Release

END-IF

IF OBRELEADSE = 0

THEN

ELSE

/A MOV EAX,[OBVPTR] ;

/A PUSH EAX

/A MOV EAX,OBRELEADSE

/A CALL EAX ;IID_ISpVoice ;,0,0;,0,0 ;ISpVoice_Release

END-IF

/A INVOKE CoUninitialize