Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Программирование [игнор отключен] [закрыт для гостей] / OFFTOPIC: AVI HEX / 18 сообщений из 18, страница 1 из 1
16.04.2004, 06:32
    #32483626
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
Уважаемые модераторы, очень прошу Вас не удалять этот топик до вечера...

Задача:
База по учету видеофильмов и роликов. Ведется таблица, в которую заносится продолжительность фильма. На данный момент, чтобы получить продолжительность фильма - оператору приходится открывать каждый файл и смотреть его глазками (а их от 10 до 50). Я бы хотел, дабы облегчить жизнь этим милым дамам - получать продолжительность программно (естественно - Access).

Собственно, вопрос:
В каком байте файла AVI хранится информация о продолжительности фильма/ролика ?
Может быть будут другие рекомендации по реализации данного вопроса ?

Заранее, Всем спасибо...
...
Рейтинг: 0 / 0
16.04.2004, 09:23
    #32483711
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
c AVI не работал - но на 99,999% уверен, что почти любая библиотека для воспроизведения может выдать тебе нужную инфу. Просто подключи какаю-либо библиотеку, например микрософтовский компонент мультимедиа контрол, и найди нужное свойство или посмотреть на функции из winmm.dll и ей подобных
...
Рейтинг: 0 / 0
16.04.2004, 09:36
    #32483731
Pavel
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
авторУважаемые модераторы, очень прошу Вас не удалять этот топик до вечера...
Если база аксесовская, то это вовсе не офтопик.
...
Рейтинг: 0 / 0
16.04.2004, 09:40
    #32483735
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
Отлично...
...
Рейтинг: 0 / 0
16.04.2004, 09:42
    #32483741
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
Если база аксесовская, то это вовсе не офтопик.
У меня упала винда. Как ее переустановить?
А почему в аксесовском форуме? Так ведь я теперь аксес запустить не могу!
...
Рейтинг: 0 / 0
16.04.2004, 10:20
    #32483809
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
ЛП рулит
...
Рейтинг: 0 / 0
16.04.2004, 10:24
    #32483812
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
Вроде, байт нашел...
Теперь проблема:
Три переменных аз вариант
в двух лежат хексы, результатом первой является 156 (2C), второй - 64 (FC).
мне нужно эти переменные соединить в третью (2CFC), чтобы получился результат 11516.
Пишу -
Код: plaintext
1.
2.
var3=var1 & var2
? clng(asc(var3))
 156 


Как их правильно соединить ?
...
Рейтинг: 0 / 0
16.04.2004, 10:34
    #32483834
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
Код: plaintext
1.
 var3 = Hex(var2 + (var1 *  256 ))
...
Рейтинг: 0 / 0
16.04.2004, 10:36
    #32483837
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
Acs возвращает только значение первого символа :)

Делай выводы :)
...
Рейтинг: 0 / 0
16.04.2004, 10:37
    #32483842
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
в пред. топике ты в хексах получишь, что бы в десятичной получить то:
Код: plaintext
1.
var3 = var2 + var1 *  256 
...
Рейтинг: 0 / 0
16.04.2004, 10:46
    #32483858
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
2 to Kelme
Type mismatch
...
Рейтинг: 0 / 0
16.04.2004, 10:49
    #32483863
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
Код: plaintext
1.
2.
3.
4.
5.
6.
 Dim var1
 Dim var2
 Dim var3
    var1 = &H2C
    var2 = &HFC
    var3 = (var2 + (var1 *  256 ))
...
Рейтинг: 0 / 0
16.04.2004, 10:51
    #32483868
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
Типы переменных?

Попробуй преобразовать их в Лонг перед свершение операции :)
...
Рейтинг: 0 / 0
16.04.2004, 10:54
    #32483873
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
Чтобы совсем ясно было:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Function aa()
 Dim var3
 Dim strVar1 As String
 Dim strVar2 As String
    strVar1 =  "&H"  &  "2C"  < ---- 2C это старший байт, приводим в нужный вид
 
    strVar2 =  "&H"  &  "FC"  < ---- FC это младший байт, приводим в нужный вид
 
    var3 = (strVar2 + (strVar1 *  256 ))
    Debug.Print var3
End Function

...
Рейтинг: 0 / 0
16.04.2004, 10:58
    #32483881
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
2 Kelme
Твои варианты нормально работают...
...
Рейтинг: 0 / 0
16.04.2004, 10:58
    #32483882
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
Тут есть программка, думаю, если посмотреть код - всё станет понятно...
...
Рейтинг: 0 / 0
16.04.2004, 11:27
    #32483945
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
2 Hummer
Все работает, Всем спасибо !
...
Рейтинг: 0 / 0
16.04.2004, 11:36
    #32483979
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OFFTOPIC: AVI HEX
Уважаемые модераторы, Вопрос вроде решен. Можно топик жестоко изнечтожить. Или переименовать - может кому-нибудь в будущем понадобится...мало ли...
...
Рейтинг: 0 / 0
Форумы / Программирование [игнор отключен] [закрыт для гостей] / OFFTOPIC: AVI HEX / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]