bass.dll Aufnahme mit Button stoppen

RodFromGermany · 1. August 2012, 17:06

Hier mal mein Code:

Imports Un4seen.Bass
Imports System.IO
Public Class Form1
Public stream As Integer
Public fs As System.IO.FileStream = Nothing
Public myDownloadProc As DOWNLOADPROC
Public data() As Byte
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BassNet.Registration("@@@@@", "#######")
Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_CPSPEAKERS, IntPtr.Zero, Nothing)
End Sub
Private Sub MyDownload(ByVal buffer As IntPtr, ByVal length As Integer, ByVal user As IntPtr)
If fs Is Nothing Then
' Datei erzeugen
fs = File.OpenWrite("C:\Temp\bass\Test.mp3")
End If
If buffer = IntPtr.Zero Then
' Download fertig
fs.Flush()
fs.Close()
Else
' Größe des Buffers anpassen
If data Is Nothing OrElse data.Length < length Then
data = New Byte(length) {}
End If
' Speicher in Buffer kopieren
System.Runtime.InteropServices.Marshal.Copy(buffer, data, 0, length)
' In Datei schreiben
fs.Write(data, 0, length)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
myDownloadProc = New DOWNLOADPROC(AddressOf MyDownload)
Dim url As String = "http://85.239.108.41/90elf_rp01"
stream = Bass.BASS_StreamCreateURL(url, 0, BASSFlag.BASS_STREAM_AUTOFREE, myDownloadProc, 0)
Bass.BASS_ChannelPlay(stream, True)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Bass.BASS_Stop()
End Sub
End Class