Wrapper autour de KGF.dll par procédures

' récepteur.bas
label reception : ' on va ici sur réception d'un message dans la BAL
dim ID% : ID% = 0 - 1789 : ' c'est l'adresse de la BAL
dim message_recu$
EDIT 100 : ' c'est la BAL (le numéro d'objet n'a aucune importance
TOP 100,ID% : left 100,ID% : ' par contre, ceci est essentiel !
on_change 100,reception
...
reception:
message_recu$ = text$(100)
' traiter le message ici
return

dim ID% : ID% = 0 - 1789 : ' c'est l'adresse de la BAL
dim dest$ : dest$ = "Caption de la form 0 du destinataire"
...
' au début, il faut repérer la BAL du destinataire:
IPCGetHandle(dest$,ID%) : ' récupérer le handle de la BAL
...
' pour envoyer un message:
' la fonction IPGGetHandle a défini la variable IPCGetHandle% !
IPCSendMessage("Mon message",IPCGetHandle%)
' et c'est tout!
...

rem lanceur pour pagiciel
caption 0,"EXÉCUTION DU PROGRAMME" :height 0,50
' il faut un edit placé en -1234 de réception
dim message_recu$ 
label reception
' il me semble pas qu'il soit nécessaire de lancer la dll, mais je le fais.
 KGF_initialize("c:\PANO\DLL\DLLs\KGF.dll")
EDIT 1:LEFT 1,-1234:TOP 1,-1234
   ON_CHANGE 1,reception       
end
' insert kgf'
#include |3| 
' =============================================================================='
reception:   
message "le text a changé"
   message_recu$ = text$(1)
   ' traitement:
   message message_recu$
   terminate
return

rem le programme de réception est déjà lancé manuellement avant
dim dll$ :left 0,500:height 0,50
dll$ = "c:\PANO\DLL\DLLs\KGF.dll"
KGF_initialize(dll$)
envoi("ceci est un essai")

END
sub envoi(mess$)
   dim_local i% , dest$
   i% = 0 - 1234
   dest$ = "EXÉCUTION DU PROGRAMME" :' caption du programme visé.
   IPCGetHandle(dest$,i%) : message ipcgethandle%
   wait 500 
   IPCSendMessage(mess$,IPCGetHandle%) 
end_sub
' charger KGF.dll
#include |3|   

rem lanceur pour pagiciel
caption 0,"EXÉCUTION DU PROGRAMME" :height 0,50
' il faut un edit placé en -1234 de réception
dim message_recu$
label reception
EDIT 1:LEFT 1,-1234:TOP 1,-1234
  ON_CHANGE 1,reception
end
' =============================================================================='
reception:
message "le text a changé"
  message_recu$ = text$(1)
  ' traitement:
  message message_recu$
  terminate
return

KGF_initialize("KGF.dll")

dim i%
memo 10 : top 10,10 : left 10,10 : width 10,500
combo 11 : top 11,10 : left 11,220 : width 10,200

SpeakVoices()  : ' cette fonction crée automatiquement la variable SpeakVoices$
item_add 10,SpeakVoices$  : ' la combo contient la liste des voix
for i%=1 to count(10)
  item_add 11,item_read$(10,i%)
next i%

end

#INCLUDE "KGF_SUB.bas"

KGF_initialize("KGF.dll")

dim i%

SelecteurDeVoix(11,12,10,20,200)

end

sub SelecteurDeVoix(n_combo%,n_temp%,haut%,gauche%,large%)
  combo n_combo% : top n_combo%,haut% : left n_combo%,gauche% : width n_combo%,large%
  memo n_temp% : width n_temp%,500 : hide n_temp%
  SpeakVoices()  : ' cette fonction crée automatiquement la variable SpeakVoices$
  item_add n_temp%,SpeakVoices$  : ' le memo contient la liste des voix
  for i%=1 to count(n_temp%)
    item_add n_combo%,item_read$(n_temp%,i%)
  next i%
  delete n_temp%
end_sub

#INCLUDE "KGF_SUB.bas"

' Demo_SelecteurDeVoix.bas

label prononcer

KGF_initialize("KGF.dll")

dim i%

alpha 10 : top 10,10 : left 10,10 : caption 10,"Voix installées:"
' *************** création su sélecteur **************************
SelecteurDeVoix(11,12,10,100,200)
' ****************************************************************
alpha 20 : top 20,40 : left 20,10 : caption 20,"Volume:"
scroll_bar 21 : top 21,40 : left 21,100 : width 21,200
  min 21,0 : max 21,100 : position 21,50
alpha 30 : top 30,70 : left 30,10 : caption 30,"Vitesse:"
scroll_bar 31 : top 31,70 : left 31,100 : width 31,200
  min 31,0 : max 31,20 : position 31,10
alpha 40 : top 40,100 : left 40,10 : caption 40,"Texte:"
memo 41 : top 41,100 : left 41,100 : width 41,400
button 50 : top 50,200 : left 50,100 : caption 50,"Prononcer"
  on_click 50,prononcer

end

prononcer:
  if item_index(11)=0
    message "Il faut sélectionner une langue"
    return
  end_if
' *************** prononcer le texte *****************************
  Speak(text$(41),position(21),position(31)-10,item_index(11))
' ****************************************************************
  return

sub SelecteurDeVoix(n_combo%,n_temp%,haut%,gauche%,large%)
  combo n_combo% : top n_combo%,haut% : left n_combo%,gauche% : width n_combo%,large%
  memo n_temp% : width n_temp%,500 : hide n_temp%
' *************** charger la liste des voix installées ***********
  SpeakVoices()  : ' cette fonction crée automatiquement la variable SpeakVoices$
' ****************************************************************
  item_add n_temp%,SpeakVoices$  : ' le memi contient la liste des voix
  for i%=1 to count(n_temp%)
    item_add n_combo%,item_read$(n_temp%,i%)
  next i%
  delete n_temp%
end_sub

#INCLUDE "KGF_SUB.bas"

  message ipcgethandle%

combo 1 : width 1,200
dim s$ : s$ = "123456789."
dim i%
for i%=1 to 10
  s$ = s$ + s$
next i%
message str$(len(s$))
item_add 1,s$
end

SelecteurDeVoix(11,12,10,100,500)

sub SpeakVoices()
  if variable("SpeakVoices$")=0 then dim SpeakVoices$
  SpeakVoices$ = string$(2000," ")
  KGF_res% = DLL_call1("SpeakVoices",adr(SpeakVoices$))
  SpeakVoices$ = trim$(SpeakVoices$)
end_sub

sub SelecteurDeVoix(n_combo%,n_temp%,haut%,gauche%,large%)
  dim_local S$ : ' Modif YG
  combo n_combo% : top n_combo%,haut% : left n_combo%,gauche% : width n_combo%,large%
  memo n_temp%
' *************** charger la liste des voix installées ***********
  SpeakVoices()  : ' cette fonction crée automatiquement la variable SpeakVoices$
' ****************************************************************
  item_add n_temp%,SpeakVoices$  : ' le memi contient la liste des voix
  for i%=1 to count(n_temp%)
    S$=item_read$(n_temp%,i%) : ' Modif YG
    if len(S$)>20 then S$=left$(S$,20): ' Modif YG
    item_add n_combo%,S$
  next i%
  delete n_temp%
end_sub