Hallo zusammen,
ich suche schon seit tagen nach einer Lösung, meine WAV-Datei per TCP/IP, am besten während es aufnimmt, an einen anderen Computer zu senden.
Eine Verbindung zum anderen PC steht schon und komme an dieser stelle einfach nicht weiter.
Könnte mir jemand einen Ansatz geben, wie ich das anstelle?
Danke schon mal im voraus
Gruss Chris
ich suche schon seit tagen nach einer Lösung, meine WAV-Datei per TCP/IP, am besten während es aufnimmt, an einen anderen Computer zu senden.
Eine Verbindung zum anderen PC steht schon und komme an dieser stelle einfach nicht weiter.
Könnte mir jemand einen Ansatz geben, wie ich das anstelle?
Danke schon mal im voraus
Gruss Chris
VB.NET-Quellcode
- Public Class Record
- Dim bits = 16
- Dim samples = 44100
- Dim c = 2
- Dim bytes = (bits * samples * c) / 8
- Public Declare Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, _ ByVal lpstrReturnString As String, ByVal uReturnLength _ As Integer, ByVal hwndCallback As Integer) As Integer
- Public Declare Function PlaySound Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal _ uFlags As Integer) As Integer
- Const Path$ = "C:\test\Test.wav"
- Dim RS, CB
- Public Sub record() If Dir$(Path, vbNormal) <> "" Then Kill(Path) RS = Space$(128)
- mciSendString("SET CAPTURE TIME FORMAT MILLISECONDS BITSPERSAMPLE " & bits _ & " SAMPLESPERSEC " & samples _ & " CHANNELS " & c _ & " BYTESPERSEC " & bytes _ & " ALIGNMENT 4", RS, 128, CB)
- Call mciSendString("open new type waveaudio alias capture", _ RS, 128, CB) Call mciSendString("record capture", RS, 128, CB)
- End Sub
- Public Sub RecStop() RS = Space$(128)
- Call mciSendString("stop capture", RS, 128, CB)
- Call mciSendString("save capture " & Path, RS, 128, CB)
- Call mciSendString("close capture", RS, 128, CB) End Sub
- Public Sub RecPlay()
- mciSendString("SET CAPTURE TIME FORMAT MILLISECONDS BITSPERSAMPLE " & bits & " SAMPLESPERSEC " & samples & " CHANNELS " & c & " BYTESPERSEC " & bytes & " ALIGNMENT 4", RS, 128, CB) Call PlaySound(Path, 0) End Sub
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „crissydge“ ()