[VB] VFW Codec info ca merde ...

VFW Codec info ca merde ... [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 21-05-2003 à 17:04:07    

Code :
  1. Declare Function ICGetInfo Lib "msvfw32.dll" (ByVal hic As Long, ByRef picinfo As ICINFO, ByVal cb As Long) As Long
  2. Declare Function ICINFO Lib "msvfw32.dll" Alias "ICInfo" (ByVal fccType As Long, ByVal fccHandler As Long, ByRef lpicinfo As ICINFO) As Long
  3. Declare Function ICOpen Lib "msvfw32.dll" (ByVal fccType As Long, ByVal fccHandler As Long, ByVal wMode As Long) As Long
  4. Declare Function ICClose Lib "msvfw32.dll" (ByVal hic As Long) As Long
  5. Public Type ICINFO '296 octets
  6.     dwSize As Long
  7.     fccType As Long
  8.     fccHandler As Long
  9.     dwFlags As Long
  10.     dwVersion As Long
  11.     dwVersionICM As Long
  12.     szName As String * 16
  13.     szDescription As String * 128
  14.     szDriver As String * 128
  15. End Type
  16.    
  17. Public Function FCC2Long(FOURCC As String) As Long
  18. FCC2Long = Asc(Left(FOURCC, 1))
  19. FCC2Long = FCC2Long + (Asc(Mid(FOURCC, 2, 1)) * 2 ^ 8)
  20. FCC2Long = FCC2Long + (Asc(Mid(FOURCC, 3, 1)) * 2 ^ 16)
  21. FCC2Long = FCC2Long + (Asc(Mid(FOURCC, 4, 1)) * 2 ^ 24)
  22. End Function
  24. Private Sub Form_Load()
  25. Dim iICINFO As ICINFO
  26. Dim hic As Long
  27. hic = ICOpen(FCC2Long("vidc" ), FCC2Long("DIVX" ), 4)
  28. ICGetInfo hic, iICINFO, Len(iICINFO)
  29. MsgBox iICINFO.szDescription
  30. ICClose hic
  31. 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

Reply

Marsh Posté le 21-05-2003 à 17:04:07   

Reply

Marsh Posté le 21-05-2003 à 18:54:25    

sisi vous allez m'aider allé :)

Reply

Marsh Posté le 02-06-2003 à 17:10:51    

c bon j'ai reussi je poste au cas ou kkun repose la question , j'ai mi la source sur vbfrance voila le lien ...
 
http://www.vbfrance.com/article.aspx?Val=9088
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed