KGF_dll - nouvelles versions

  ' test_GenerateMaskList_cosmos70.bas

 dll_on "KGF.dll"

  label start, open, montrer
  dim a$, separ$, mask_separ$, mask_text$, mask_quote$, mask_out$
  dim res%, g$ , i% , j , f$ ,h$, lig%, col%, x%, y%

  full_space 0
  list 2 : hide 2
  button 20 : caption 20,"Open" : on_click 20,open
  button 21 : caption 21,"Start" : on_click 21,start : left 21,width(20)+5
  list 5 : left 5,420 : top 5,80 : width 5,500 : height 5,450 : hide 5
  grid 3 : full_space 3 : height 3,height(3)-30 : top 3,30
    grid_row 3,501 : grid_column 3,201 : on_click 3,montrer
    for i%=2 to 501
      grid_write 3,i%,1,str$(i%-1)
    next i%
    for i%=2 to 201
      grid_write 3,1,i%,str$(i%-1)
    next i%
  open_dialog 6
  mask_separ$ = "*" : mask_text$ = "=" : mask_quote$ = "{}"
  separ$ = " ,:<>='/*+-"  :  g$ = chr$(34)
end
' ============================================
open:
  f$ = file_name$(6) : if f$ <> "_" then file_load 5,f$
  return
montrer:
  x% = mouse_x_left_down(3)
  y% = mouse_y_left_down(3)
  col% = grid_x_to_column(3,x%)
  lig% = grid_y_to_row(3,y%)
  if left$(grid_read$(3,lig%,col%),1)=chr$(34)
    message chr$(34)+grid_read$(3,lig%,col%)+chr$(34)
  else
    message grid_read$(3,lig%,col%)
  end_if
  return
start:
  if count(5) > 0
      for j = 1 to count(5)
        if j>500 then exit_for
        a$ = item_read$(5,j)
        if a$ <> ""
            caption 0,a$ +"<<== len(a$)=" + str$(len(a$)) + " j="+str$(j) +" / "+str$(count(5))
            mask_out$ = string$(len(a$)+1," ")
            res% = dll_call6("GenerateMask",adr(a$),adr(separ$),adr(mask_separ$),adr(mask_text$),adr(mask_quote$),adr(mask_out$))
            res% = dll_call6("GenerateMaskFragments",adr(a$),adr(separ$),adr(mask_separ$),adr(mask_text$),adr(mask_quote$),handle(2))
            for i% = 1 to count(2)
              if count(2) > 0
                  if left$(item_read$(2,i%),1)=chr$(34)
                    grid_write 3,j+1,i%+1,chr$(34)+item_read$(2,i%)+chr$(34)
                  else
                    grid_write 3,j+1,i%+1,item_read$(2,i%)
                  end_if
              end_if
            next i%
        end_if
      next j
  end_if
return

dim res%, voix$
' récupérer la liste des voix installées
res% = dll_call1("SpeakVoices",adr(voix$))
message voix$

dim res%, voix$
' récupérer la liste des voix installées
voix$ = string$(255," ")
dll_on "kgf.dll"
res% = dll_call1("SpeakVoices",adr(voix$))
message voix$

res% = dll_call4("Speak",0,0,0,0) : ' Stop
res% = dll_call4("Speak",1,0,0,0) : ' Pause
res% = dll_call4("Speak",2,0,0,0) : ' Resume
res% = dll_call4("Speak",adr(txt$),volume%,vitesse%,langue%) : ' prononcer un texte

label speak,stop_speak,pause_speak,resume
dim res%,txt$
button 10 : top 10,010 : caption 10,"speak" : on_click 10, speak
button 20 : top 20,060 : caption 20,"stop"  : on_click 20, stop_speak
button 30 : top 30,110 : caption 30,"pause" : on_click 30, pause_speak
button 40 : top 40,160 : caption 40,"resume": on_click 40, resume

dll_on "kgf"
res% = dll_call1("SpeakMode",1) : ' mode asynchrone

txt$ = "En mode synchrone, le programme effectue la lecture complète du texte soumis avant de retourner." +chr$(13)
txt$ = txt$ + "En mode asynchrone, la demande de lecture est soumise au système de parole synthétique et on" +chr$(13)
txt$ = txt$ + "Effectue un retour immédiat dans le programme appelant, alors que la parole continue à se dérouler."

end
rem ============================================================================
speak:
   res% = dll_call4("Speak",adr(txt$),50,0-2,0) : ' prononcer un texte
return
rem ============================================================================
stop_speak:
    res% = dll_call4("Speak",0,0,0,0) : ' Stop
return
rem ============================================================================
pause_speak:
   res% = dll_call4("Speak",1,0,0,0) : ' Pause
return
rem ============================================================================
resume:
 res% = dll_call4("Speak",2,0,0,0) : ' Resume
return
rem ============================================================================

    dim WB%, res%, url$
    url$ = "C:\MESDOC\HTM\DOCHTM.htm": ' par exemple...
    width 0,1620: height 0,1150
    memo 1 : full_space 1 : bar_both 1
    DLL_ON "C:\PANORAMIC\KLAUS\DLLs\KGF.dll"
    WB%=dll_call1("WBCreate",handle(0))
    res%=dll_call5("WB_Locate",WB%,0,0,1600,900) : ' <===== à adapter, évidemment...
    res%=dll_call2("WB_Url",WB%,adr(url$))
    pause 2000
    res% = dll_call2("WB_CopyToMemo",WB%,handle(1))
    pause 1000