KGF_dll - nouvelles versions

Sujet: Re: KGF_dll - nouvelles versions Mer 8 Mar 2017 - 0:50

Tu as mal lu la doc de CreateTreeView (CreateTreeViawEx):

Citation :: IL% = identification du contenu de l'objet ImageList
0 = aucun
-1 = bibliothèque des icônes internes
<>0 = chaîne de caractères contenant le nom d'un fichier de sauvegarde d'un objet ImageList (retourné par la fonction CreateImageList)

la partie importante est ici "fichier de sauvegarde d'un objet ImageList". Et non un fichier ILB...

Sujet: re Mer 8 Mar 2017 - 1:10

Que je suis c...!

J' avais zappé que c' était adr(fichier$) et pas numéro... Embarassed

Sujet: Re: KGF_dll - nouvelles versions Mer 8 Mar 2017 - 1:58

adr(fichier$), certes... mais ce fichier doit être un fichier de sauvegarde d'un objet ImageList, non pas celui d'un ILB !

EDIT

Euh... je crois que je me suis trompé. C'est justement le nom du fichier IMN qu'il faut dans fichier$ !

Sujet: re Mer 8 Mar 2017 - 3:59

Si même toi tu te fais des noeuds...,
...on est pas dans la m....
lol!

Le "fichier$" est le fichier de sauvegarde d' un imagelist.
et le paramètre est adr(fichier$) qui certes est un nombre
mais pas le numéro d' objet de l' imagelist...
Suspect

Sujet: Re: KGF_dll - nouvelles versions Mer 8 Mar 2017 - 10:23

Effectivement. C'est le nom du fichier ILB, pas le numéro d'un objet ILB. En fait, si le fichier ILB a déjà été créé, nul besoin de refaire un objet ImageList...

Sujet: Re Ven 10 Mar 2017 - 13:36

Bon, là je vais avoir besoin d' un petit exemple qui fonctionne car je patauge avec Treeview

Voilà ce que je veux arriver à faire :

attribut sur tous les noeuds : gras
couleur de tous les noeuds non clicqués : 8344917
couleur du noeud actif : 255
mais je veux que le noeud reprenne sa couleur d' origine quand il n' est plus actif.

J' ai beau déplacer les fonctions d' un endroit à un autre, je n' arrive pas à mes fins.
Embarassed

Sujet: Re: KGF_dll - nouvelles versions Mar 21 Mar 2017 - 19:54

Nouvelle version:
KGF.dll V7.27 du 21/03/2017

Nouveautés:
- Nouvel objet: VideoCapture
- Nouvelle fonction: GetCaptureDriverNames

Modules modifiés:
KGF.dll
KGF.chm

La doc et les sources sont à jour.

Ceci permet de capturer une source vidéo quelconque (la webcam, par exemple), de visualiser les images et d'enregister une video (format AVI) avec ou sans son, et de prendre des clichés instantanés (format BMP).

Voici le programme de démo (il est aussi in extenso dans la doc):

Code:: ' demo_VideoCapture.bas

' constantes de pilotage de la fonction VideoCapture
dim VideoCapture_Action_Close% : VideoCapture_Action_Close% = 0
dim VideoCapture_Action_Connect% : VideoCapture_Action_Connect% = 1
dim VideoCapture_Action_VideoFile% : VideoCapture_Action_VideoFile% = 2
dim VideoCapture_Action_Capture% : VideoCapture_Action_Capture% = 3
dim VideoCapture_Action_Geometry% : VideoCapture_Action_Geometry% = 4
dim VideoCapture_Action_Preview% : VideoCapture_Action_Preview% = 5
dim VideoCapture_Action_Photo% : VideoCapture_Action_Photo% = 6
dim VideoCapture_Action_Audio% : VideoCapture_Action_Audio% = 7

dim VideoCapture_Audio_Channels_Mono% : VideoCapture_Audio_Channels_Mono% = 0
dim VideoCapture_Audio_Channels_Stereo% : VideoCapture_Audio_Channels_Stereo% = 1
dim VideoCapture_Audio_Frequency_8000Hz% : VideoCapture_Audio_Frequency_8000Hz% = 0
dim VideoCapture_Audio_Frequency_11025Hz% : VideoCapture_Audio_Frequency_11025Hz% = 1
dim VideoCapture_Audio_Frequency_22050Hz% : VideoCapture_Audio_Frequency_22050Hz% = 2
dim VideoCapture_Audio_Frequency_44100Hz% : VideoCapture_Audio_Frequency_44100Hz% = 3
dim VideoCapture_Audio_Resolution_8Bit% : VideoCapture_Audio_Resolution_8Bit% = 0
dim VideoCapture_Audio_Resolution_16Bit% : VideoCapture_Audio_Resolution_16Bit% = 1

