sNomFichier est unechaîne=ComplèteRep(fRepExe())+"vignette.jpg"

SIdSauveImageJPEG(IMG_CréationVignette,sNomFichier,85) =FauxALORS
Erreur("Impossible d'enregistrer le fichier : "+sNomFichier,ErreurInfo())
SINON SIHAttacheMémo(Video,Vignette,sNomFichier,hMemoImg) =FauxALORS
Erreur("Erreur HyperFileSQL : "+HErreur())
SINON
HAjoute(Video)
FIN

ProcedureTakeSnapshot(num est unentier,chemin est unechaîne,...
largeur est unentier,hauteur est unentier)

res est unentier
SI:mp<>0
res=API(:sDLL,"libvlc_video_take_snapshot",:mp,num,chemin,largeur,hauteur)
SIres=0ALORS
:AddToLog("SnapShot")
SINON
:AddToLog("SnapShot : Vidéo non trouvée")
FIN
FIN
RENVOYER0

oVLC:TakeSnapshot(0,"F:\temp\out.png",352,288)

BITMAPINFOHEADER est unestructure
biSize est unentier//Type C : DWORD
biWidth est unentier//Type C : LONG
biHeight est unentier//Type C : LONG
biPlanes est unentiersur2octets//Type C : WORD
biBitCount est unentiersur2octets//Type C : WORD
biCompression est unentier//Type C : DWORD
biSizeImage est unentier//Type C : DWORD
biXPelsPerMeter est unentier//Type C : LONG
biYPelsPerMeter est unentier//Type C : LONG
biClrUsed est unentier//Type C : DWORD
biClrImportant est unentier//Type C : DWORD
FIN



AVIFILEINFO est unestructure
dwMaxBytesPerSec est unentier
dwFlags est unentier
dwCaps est unentier
dwStreams est unentier
dwSuggestedBufferSize est unentier
dwWidth est unentier
dwHeight est unentier
dwScale est unentier
dwRate est unentier
dwLength est unentier
dwEditCount est unentier
szFileType est unechaîneASCIIZsur64// ????
FIN








ProcedureGET_FRAME(afavi,aindex=0)
{FenEnCours()+".IMG_VIGNETTE",indChamp}..Visible=Faux

srccopy est unentier
srccopy=0x00CC0020


ffile est un AVIFILEINFO
pavif est unentier= &ffile

pavis est unentier
streamtypeVIDEO est unentier=1935960438


lIndex est unentier=aindex


fn est unechaîne
fn=afavi


hr est unentier

AppelDLL32("avifil32","AVIFileInit")
hr=AppelDLL32("avifil32","AVIFileOpenA",&pavif, &fn,0,Null)


SI(hr<>0)
AppelDLL32("avifil32","AVIFileExit")
Info("AVi erreur",NumériqueVersChaîne(hr,"x"))
RENVOYER(0)
FIN


hr=AppelDLL32("avifil32","AVIFileGetStream",pavif, &pavis,streamtypeVIDEO,0);

pFrame est unentier

pFrame=AppelDLL32("avifil32","AVIStreamGetFrameOpen",pavis,1)

pdib est unentier
pdib=AppelDLL32("avifil32","AVIStreamGetFrame",pFrame,lIndex)

//=============================
tt est BITMAPINFOHEADER
Transfert(&tt,pdib,Dimension(tt))

//=====================
hddOp,hdcDisplay est unentier
hddOp=AppelDLL32("msvfw32","DrawDibOpen")

// Initialisation des propriétés de l'objet DrawDib

{FenEnCours()+".IMG_VIGNETTE",indChamp}..Largeur=tt.biWidth
{FenEnCours()+".IMG_VIGNETTE",indChamp}..Hauteur=tt.biHeight

hdcDisplay=dDébutDessin(FenEnCours()+".IMG_VIGNETTE")


hr=AppelDLL32("msvfw32","DrawDibBegin",hddOp,hdcDisplay,0,0,pdib,tt.biWidth,tt.biHeight,4)

szBuffering est unechaîne

szBuffering=Répète(Null,tt.biSizeImage)

Transfert(&szBuffering,pdib+Dimension(tt),tt.biSizeImage)


hr=AppelDLL32("msvfw32","DrawDibDraw",hddOp,hdcDisplay,0,0,tt.biWidth,tt.biHeight,pdib,szBuffering,0,0,tt.biWidth,tt.biHeight,0);



hr=AppelDLL32("msvfw32","DrawDibClose",hddOp)

//========================================================================

// Libération des ressources du flux video
AppelDLL32("avifil32","AVIStreamRelease",pavis)

AppelDLL32("avifil32","AVIFileRelease",pavif)

AppelDLL32("avifil32","AVIFileExit")



ttmem est unechaîne

ttmem=dSauveImageBMP(FenEnCours()+".IMG_VIGNETTE",enMémoire)

{FenEnCours()+".IMG_VIGNETTE",indChamp}..Largeur={FenEnCours()+".IMG_VIGNETTE",indChamp}..LargeurInitiale
{FenEnCours()+".IMG_VIGNETTE",indChamp}..Hauteur={FenEnCours()+".IMG_VIGNETTE",indChamp}..HauteurInitiale


{FenEnCours()+".IMG_VIGNETTE",indChamp}=ttmem



{FenEnCours()+".IMG_VIGNETTE",indChamp}..Visible=Vrai


RENVOYER(Vrai)