Zjištění rozměrů AVI souboru
Otevření souboru:
Dim RetString As String
RetString = Space$(256)
CommandString = "Cesta a Jméno souboru"
RetVal = mciSendString(CommandString, RetString, Len(RetString), 0)
V proměnné RetString musí být nenulový řetězec. Po návratu bude tato proměnná obsahovat čtyři koordináty (X1 Y1 X2 Y2) plochy pro video, například:
"0 0 320 240"
indikující, že Width je 320 a Height je 240 pixlů. Pro extrakci těchto hodnot proto nejprve odřízneme úvodní nuly a pak řetězec rozdělíme. Máte-li VB6, můžete to udělat následovně, ve VB5 a níže si musíte řetězec rozdělit např. pomocí funkce Mid:
RetString = Left$(RetString,
InStr(RetString & vbNullChar, vbNullChar) - 1)
Dim res() As String
res() = Split(RetString)
width = CSng(res(2))
height = CSng(res(3))