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

SI dSauveImageJPEG(IMG_CréationVignette,sNomFichier,85) = Faux ALORS
Erreur("Impossible d'enregistrer le fichier : " + sNomFichier, ErreurInfo())
SINON SI HAttacheMémo(Video,Vignette,sNomFichier,hMemoImg) = Faux ALORS
Erreur("Erreur HyperFileSQL : " + HErreur())
SINON
HAjoute(Video)
FIN

Procedure TakeSnapshot(num est un entier,chemin est une chaîne,...
largeur est un entier,hauteur est un entier)

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

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

BITMAPINFOHEADER est une structure
biSize est un entier //Type C : DWORD
biWidth est un entier //Type C : LONG
biHeight est un entier //Type C : LONG
biPlanes est un entier sur 2 octets //Type C : WORD
biBitCount est un entier sur 2 octets //Type C : WORD
biCompression est un entier //Type C : DWORD
biSizeImage est un entier //Type C : DWORD
biXPelsPerMeter est un entier //Type C : LONG
biYPelsPerMeter est un entier //Type C : LONG
biClrUsed est un entier //Type C : DWORD
biClrImportant est un entier //Type C : DWORD
FIN



AVIFILEINFO est une structure
dwMaxBytesPerSec est un entier
dwFlags est un entier
dwCaps est un entier
dwStreams est un entier
dwSuggestedBufferSize est un entier
dwWidth est un entier
dwHeight est un entier
dwScale est un entier
dwRate est un entier
dwLength est un entier
dwEditCount est un entier
szFileType est une chaîne ASCIIZ sur 64 // ????
FIN








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

srccopy est un entier
srccopy=0x00CC0020


ffile est un AVIFILEINFO
pavif est un entier = &ffile

pavis est un entier
streamtypeVIDEO est un entier =1935960438


lIndex est un entier =aindex


fn est une chaîne
fn=afavi


hr est un entier

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 un entier

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

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

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

//=====================
hddOp,hdcDisplay est un entier
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 une chaî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 une chaî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)