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))