Affichage d'une gif animée avec le son.

Nombre de messages : 1555 Date d'inscription : 19/01/2014

Bonjour.

Je rencontre un problème lors de l'affichage d'une gif animée avec le son.
En fait, la gif ne s'affiche pas du tout lorsque j'ajoute une commande 'terminate' !!
Je voudrais juste que le programme se termine, avec la disparition de la fenêtre, sans que l'utilisateur n'ait à cliquer.

Merci de votre aide.

Code:: DIM a$,b$,f$,res%,x%,y%

dll_on "kgf.dll"
b$=string$(1000," ")

' Mode synchrone.
' Lecture complète avant de retourner.
res%=dll_call1("SpeakMode",0)

res%=dll_call1("SpeakVoices",adr(b$))

f$ = dir_current$+"\gifs_animes\prof3.gif"

x% = 0: y% = 0
Gifanime(f$,x%,y%)

a$="Bonjour Pierre."
res% = dll_call4("Speak",adr(a$),50,0,0)

dll_off

' L'affichage de la gif ne se fait pas.
' terminate

END

SUB Gifanime(f$,x%,y%)
   ' Affichage en x%,y% du gif animé f$
   DIM_LOCAL fh$,v%(4),hv%,w%,h%
   fh$ = "temporaire.htm"
   FILEBIN_OPEN_READ 9,f$
   FILEBIN_POSITION 9,6: FILEBIN_BLOCK_READ 9,4,v%(0)

   ' dimensions du gif
   w% = v%(0) + 256*v%(1): h% = v%(2) + 256*v%(3)
   width 0,w%+35
   height 0,h%+55

   FILEBIN_CLOSE 9
   FILE_OPEN_WRITE 9,fh$
   FILE_WRITELN 9,"<HTML>"
   file_writeln 9,"<body bgcolor='#ffffa4'>"
   FILE_WRITELN 9,"<IMG SRC="+f$
   file_writeln 9,"</body>"
   FILE_WRITELN 9,"</HTML>"
   FILE_CLOSE 9

   hv% = 900: WHILE OBJECT_EXISTS(hv%)=1: hv% = hv%+1: END_WHILE
   HVIEWER hv%: TOP hv%,y%: LEFT hv%,x%: WIDTH hv%,w%+20: HEIGHT hv%,h%+20

   FILE_LOAD hv%,fh$
   FILE_DELETE fh$
END_SUB

Bonjour Pedro !

Essaie ceci :

Code:: DIM a$,f$,x%,y%

f$ = dir_current$+"\gifs_animes\prof3.gif"

x% = 0: y% = 0
Gifanime(f$,x%,y%)

a$ = "Bonjour Pierre. As-tu passé de bonnes fêtes de fin d'année ?"

Message_Vocal(a$)

terminate

end

' ------------------------------------------------------------------------------
sub Message_Vocal(texte$)
   dim_local scriptVBS$
   scriptVBS$ = "script.vbs"
   file_open_write 1, scriptVBS$
   file_writeln 1, "DIM speaks, speech"
   file_writeln 1, "speaks = " + chr$(34) + texte$ + chr$(34)
   file_writeln 1, "Set speech = CreateObject(" + chr$(34) + "sapi.spvoice" + chr$(34) + ")"
   file_writeln 1, "speech.Speak speaks"
   file_close 1
   execute_wait scriptVBS$
   file_delete scriptVBS$
end_sub
' ------------------------------------------------------------------------------

SUB Gifanime(f$,x%,y%)
   ' Affichage en x%,y% du gif animé f$
   DIM_LOCAL fh$,v%(4),hv%,w%,h%
   fh$ = "temporaire.htm"
   FILEBIN_OPEN_READ 9,f$
   FILEBIN_POSITION 9,6: FILEBIN_BLOCK_READ 9,4,v%(0)

   ' dimensions du gif
   w% = v%(0) + 256*v%(1): h% = v%(2) + 256*v%(3)
   width 0,w%+35
   height 0,h%+55

   FILEBIN_CLOSE 9
   FILE_OPEN_WRITE 9,fh$
   FILE_WRITELN 9,"<HTML>"
   file_writeln 9,"<body bgcolor='#ffffa4'>"
   FILE_WRITELN 9,"<IMG SRC="+f$
   file_writeln 9,"</body>"
   FILE_WRITELN 9,"</HTML>"
   FILE_CLOSE 9

   hv% = 900: WHILE OBJECT_EXISTS(hv%)=1: hv% = hv%+1: END_WHILE
   HVIEWER hv%: TOP hv%,y%: LEFT hv%,x%: WIDTH hv%,w%+20: HEIGHT hv%,h%+20

   FILE_LOAD hv%,fh$
   FILE_DELETE fh$
END_SUB

C'est un script VBS, partagé par notre ami Papydall, pour utiliser la synthèse vocale de Windows.

Nombre de messages : 1555 Date d'inscription : 19/01/2014

Bonjour.

Alors là, c'est le top du top !!
Un grand merci Marc, le script fonctionne parfaitement, et la gif animée disparaît bien après la lecture du texte.

Cependant, le compilateur ne reconnaît pas FILEBIN_BLOCK_READ !!
Je vais donc devoir adapter le code afin d'indiquer en clair les dimensions de la gif.

Mais c'est quand même génial !!

Pedro a écrit:: Cependant, le compilateur ne reconnaît pas FILEBIN_BLOCK_READ !!

Remplace :

Code:: FILEBIN_BLOCK_READ 9,4,v%(0)

Par ceci :

Code:: v%(0) = FILEBIN_READ(9)
v%(1) = FILEBIN_READ(9)
v%(2) = FILEBIN_READ(9)
v%(3) = FILEBIN_READ(9)

Nombre de messages : 1555 Date d'inscription : 19/01/2014

OK merci Marc.

» probleme d'affichage avec l'objet picture
» Problème d'affichage 3D.
» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
» problème avec edit ou bien avec combo?
» amélioration de l'affichage