dim VideoCapture_Show% : VideoCapture_Show% = 1
dim VideoCapture_Hide% : VideoCapture_Hide% = 0
dim VideoCapture_Start% : VideoCapture_Start% = 1
dim VideoCapture_Stop% : VideoCapture_Stop% = 0

label connecter, fermer, demarrer, arreter, visualiser, photo, audio

dim res%, VC%, index%, preview%, video$, photo$, img%, vid%, audio%, i%

full_space 0
list 1 : left 1,700 : top 1,60 : width 1,400 : height 1,100
memo 2 : hide 2 : bar_both 2
alpha 3 : top 3,40 : left 3,700 : caption 3,"Sources vidéo disponibles:"

button 11 : top 11,10 : left 11,10 : caption 11,"Connecter" : on_click 11,connecter
button 13 : top 13,10 : left 13,100 : caption 13,"Démarrer" : on_click 13,demarrer
button 14 : top 14,10 : left 14,190 : caption 14,"Arrêter" : on_click 14,arreter : inactive 14
button 15 : top 15,10 : left 15,280 : caption 15,"Fermer" : on_click 15,fermer
button 16 : top 16,10 : left 16,370 : caption 16,"Visualiser" : on_click 16,visualiser
button 17 : top 17,10 : left 17,460 : caption 17,"Photo" : on_click 17,photo
button 18 : top 18,10 : left 18,550 : caption 18,"Audio on" : on_click 18,audio

dll_on "KGF.dll"

res% = dll_call1("GetCaptureDriverNames",handle(2))
index% = 0
if count(2)>0
  for i%=1 to count(2)
   item_add 1,item_read$(2,i%)
  next i%
end_if
end

connecter:
  if item_index(1)>0 then index% = item_index(1) - 1
  VC% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Connect%,handle(0),index%,VideoCapture_Hide%,0)
  res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Geometry%,10,40,600,400)
  if (VC%=0) or (res%<0) then message "Connexion: "+str$(VC%)+" Géometrie: "+str$(res%)
  return

fermer:
  VC% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Close%,0,0,0,0)
  if VC%<>0 then message "Fermeture: "+str$(VC%)
  caption 16,"Visualiser"
  preview% = 0
  return

demarrer:
  vid% = vid% + 1
  video$ = "MaVideo_"+right$("000"+str$(vid%),4)+".avi"
  res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Capture%,VideoCapture_Start%,adr(video$),0,0)
  inactive 13
  active 14
  return

arreter:
  res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Capture%,VideoCapture_Stop%,0,0,0)
  inactive 14
  active 13
  return

visualiser:
  select preview%
   case 0
   preview% = 1
   res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Preview%,VideoCapture_Start%,VideoCapture_Show%,0,0)
   caption 16,"Bloquer"
   case 1
   preview% = 0
   res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Preview%,VideoCapture_Stop%,VideoCapture_Hide%,0,0)
   caption 16,"Visualiser"
  end_select
  return

photo:
  img% = img% + 1
  photo$ = "MaPhoto_"+right$("000"+str$(img%),4)+".bmp"
  res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Photo%,adr(photo$),0,0,0)
  return

audio:
  if audio%=0
   res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Audio%,1,VideoCapture_Audio_Channels_Mono%,VideoCapture_Audio_Frequency_8000Hz%,VideoCapture_Audio_Resolution_8Bit%)
   if res%=0
   audio% = 1
   caption 18,"Audio off"
   end_if
  else
   res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Audio%,0,0,0,0)
   if res%=0
   audio% = 0
   caption 18,"Audio on"
   end_if
  end_if
  return

Sujet: re Mar 21 Mar 2017 - 20:03

Wahou ! Ca c' est du lourd !

Sujet: re Mar 21 Mar 2017 - 20:32

oups! il y a un bug ligne 80
not arithmetic...
Embarassed

Sujet: Re: KGF_dll - nouvelles versions Mar 21 Mar 2017 - 20:59

Oui... il y a une virgule en trop, juste avant la parenthèse fermante... désole !

Sujet: Re: KGF_dll - nouvelles versions Mar 21 Mar 2017 - 21:07

Mode d'emploi du programme de démo:
1. lancer le programme
2. cliquer sur "Connecter"
3. cliquer sur "Visualiser" ==> la fenêtre de visualisation apparaît, avec ce que la caméra filme
4. pour ajouter le son lors du prochain enregistrement, cliquer sur "Audio" ==> le libellé change à "Audio off"
Un nouveau clic sur ce bouton coupe l'enregistrement du son, etc.
5. pour enregistrer une séquence vidéo, cliquer sur "Démarrer" ==> le bouton "Arrêter" devient actif
6. pour arrêter l'enregistrement, cliquer sur "Arrêter" ==> le bouton "Démarrer" redevient actif, et la séquence est dans MaVideo.avi
7. pour prendre un cliché instantané cliquer sur "Photo" ==> un fichier MaPhoto_nnnn.bmp est créé, nnnn s'incrémente à chaque photo.
8. pour libérer la caméra, cliquer sur "Fermer" ==> la visualisation disparaît et la caméra est libérée.

Sujet: Re: KGF_dll - nouvelles versions Mar 21 Mar 2017 - 21:34

Si l'on a plusieurs caméras sur l'ordinateur, il y a plusieurs drivers, également.
Evidemment, chacun peut être choisi. Il suffit de cliquer sur la bonne ligne dans
la liste à droite, et le bouton "Connect" connectera la caméra choisie.

Bien entendu, en modifiant le programme ou en s'en insprirant, on peut connecter
deux ou plusieurs caméras simultanément. La limite technique est de 10 sources
vidéo, imposée par Windows ne gérant les indices que de 0 à 9. Mais cela permet
de composer une mosaïque de visualisation, façon centre de vidéo-surveillance !
Chaque caméra connectée a alors son propre identifiant, par exemple VC0% pour
celle d'indice 0, VC1% pour celle d'indice 1 etc. Ou un tableau dim VC%(9) pouvant
connecter jusqu'à 10 sources vidée. C'est extrêmement simple.

Sujet: Re: KGF_dll - nouvelles versions Mer 22 Mar 2017 - 22:03

Nouvelle version:
KGF.dll V7.28 du 22/03/2017

Nouveautés:
- Nouvel objet: ScreenSnapshot (fonctions CreateScreenSnapshot, DeleteScreenSnapshot, TakeScreenSnapshot)

Modules modifiés:
KGF.dll
KGF.chm

La doc et les sources sont à jour.

Voici un composant permettant de faire des captures d'écran. KGF.dll avait déjà une fonction permettant de capter l'image d'un composant (form, mémo, list, ...): c'est ici. Mais maintenant, on peut capter n'importe quelle partie de l'écran, quelques soient les fenêtres, objets, bureau et autres qui se trouvent dans la partie qu'on veut capter. Et oui, on peut choisir la partie à capter, à l'aide d'un cadre de sélection, déplaçable et dont la forme est ajustable par des poignées. Et on peut capter l'image à l'intérieur du cadre de sélection dans un fichier BMP ou JPG, au choix.

Voici un petit programme de démo qui a juste deux boutons. Le premier s'affiche en permanence: "Cadre". Un clic sur ce bouton affiche le cadre de sélection, déplaçable en tirant la bordure rouge, et déformable en tirant une des 8 poignées. Puis, un bouton "Photo" apparaît. Un clic sur ce bouton crée un fichier image, contenant ce que l'on voit à l'intérieur du cadre de sélection. Sans ce programme, on peut prendre des clichés à la suite, ils seront déposés dans des fichiers différents, selon le principe Snapshot_nnnn.jpg, avec nnnn=0001, 0002, etc. Un nouveau clic sur le bouton "Cadre", alors que le cadre est affiché, suprime le cadre et cache le bouton "Photo".

Code:: ' demo_ScreenSnapshot.bas

label cadre, photo

dim res%, SNAP%, cnt%, photo$

width 0,137
height 0,141
button 1 : caption 1,"Cadre" : width 1,120 : height 1,50 : on_click 1,cadre
font_size 1,12 : font_bold 1
button 2 : caption 2,"Photo" : width 2,120 : height 2,50 : on_click 2,photo
font_size 2,12 : font_bold 2 : top 2,51 : hide 2

dll_on "KGF.dll"

end

cadre:
if SNAP%=0
SNAP% = dll_call5("CreateScreenSnapshot",1,100,100,300,200)
show 2
else
SNAP% = dll_call1("DeleteScreenSnapshot",SNAP%)
hide 2
end_if
return

photo:
cnt% = cnt% + 1
photo$ = "Snapshot_"+right$("000"+str$(cnt%),4)+".jpg"
res% = dll_call2("TakeScreenSnapshot",SNAP%,adr(photo$))
return

Sujet: Re: KGF_dll - nouvelles versions Jeu 23 Mar 2017 - 8:04

Bravo Klaus pour ces ajouts qui augmentent encore les possibilités
Après dans la DLL il y a peut être des fonctions transversales à développer comme capturer une vidéos capturé depuis une webcam (directement par un appel simple d'une fonction qui gérerait tout le détail) ou par un lecteur multimédia ?
Bon c'est une idée comme ça et c'est secondaie puisque l'on peut déjà le faire avec un peu de programmation en utilisant tes fonctions.

Sujet: Re: KGF_dll - nouvelles versions Jeu 23 Mar 2017 - 11:00

Citation :: capturer une vidéos capturé depuis une webcam

C'est fait... regarde la version précédente ! Tu peux capturer simultanément une, deux ou plusieurs webcam (celle intégrée au portable, webcam sur USB, ...), visualiser tout cela à l'écran, enregister des clichés instantanés et la vidéo entière, en format AVI. En fait, tu peux capturer ce que Windows reconnaît come "source vidéo" - 10 différentes posibles.

Ce qui n'est pas encore géré, c'est la capture de webcams par IP. Mais je n'ai pas de matériel pour tester cela...

Je suis en train d'ajouter, à l'objet ScreenSnapshot, la possibilité de capter l'image de la sélection en format vidéo AVI. Cela ouvre le chemin vers la fabrication de tutos, directement en Panoramic...

Sujet: Re: KGF_dll - nouvelles versions Jeu 23 Mar 2017 - 12:33

Nouvelle version:
KGF.dll V7.29 du 23/03/2017

Nouveautés:
- Nouvelle fonction: TakeVideoScreenSnapshot

Modules modifiés:
KGF.dll
KGF.chm

La doc et les sources sont à jour.

Cette fonction permet de faire une capture vidéo du contenu du rectangle de sélection de l'objet ScreenSnapshot. La vidéo est déposée dans un fichier AVI. Les dimensions de la vidéo sont celles de la fenêtre de sélection, au démarrage de l'enregistrement. En cours d'enregsitrement, le contenu du rectangle de sélection peut changer, on peut déplacer le rectangle de sélection, et on peut même le déformer. Dans ce dernier cas, comme les dimensions de la vidéo sont fixes, les images capturées sont adaptées aux dimensions fixes par un équivalant de STRETCH_ON, produisant insi un effet de zoom avant/arrière. On peut aussi préciser le nombre d'images (frames) à capturer par seconde (c'est approximatif et dépend des performances de la machine).

Voici le programme de démo adapté, avec un bouton "Vidéo" qui apparaît. Un clic sur ce bouton démarre la vidéo et change le libellé du bouton en "Vidéo Stop". L'enregsitrement continue jusqu'à un nouveau clic sur ce bouton. Le fichier est alors enregistré définitivement et finalisé (avant, la vidéo est incohérente et ne peut pas être lue en cours d'enregistrement).

Code:: ' demo_ScreenSnapshot.bas

label cadre, photo, video

dim res%, SNAP%, cnt%, photo$, video%, video$

width 0,137
height 0,192
button 1 : caption 1,"Cadre" : width 1,120 : height 1,50 : on_click 1,cadre
font_size 1,12 : font_bold 1
button 2 : caption 2,"Photo" : width 2,120 : height 2,50 : on_click 2,photo
font_size 2,12 : font_bold 2 : top 2,51 : hide 2
button 3 : caption 3,"Vidéo" : width 3,120 : height 3,50 : on_click 3,video
font_size 3,12 : font_bold 3 : top 3,102 : hide 3

dll_on "KGF.dll"

end

cadre:
if SNAP%=0
SNAP% = dll_call5("CreateScreenSnapshot",1,100,100,300,200)
video% = 0
show 2
show 3
else
SNAP% = dll_call1("DeleteScreenSnapshot",SNAP%)
hide 2
hide 3
end_if
return

photo:
cnt% = cnt% + 1
photo$ = "Snapshot_"+right$("000"+str$(cnt%),4)+".jpg"
res% = dll_call2("TakeScreenSnapshot",SNAP%,adr(photo$))
return

video:
if video%=0
video% = 1
video$ = "Snapshot.avi"
caption 3,"Vidéo Stop"
res% = dll_call4("TakeVideoScreenSnapshot",SNAP%,1,50,adr(video$))
else
video% = 0
caption 3,"Vidéo"
res% = dll_call4("TakeVideoScreenSnapshot",SNAP%,0,0,0)
end_if
return

On peut ainsi établir des tutos vidéo, directement à partir de Panoramic...

Sujet: re Jeu 23 Mar 2017 - 14:09

Wahou ! encore plus fort !

Je reviens sur le premier que tu as présenté.
pour voir la vidéo d' un périphérique, on dimensionne un objet "ecran".
ma webcam est en 640x480 si les dimensions de l' objet écran sont définis en 320x240
l' image est rogné (je n' ai pas tout) et si je défini un "ecran" plus grand que les dimensions de l' image de la webcam l' imge est en 0,0 mais ne prend pas tout l' espace de cet écran.

Serait il possible que l' image s' adapte à son "écran" ?

Sujet: Re: KGF_dll - nouvelles versions Jeu 23 Mar 2017 - 14:40

Citation :: Serait il possible que l' image s' adapte à son "écran" ?

Sûrement. Je vais regarder cela. Mais est-ce que tu as essayé

Code:: res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Geometry%,10,40,600,400)

(les valeurs sont juste un exemple, celles du programme de démo) ? Cela permet de donner les dimensions voulues à la fenêtre de visualisation. Ou veux-tu visualiser une vidéo d'une certaine dimension dans une fenêtre d'une autre dimension ? En tout cas, je vais regarder.

Sujet: Re: KGF_dll - nouvelles versions Jeu 23 Mar 2017 - 14:49

Finalement, c'était très simple. Je n'en ai pas fait une nouvelle version, mais j'ai corrigé sur mon site et mon WebDav. Recharge simplement la DLL...

Sujet: re Jeu 23 Mar 2017 - 14:53

C' est ce que j' ai fait, Klaus.
Et je me suis aperçu qu' il manquait un bout de l' image.
J' ai donc été regardé les propriétés de ma webcam et j' y ai vu que l' image de sortie était en 640x480.
J' ai modifié les paramètres en :

Code:: res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Geometry%,10,40,640,480)

Là, j' ai tout.
Mais si je veux faire un panel de 9 caméra sur un seul écran je dois réduire proportionnellement la taille des images.
J' ai donc modifié mon "écran virtuel" pour ceci :

Code:: res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Geometry%,10,40,320,240)

Là, j' ai seulement 1/4 de l' image, celle ci ne s' adapte pas à la taille de mon "écran virtuel"
J' ai, par curiosité, rechangé les dimensions de l' "écran virtuel" comme ceci

Code:: res% = dll_call6("VideoCapture",VC%,VideoCapture_Action_Geometry%,10,40,1280,960)

Là, j' ai bien toute l' image en 640x480, cadrée en 0.0 mais le reste de l' "écran virtuel" est noir...
Là aussi, l' image ne s' adapte pas à la taille de l' "écran virtuel".

Sujet: Re Jeu 23 Mar 2017 - 14:55

On s' est croisé... Laughing

Je vais recharger la dll et je te tiens au courant.

Sujet: Re: KGF_dll - nouvelles versions Jeu 23 Mar 2017 - 14:56

Et as-tu rechargé la DLL que je viens de changer ? J'y ai bien mis ce qui correspond au STRETCH_ON pour la visualisation de la video.

Sujet: re Jeu 23 Mar 2017 - 15:05

Il me manque toujours les 3/4 de l' image...

KGF_dll - nouvelles versions - Page 4 Captur79

Sujet: Re: KGF_dll - nouvelles versions Jeu 23 Mar 2017 - 15:07

Ok, je vais approfondir.

Sujet: Re: KGF_dll - nouvelles versions Jeu 23 Mar 2017 - 15:20

Réessaie maintenant...

J'ai fait de sorte que la visalisation s'adapte à la taille de la fenêtre de visualisation, tout en gardant les proportions largeur/hauteur de la vidéo d'origine. Il faut donc donner des dimensions adéquates à l'objet, sinon, tu vas observer une bande non utilisée, soit à droite, soit en bas. Mais la vidéo sera maintenant visible toujours en entier.

Je n'ai pas touché à l'enregistrement: la vidéo s'enregistrera toujours avec les dimensions d'origine.

» KGF_dll - nouvelles versions
» KGF_dll - nouvelles versions
» KGF_dll - nouvelles versions
» Synedit_Editor - nouvelles versions
» version instantanée PANORAMIC V 0.9.25i6 du 14/12/2013