Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Правильно указать путь к dll-ке 
:(
    Опции темы
Voldemar2004
Дата 13.5.2005, 11:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23



Кидаем на форму CommonDialogControl, 4-е кнопки, меню Open, Label1:
скачал библиотеку для работы с мультимедией (XviD, DVD - играет даже отдельные vob'ики, wav, mp3, bmp, jpg, gif и т.п.):

http://hiprog.com/vb/dwn/plsound.zip


Код

Private Declare Sub PlSound Lib "j:\SOUND_DLL\plsound.dll" (ByVal musik As String)
Private Declare Sub StSound Lib "j:\SOUND_DLL\plsound.dll" ()
Private Declare Sub PausSound Lib "j:\SOUND_DLL\plsound.dll" ()
Private Declare Sub ResumSound Lib "j:\SOUND_DLL\plsound.dll" ()

Option Explicit
Dim FileMusic As String
Dim DllPath As String


Private Sub Command1_Click() ' play
DllPath = App.Path & "\plsound.dll"

FileMusic = Label1.Caption
If FileMusic <> "" Then
PlSound (FileMusic)
End If
End Sub

Private Sub Command2_Click() ' stop
On Error Resume Next
StSound
End Sub

Private Sub Command3_Click() ' pause
On Error Resume Next
PausSound
End Sub

Private Sub Command4_Click() ' продолжить
On Error Resume Next
ResumSound
End Sub

Private Sub mnuExit_Click()
End
End Sub

Private Sub mnuOpen_Click()
On Error Resume Next
CommonDialog1.Filter = "Звук,видео,графика (*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
Label1.Caption = CommonDialog1.FileName
End Sub


Проблема лишь в том, чтобы библитека plsound.dll правильно распознавалась в той папке, где лежит мой проект:

Private Declare Sub PlSound Lib DllPath (ByVal musik As String)
пишет ошибку, что DllPath - строковая константа, оно и понятно, но как сделать чтобы нормально все распознавалось?

Думаю, что понятно объяснил.

Это сообщение отредактировал(а) Voldemar2004 - 13.5.2005, 11:34


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Naghual
Дата 13.5.2005, 11:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



А не указывай путь при декларации!
Барсик будет искать в Системном каталоге виндовоза, где-то в каталоге общих файлов (не помню точно), и затем в каталоге проекта.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Akina
Дата 13.5.2005, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



МОжно занести DLL в реестр в HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\SharedDLLs - тогда точно никаких путей не потребуется...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Voldemar2004
Дата 13.5.2005, 13:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23



Цитата

А не указывай путь при декларации!
Барсик будет искать в Системном каталоге виндовоза, где-то в каталоге общих файлов (не помню точно), и затем в каталоге проекта.


Здесь такой фокус не проходит. smile

Цитата

МОжно занести DLL в реестр в HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\SharedDLLs - тогда точно никаких путей не потребуется...


Это типа при FormLoad'e. Да?


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Akina
Дата 13.5.2005, 13:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(Voldemar2004 @ 13.5.2005, 14:09)
Это типа при FormLoad'e. Да?

Это типа при инсталляции... и не забыть удалить при деинсталляции.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
efedron
Дата 3.6.2005, 20:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

Репутация: 4
Всего: 4



Voldemar2004
библиотека распознается прекрасно (особенно когда проект скомпилен smile)
вот только не нужная она абсолютно - делает то же самое, что и функция mciSendString, только не дает никаких возможностей, кроме паузы smile
--------------------
Прежде чем совершить акт разрезания определенной материи целесообразно удостовериться в правильности всех произведенных измерений.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0594 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.