title image


Smiley hier ist der source
hi !hier ist der source, um via API eine WAV-Datei aufzunehmen, und zwar sowohl von mikrofon als auch von CD.(erklärung des autors:)Und wieder ein paar weitere Funktionen des Tausendsassas mciSendString. Dieser Tip zeigt wie recht unkompliziert wav Dateien beliebigen Ursprungs aufgenommen werden können. Allerdings ließ bei mir die Aufnahmequalität sehr zu wünschen übrig. Vermutlich liegt dies an irgendeiner voreingestellten Sampling-Rate. Vielleicht hat jemand einen Tip wie sich die Sampling-Rate per Programm einstellen läßt.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 Private Declare Function PlaySound Lib "winmm.dll"Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal _ uFlags As Long) As Long Const Path$ = "c:\Test.wav" Dim RS$, CB& Private Sub Command1_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) Command1.Enabled = False Command2.Enabled = True Command3.Enabled = True Command4.Enabled = FalseEnd Sub Private Sub Command2_Click() If Command2.Caption = "Aufnahme Pause"Then Call mciSendString("pause capture", RS, 128, CB) Command2.Caption = "Aufnahme Weiter" Command1.Enabled = False Command3.Enabled = False Command4.Enabled = False Else Call mciSendString("record capture", RS, 128, CB) Command2.Caption = "Aufnahme Pause" Command1.Enabled = False Command3.Enabled = True Command4.Enabled = False End IfEnd Sub Private Sub Command3_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) Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False Command4.Enabled = TrueEnd Sub Private Sub Command4_Click() Call PlaySound(Path, 0) Command1.Enabled = True Command2.Enabled = False Command3.Enabled = FalseEnd Subquelle: activeVB.deciaozvk

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: