Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: mciSendString als stream
Autor: Firestone
Datum: 15.02.08 11:31
Hallo Martoeng, anbei der Code wie er bis jetzt steht. Ich würde gern wissen wie ich den Datenstrom (oder was das ist) welcher in RS geschrieben wird, direkt an den Client senden kann um dort entweder direkt mit dem Mediaplpayer den Sound zu hören, oder als WAV zu speichern. Geht das irgendwie über einen Puffer oder so? Vielen Dank. mfg Fire ----------------------------------------------------------------------------------------------------------------- Sound aufnehmen: Option Explicit Private Declare Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, _ ByVal lpstrReturnString As String, ByVal uReturnLength _ As Long, ByVal hwndCallback As Long) As Long Const Path$ = "c:\Test.wav" Dim RS$, CB& Private Sub cmdAufnahme_Click() If Dir$(Path, vbNormal) <> "" Then Kill Path RS = Space$(128) Call mciSendString("open new type waveaudio alias capture", RS, 128, CB) Call mciSendString("record capture", RS, 128, CB) End Sub Private Sub cmdSpeichern_Click() 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 ---------------------------------------------------------------------------------------------------------------- Client: Option Explicit Private Sub Command1_Click() Winsock1.Close Winsock1.RemoteHost = Text1.Text Winsock1.RemotePort = Text2.Text Winsock1.Connect End Sub Private Sub Command3_Click() Winsock1.Close End Sub Private Sub Timer1_Timer() Dim Status As String Status = Winsock1.State Select Case Status Case 7 Label1.Caption = "Der Socket hat sich zu dem Remote verbunden" 'Ein Befehl plus Text werden gesendet Winsock1.SendData "msg" & "Hallo" Case 9 Winsock1.Close End Select End Sub Private Sub Winsock1_Close() Command1.Enabled = True End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Result As String Winsock1.GetData Result Select Case Left(Result, 3) 'Befehlsauswertung Case "msg" 'Chat Befehl Text3.Text = Text3.Text & "Server: " & Mid(Result, 4) & vbCrLf Text3.SelStart = Len(Text3.Text) End Select End Sub --------------------------------------------------------------------------------------------------------- Server: Option Explicit Dim i Private Sub Form_Load() Winsock1.Close Winsock1.LocalPort = 6444 Winsock1.Listen End Sub Private Sub Timer1_Timer() Dim Status As String i = i + 1 Status = Winsock1.State 'Label1 gibt den Status wieder Select Case Status Case 7 Label1.Caption = "Der Socket hat sich zu dem Remote verbunden" 'Ein Befehl plus Text werden gesendet Winsock1.SendData "msg" & "Daten " & i Case 8 Label1.Caption = "Der Remote hat die Verbindung getrennt" 'winsock wird geschlossen Winsock1.Close 'Der Port für den Server wird definiert Winsock1.LocalPort = 6444 'Server wartet auf einen Verbindung Winsock1.Listen End Select End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) 'Winsock wird geschlossen da es noch 'auf verbindungen wartet Winsock1.Close 'Eine Verbindung wird akzeptiert Winsock1.Accept requestID End Sub

mciSendString als stream	2.180	Firestone	13.02.08 12:39
Re: mciSendString als stream	1.216	Martoeng	14.02.08 23:40
Re: mciSendString als stream	1.335	Firestone	15.02.08 11:31
Re: mciSendString als stream	1.407	Martoeng	15.02.08 11:44
Re: mciSendString als stream	1.213	Firestone	15.02.08 20:19
Re: mciSendString als stream	1.273	Martoeng	15.02.08 23:15

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen