Hi friends,

I totally agree with quickmic, I'm waiting for a long time and trying ways to use Bassdshow with visualbasic.net. But unfortunately I couldn't make any progress. I can't use any feautures of bassdshow with the bass.net plugin. Maybe first bass.net plugin has to be updated for bassdshow..
I expect only stable working video plugin. Play, pause, stop etc. nothing more. And if it is possible; for webcam control.
I did a nearly perfect application with bassvideo (visual basic 6) it never locked or freezed.
Sharky, you're doing a really hard job, I'm aware of that. But if it's possible; if you can give us some date, that would be great.
I also appreciate any working samples made with visual basic.net.
Take care friends..

When will be a new bassdshow version ?

Hello friends,

Can someone upload a VB.NET (visual basic) sample code for the new bassdshow ?

Thanks.

Hello Sharky,

Is there a help file and sample source code (vb.net) for xvideo ?

Sharky,

I think "setconfig" method doesn't work with vb.net.

Code:

Imports Un4seen.Bass
Imports Un4seen.Bass.AddOn.DShow
Imports Un4seen.Bass.AddOn.DShow.BASSDSHOWConfig
Public Class Form1
    Dim ret As Long
    Dim chan As Long
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ret = Bass.BASS_Init(-1, 44100, 0, Me.Handle)
        ret = Bass.BASS_PluginLoad("BASS_DSHOW.dll")
        BassDShow.BASS_DSHOW_Init(Me.Handle)
        BassDShow.BASS_DSHOW_SetConfig(BASS_DSHOW_VideoRenderer)
        BassDShow.BASS_DSHOW_SetConfig(DSHOW_VMRWINDOW, PictureBox1.Handle)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        chan = BassDShow.BASS_DSHOW_StreamCreateFile(TextBox1.Text, 0)
        BassDShow.BASS_DSHOW_ChannelSetWindow(chan, PictureBox1.Handle)
        Bass.BASS_ChannelPlay(chan, 0)
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        MsgBox("ok")
    End Sub
End Class

I can't change renderer and still can not click picturebox.
Am I the only one using vb.net with dshow here...

Sharky, I'm confused..

Please check the screenshots...
What am I doing wrong ?
with version 2.4.1.0 I can manage the window but can't do it version 2.4.2.0

Is there anybody who can help me with windowresize (vb.net) ?
thanks.

Sharky thank you.
I don't want to be a pain in the ass..
But the problem is: I want to control the video window size by clicking the picturebox ..
unfortunately when the video begins to play (in the picturebox) picturebox1_click event is not accessible.

I use;

BassDShow.BASS_DSHOW_SetConfig(BASSDSHOWVideoRenderer.BASS_DSHOW_USEVMR)
BassDShow.BASS_DSHOW_SetConfig(BASSDSHOWConfig.DSHOW_VMRWINDOW, PictureBox1.Handle)

During runtime I can not click the picturebox1 area, it's not accessible so I can't resize the video window.

Hi Sharky,

I can't change the renderer..
will you upload an updated help file ?
or maybe you can send a demo (setconfig, windowresize etc.) in delphi.
I'll try to convert it to vb.net.
Thank you.

Now I tried it with a new project and it works fine..

That's right. It's looking for the old one.
But I uninstalled it. Installed the new one but somehow I couldn't add the new reference.
Thank you for your reply.

Hi.

I was using Bass.Net API 2.4.6.5 version. I installed the new one (2.4.6..
Now I get the below error in VB.NET 2008;

Warning   1   Could not resolve this reference. Could not locate the assembly "Bass.Net, Version=2.4.6.5, Culture=neutral, PublicKeyToken=b7566c273e6ef480, processorArchitecture=MSIL". Check to make sure the assembly exists on disk. If this reference is required by your code, you may get compilation errors.   WindowsApplication1

It doesn't accept the new reference... Is there a solution for this.

Thanks.

Hi,

I tried the new version and it seems better.
How can I change video windows' height and width during runtime ?
I was using the below code with the old plugin, with the new one it's not working.

Private Sub frmVideo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
        Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT Or BASSInit.BASS_DEVICE_LATENCY, Me.Handle)
        Bass.BASS_PluginLoad("BASS_DSHOW.dll")
        BassDShow.BASS_DSHOW_Init(Me.Handle)
        BassDShow.LoadMe("BASS_DSHOW.dll")
BassDShow.BASS_DSHOW_SetConfig(BASSDSHOWVideoRenderer.BASS_DSHOW_USEVMR)
        BassDShow.BASS_DSHOW_SetConfig(BASSDSHOWConfig.DSHOW_VMRWINDOW, PictureBox1.Handle)

End Sub

Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click
        'Play button
        _Stream = BassDShow.BASS_DSHOW_StreamCreateFile(TextBox1.Text, BASSFlag.BASS_DEFAULT)
        BassDShow.BASS_DSHOW_ChannelSetWindow(_Stream, PictureBox1.Handle)
        Bass.BASS_ChannelPlay(_Stream, 0)


End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

        Select Case PictureBox1.Height
            Case 167
                PictureBox1.Left = 0
                PictureBox1.Top = 0
                PictureBox1.Height = 600
                PictureBox1.Width = 800
                BassDShow.BASS_DSHOW_ChannelResizeWindow(_Stream, PictureBox1.Left, PictureBox1.Top, PictureBox1.Width, PictureBox1.Height)
            Case 600
                PictureBox1.Left = 204
                PictureBox1.Top = 4
                PictureBox1.Height = 167
                PictureBox1.Width = 393
                BassDShow.BASS_DSHOW_ChannelResizeWindow(_Stream, 0, 0, PictureBox1.Width, PictureBox1.Height)
        End Select
End Sub

Thanks.

very nice effects   
maybe you can do a star wars version 

very nice 

Hi Sharky,

Here are the screenshots.
I'm uploading videos.

Hi Sharky,

I did some tests with various video files.
I prepared an excel file. Maybe you can check it.
(K-lite codec pack 5.90 full version installed, windows XP SP3)
P.S. I can upload/send videos to you if you wish.
Thank you.

Hello friends,

I'm trying to capture/preview camera output via bass_dshow.
If it's possible can someone post a sample code for vb.net ?
P.S. Sound is not necessary just the video (:

DSHOW_REcorder.exe works!
Unfortunately I'm using vb.net I couldn't look at your source code (delphi I think).
I don't want to be rude but I need sample code for vb.net.
Thank you very much for your reply (: