Отправляет email-рассылки с помощью сервиса Sendsay

Особое программирование: лист для незрячих программистов

Подписаться Бесплатный дискуссионный лист Подписчиков 198
←   Март 2012   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
14.03.2012
16:46:35
21:27:37
15
15.03.2012
07:20:25
20:54:35
16
17
17.03.2012
01:05:16
02:38:27
18
19
20
21
22
22.03.2012
08:47:46
11:39:20
23
24
25
25.03.2012
11:58:29
19:52:18
26
27
28
28.03.2012
15:31:34
23:03:01
29
30
30.03.2012
08:19:50
23:34:28
31


За последние 60 дней 4 выпусков (1-2 раза в месяц)


Сайт листа: http://www.tiflocomp.ru/
Открыт: 19-10-2011
Пре-модерация: Нет
Адрес для писем в лист: industry.comp.tiflocomp.programming-list@subscribe.ru

Модератор
Vladimir Dovydenkov

Статистика

198 подписчиков
0 за неделю

[prg] библиотеки в delphi, с помощью которых можно открыть mp3 файлы

Здравствуйте всем участникам рассылки! Один знакомый пытается написать
программу медиаплеер на языке object pascal в среде Delphi. Не знаю, почему
именно на этом языке, но он сам выбрал. Дело в том, что стандартный
компонент Delphi mediaplayer открывает файлы форматов avi, midi, wave. Прошу
прощения, если расширения написал неграмотно. Нужно, чтобы открывались так
же форматы, хотя бы mp3 и mp4. в Интернете нашли, что есть какие-то
сторонние библиотеки, которые позволяют работать с этими файлами. А где
можно скачать эти библиотеки, как они называются, и как их применять?
Заранее спасибо. С уважением Леонид.

Ответить  
леонид
Wed, 21 Mar 2012 22:51:57 +0600 (#2408769)

 

Ответы:

доброго времени суток!

Леонид писал:

Нужно, чтобы открывались так

можете попробовать библиотеку (bass).
а можете скачать, по ниже приведённой ссылке, исходник и поглядеть, что и
как.
http://dl.dropbox.com/u/23300192/mp3_bass_object.rar

всех благ!
Т'Сад

Ответить  
Т'Сад
Thu, 22 Mar 2012 02:47:30 +0800 (#2408826)

 

Приветствую всех.

[...]

Никакие сторонние библиотеки для этого не нужны. Всё необходимое уже присутствует
в Windows.
Для воспроизведения мультимедиа-файлов нужно использовать DirectShow. Пусть ваш
знакомый либо учится работать с COM в Delphi, либо ищет родной компонент Delphi
для работы с DirectShow.
Большинство библиотек, которые вам будут рекомендовать, это обёртки поверх DirectShow
или более старой системы кодеков ACM.
Пример использования DirectShow на Delphi можно найти, например, здесь
http://www.ciuly.com/delphi/multimedia/using-directshow-with-dspack-play-multimedia-content-from-stream/

Успехов. Анатолий.

Ответить   "i_chay" Fri, 23 Mar 2012 09:39:39 +0400 (#2410391)

 

Здравствуйте всем участникам рассылки! нужна таблица кодов клавиш. Помню,
что 32- это пробел, 27, помоему, стрелка вниз. Больше не помню ничего.
Помогите пожалуйста найти эти самые коды. Заранее спасибо! С уважением
Леонид Казаков.

Ответить  
леонид казаков
Sat, 14 Jul 2012 00:00:49 +0600 (#2506802)

 

Приветствую!

32
вот:
Коды клавиш
Таблица кодов клавиш, которыми можно пользоваться при

проверке параметра Key в обработчиках событий OnKeyDown и
OnKeyUp:

таблица из 5 столбцов и 82 строк
Клавиша

Дес.
число

Шест.
число

Символическое
имя

Сравнение по
функции ord

F1

112

$70

VK_F1

F2

113

$71

VK_F2

F3

114

$72

VK_F3

F4

115

$73

VK_F4

F5

116

$74

VK_F5

F6

117

$75

VK_F6

F7

118

$76

VK_F7

F8

119

$77

VK_F8

F9

120

$78

VK_F9

F10

121

$79

VK_F10

пробел

32

$20

VK_SPACE

BackSpace

8

$8

VK_BACK

Tab

9

$9

VK_TAB

Enter

13

$0D

VK_RETURN

Shift

16

$10

VK_SHIFT

Ctrl

17

$11

VK_CONTROL

Alt

18

$12

VK_MENU

CapsLock

20

$14

VK_CAPITAL

Esc

27

$1B

VK_ESCAPE

Insert

45

$2D

VK_INSERT

PageUp

33

$21

VK_PRIOR

PageDown

34

$22

VK_NEXT

End

35

$23

VK_END

Home

36

$24

VK_HOME

Стрелка назад

37

$25

VK_LEFT

Стрелка вверх

38

$26

VK_UP

Стрелка вперед

39

$27

VK_RIGHT

Стрелка вниз

40

$28

VK_DOWN

Delete

46

$2E

VK_DELETE

PrintScreen

44

$2C

VK_SNAPSHOT

ScrollLock

145

$91

VK_SCROLL

Pause

19

$13

VK_PAUSE

NumLock

144

$90

VK_NUMLOCK

0,)

48

$30

Ord('0')

1!

49

$31

Ord('1')

2@

50

$32

Ord('2')

3#

51

$33

Ord('3')

4$

52

$34

Ord('4')

5%

53

$35

Ord('5')

6^

54

$36

Ord('6')

7&

55

$37

Ord('7')

8*

56

$38

Ord('8')

9(

57

$39

Ord('9')

`~

192

$C0

-_

189

$BD

=+

187

$BB

[{

219

$DB

]}

221

$DD

:;

186

$BA

'"

222

$DE

|

220

$DC

,<

188

$BC

190

$BE

/?

191

$BF

A a

65

$41

Ord('A')

B b

66

$42

Ord('B')

С с

67

$43

Ord('С')

D d

68

$44

Ord('D')

E e

69

$45

Ord('E')

F f

70

$46

Ord('F')

G g

71

$47

Ord('G')

H h

72

$48

Ord('H')

I i

73

$49

Ord('I')

J j

74

$4A

Ord('J')

K k

75

$4B

Ord('K')

L l

76

$4C

Ord('L')

M m

77

$4D

Ord('M')

N n

78

$4E

Ord('N')

O o

79

$4F

Ord('O')

P p

80

$50

Ord('P')

Q q

81

$51

Ord('Q')

R r

82

$52

Ord('R')

S s

83

$53

Ord('S')

T t

84

$54

Ord('T')

U u

85

$55

Ord('U')

V v

86

$56

Ord('V')

W w

87

$57

Ord('W')

X x

88

$58

Ord('X')

Y y

89

$59

Ord('Y')

Z z

90

$5A

Ord('Z')

конец таблицы

Правая клавиатура при выключенной клавише NumLock:

таблица из 4 столбцов и 16 строк
Клавиша

Дес.
число

Шест.
число

Символическое
имя

0

96

$60

VK_NUMPAD0

1

97

$61

VK_NUMPAD1

2

98

$62

VK_NUMPAD2

3

99

$63

VK_NUMPAD3

4

100

$64

VK_NUMPAD4

5

101

$65

VK_NUMPAD5

6

102

$66

VK_NUMPAD6

7

103

$67

VK_NUMPAD7

8

104

$68

VK_NUMPAD8

9

105

$69

VK_NUMPAD9

*

106

$6A

VK_NYLTIPLY

+

107

$6B

VK_ADD

-

109

$6D

VK_SUBTRACT

.

110

$6E

VK_DECIMAL

/

111

$6F

VK_DIVIDE
конец таблицы

всех благ!
Т'Сад

Ответить  
Т'Сад
Sat, 14 Jul 2012 17:49:36 +0900 (#2506977)