using own dll

[BSA01]

I am writing my own DLL for playing mp3 wiht DirectX.

I'm wondering is this correct, because I have problem with this :

Public Property Let LoadFile(ByVal File As String, Level As Integer)
    DirectShow_Load_Media File
    DirectShow_Volume Level
    DirectShow_Balance 0
    DirectShow_Speed 100
    DirectShow_Set_Position 0, 0, 0, 0
End Property

Public Property Let UcitajFile(ByVal File As String, Glasnoca As Integer)
    DirectShow_Load_Media File
    DirectShow_Volume Glasnoca
    DirectShow_Balance 0
    DirectShow_Speed 100
    DirectShow_Set_Position 0, 0, 0, 0
End Property

Public Property Let SetLevel(ByVal Level As Integer)
  DirectShow_Volume Level
End Property

Public Property Let RunFile(ByVal State As Boolean)
  On Error Resume Next
  If State Then
    DirectShow_Play
  Else
    DirectShow_Stop
  End If
End Property

[baja_yu]

First, what's the problem?

Second, is this a function "DirectShow_Volume" or a variable, because if it's a variable you're missing '=' symbol. Also, why do you have two identical Let-s (LoadFile, UcitajFile)? I realize you translated the name of the property and arguments, but what's the point?

[BSA01]

First, what's the problem?

Second, is this a function "DirectShow_Volume" or a variable, because if it's a variable you're missing '=' symbol. Also, why do you have two identical Let-s (LoadFile, UcitajFile)? I realize you translated the name of the property and arguments, but what's the point?

Yes, I translated, that's duplicated.

Also, DirectShow_Volume is function.

Problem, when I make this DLL and try to use in application, I can't hear anything.

In application, I put this :

LoadFile Path, Volume
RunFile True

and, also, when typing LoadFile, VB show just Path parameter, there is no Volume parameter in ToolTip

[whatsup]

maybe you post the dll project, and will try to fix it.

[whatsup]

second:
if you want to use playsound as a sub = method (not property)
you shoud replace the keyword property let with sub

[BSA01]

second:
if you want to use playsound as a sub = method (not property)
you shoud replace the keyword property let with sub

I really hope this will work, because I want to use this dll like some extern source of functions.

[whatsup]

it should easly work.
if you problems, just post them.

[BSA01]

it should easly work.
if you problems, just post them.

problem is, when I rename all Property Let to Sub, and try to make DLL, msgbox show :

"No creatable public component detected.
F1 for help"

[whatsup]

i just easily compiled this code as an activeX dll

Public Sub LoadFile(ByVal File As String, Level As Integer)
'    DirectShow_Load_Media File
'    DirectShow_Volume Level
'    DirectShow_Balance 0
'    DirectShow_Speed 100
'    DirectShow_Set_Position 0, 0, 0, 0
  MsgBox "LoadFile"
End Sub

Public Sub UcitajFile(ByVal File As String, Glasnoca As Integer)
'    DirectShow_Load_Media File
'    DirectShow_Volume Glasnoca
'    DirectShow_Balance 0
'    DirectShow_Speed 100
'    DirectShow_Set_Position 0, 0, 0, 0
  MsgBox "UcitajFile"
End Sub

Public Sub SetLevel(ByVal Level As Integer)
'  DirectShow_Volume Level
  MsgBox "SetLevel"
End Sub

Public Sub RunFile(ByVal State As Boolean)
  On Error Resume Next
  If State Then
'    DirectShow_Play
  Else
'    DirectShow_Stop
  End If
'  DirectShow_Volume Level
  MsgBox "RunFile"
End Sub

you know you should open a new ActiveX DLL Project (not the default , which is standard EXE)

[techgnome]

When you create a DLL, in order to use it, you first have to reference it. Once you have referenced it, You can then use it... first by declaring an object of the class type, then you create an instance of the class. Then and only then can you call its methods and functions.

The reason LoadFile is only giving you the one parameter, is because it's the wrong loadFile.
Also, the code you posted CANNOT be the full extent of all the code ... since all those calls to the directx functions will fail w/o being defined or referenced somehow.

-tg

[BSA01]

When you create a DLL, in order to use it, you first have to reference it. Once you have referenced it, You can then use it... first by declaring an object of the class type, then you create an instance of the class. Then and only then can you call its methods and functions.

The reason LoadFile is only giving you the one parameter, is because it's the wrong loadFile.
Also, the code you posted CANNOT be the full extent of all the code ... since all those calls to the directx functions will fail w/o being defined or referenced somehow.

-tg

I know that, and I have done all.

In this DLL, I have module where I have directX functions, and in DLL I used reference quartz.dll.

Description of problem.

I want to use two sounds at the same time. First, I set module inside application. But if I want to load secund file, first will be replaced. And I can't play it. So, I decided to move that module in one DLL, so i can declare two object, Music1 as MyDll.clsPlay, Music as MyDll.clsPlay.



Using this DLL, I can't accomplish this task

[whatsup]

I know that, and I have done all.

In this DLL, I have module where I have directX functions, and in DLL I used reference quartz.dll.

Description of problem.

I want to use two sounds at the same time. First, I set module inside application. But if I want to load secund file, first will be replaced. And I can't play it. So, I decided to move that module in one DLL, so i can declare two object, Music1 as MyDll.clsPlay, Music as MyDll.clsPlay.



Using this DLL, I can't accomplish this task

for your first problem :
play more than one file at a time:

Type DirectShowbuf
    Event As IMediaEvent
    Control As IMediaControl
    Position As IMediaPosition
    Audio As IBasicAudio
    Video As IBasicVideo
    Video_Window As IVideoWindow
End Type

Function DSInit(DS As DirectShowbuf) As Boolean
    On Error GoTo Error_Handler
    Set DS.Control = New FilgraphManager
    Set DS.Event = DS.Control
    Set DS.Position = DS.Control
    DS.Position.Rate = 1
    DSInit = False
    Exit Function
Error_Handler:
'    Call ShowErrorMsg()
    DSInit = True
End Function

you can use this last function to open as many devices as you want,
and thus play as many files as you want.
you should be aware what you're doing, because you need also to close those
devices.
you can for examples use an array to store each device, like this:

Dim DSArray[10] As DirectSHowBuf
Dim DSDeviceNum As Integer

Private Sub Form_Load()
  For DSDeviceNum = 0 To 3
    Call DSInit(DSArray(DSDeviceNum))  
    DSDeviceNum = DSDeviceNum + 1
  Next

  For DSDeviceNum = 0 To 3
    DSArray(DSDeviceNum).Control.RenderFile (fName)
  Next
End Sub

[BSA01]

for your first problem :
play more than one file at a time:

Type DirectShowbuf
    Event As IMediaEvent
    Control As IMediaControl
    Position As IMediaPosition
    Audio As IBasicAudio
    Video As IBasicVideo
    Video_Window As IVideoWindow
End Type

Function DSInit(DS As DirectShowbuf) As Boolean
    On Error GoTo Error_Handler
    Set DS.Control = New FilgraphManager
    Set DS.Event = DS.Control
    Set DS.Position = DS.Control
    DS.Position.Rate = 1
    DSInitM = False
    Exit Function
Error_Handler:
'    Call ShowErrorMsg()
    DSInit = True
End Function

you can use this last function to open as many devices as you want,
and thus play as many files as you want.
you should be aware what you're doing, because you need also to close those
devices.
you can for examples use an array to store each device, like this:

Dim DSArray[10] As DirectSHowBuf
Dim DSDeviceNum As Integer

Private Sub Form_Load()
  For DSDeviceNum = 0 To 3
    Call DSInit(DSArray[DSDeviceNum])  
    DSDeviceNum = DSDeviceNum + 1
  Next

  For DSDeviceNum = 0 To 3
    DSArray[DSDeviceNum].Control.RenderFile (fName)
  Next
End Sub

OK, I'll try

----

I fixed in DLL instancing property and set back to multiuse ( I don't know how it was changed to private) and make DLL, but, again I can't hear anything.

[BSA01]

Using your code, which references I need to include ? (I included "quartz.dll")

I have problem in this line :

Function DSInit(DS As DirectShowbuf) As Boolean
    On Error GoTo Error_Handler
    Set DS.Control = New FilgraphManager
    Set DS.Event = DS.Control
    Set DS.Position = DS.Control
    DS.Position.Rate = 1
    DSInitM = False
    Exit Function
Error_Handler:
'    Call ShowErrorMsg()
    DSInit = True
End Function

[whatsup]

i'm sorry
it should be

    DSInit = False

[whatsup]

also where ever i wrote these brackets -> [ ]
it should be these -> ( )

[BSA01]

I used one variable "music" that is "DirectShowbuf"

In form load, I set :

DSInit Music
Music.control.render "C:\file.mp3"
Music.control.run

Also, printed DSInit, and I saw it was false. But I don't hear anything.

[whatsup]

i'm sorry maybe i forgot this line

    DS.Control.RenderFile myFileName
    Set DS.Audio = DS.Control  ' <----

[whatsup]

this code is from media player, that works very well for a long time, so there should be no problem,
(except of some small mistakes of mine )

[BSA01]

Entire code, also not working :

Option Explicit

Dim Music As DirectShowbuf


Private Type DirectShowbuf
    Event As IMediaEvent
    Control As IMediaControl
    Position As IMediaPosition
    Audio As IBasicAudio
    Video As IBasicVideo
    Video_Window As IVideoWindow
End Type

Private Function DSInit(DS As DirectShowbuf) As Boolean
    On Error GoTo Error_Handler
    Set DS.Control = New FilgraphManager
    Set DS.Event = DS.Control
    Set DS.Position = DS.Control
    DS.Position.Rate = 1
    DSInit = False
    Exit Function
Error_Handler:
'    Call ShowErrorMsg()
    DSInit = True
End Function

Private Sub Form_Load()
DSInit Music
Music.Control.RenderFile "C:\file.mp3"
Set Music.Audio = Music.Control
Music.Control.Run
End Sub

[whatsup]

i just took the code from your post, didn't make any change,
and it worked no problem.
maybe try to replace the mp3, because DS can't play every file.
that's the main reason i'm using in my media player FMOD library,
because i have files that DS and MCI couldn't play.

[BSA01]

i just took the code from your post, didn't make any change,
and it worked no problem.
maybe try to replace the mp3, because DS can't play every file.
that's the main reason i'm using in my media player FMOD library,
because i have files that DS and MCI couldn't play.

really don't know
I tried another mp3 and nothing., and another one, nothing

[whatsup]

i made a little project for you,
which i tested and it works.
it can play up to 3 files at a time.
i hope it'll work for you.

[BSA01]

i made a little project for you,
which i tested and it works.
it can play up to 3 files at a time.
i hope it'll work for you.

I apritiate, but it is obius that error is just for me. Really don't know.

[AsmIscool]

Have you tried it on a different PC?

[BSA01]

Have you tried it on a different PC?

No. And, what's the point if I can't do that on my PC

[whatsup]

the point is to confirm that this is a problam in your system,
and not in your code.
and then you can try replace / register new dll (or something)