satirik | Code :
- Declare Function ICGetInfo Lib "msvfw32.dll" (ByVal hic As Long, ByRef picinfo As ICINFO, ByVal cb As Long) As Long
- Declare Function ICINFO Lib "msvfw32.dll" Alias "ICInfo" (ByVal fccType As Long, ByVal fccHandler As Long, ByRef lpicinfo As ICINFO) As Long
- Declare Function ICOpen Lib "msvfw32.dll" (ByVal fccType As Long, ByVal fccHandler As Long, ByVal wMode As Long) As Long
- Declare Function ICClose Lib "msvfw32.dll" (ByVal hic As Long) As Long
- Public Type ICINFO '296 octets
- dwSize As Long
- fccType As Long
- fccHandler As Long
- dwFlags As Long
- dwVersion As Long
- dwVersionICM As Long
- szName As String * 16
- szDescription As String * 128
- szDriver As String * 128
- End Type
-
- Public Function FCC2Long(FOURCC As String) As Long
- FCC2Long = Asc(Left(FOURCC, 1))
- FCC2Long = FCC2Long + (Asc(Mid(FOURCC, 2, 1)) * 2 ^ 8)
- FCC2Long = FCC2Long + (Asc(Mid(FOURCC, 3, 1)) * 2 ^ 16)
- FCC2Long = FCC2Long + (Asc(Mid(FOURCC, 4, 1)) * 2 ^ 24)
- End Function
- Private Sub Form_Load()
- Dim iICINFO As ICINFO
- Dim hic As Long
- hic = ICOpen(FCC2Long("vidc" ), FCC2Long("DIVX" ), 4)
- ICGetInfo hic, iICINFO, Len(iICINFO)
- MsgBox iICINFO.szDescription
- ICClose hic
- End Sub
|
vala je met ca , j'ai fait ca a partir de msdn mais bon c de la doc c++ a la base mais impossible ca marche pas ... pourtant si je met un fcc qui existe pas ca donne pas de hic et la ca en donne juste avec les bon fcc mais pas moyen de recup la description ... est ce ke kkun peu m'aider svp je comprend plus rien |
