Hallo Sonic!
Vorerst habe ich das Problem mit Hilfe von FILECOPY gelöst, siehe Beispiel:
Option Explicit
Private Sub cmd_datei_sichern_Click()
Call sichern
End Sub
Private Sub cmd_ende_Click()
End
End Sub
Private Sub cmd_start_Click()
Print Time
uhr = Date & "/" & Time
vgluhr = Date & "_" & Time
vgluhr.SelStart = 0
vgluhr.SelLength = 3
uhr.SelStart = 6
uhr.SelLength = 2
vgluhr.SelText = uhr.SelText & "-"
vgluhr.SelStart = 5
vgluhr.SelLength = 3
uhr.SelStart = 0
uhr.SelLength = 2
vgluhr.SelText = "-" & uhr.SelText
vgluhr.SelStart = 11
vgluhr.SelLength = 1
vgluhr.SelText = "-"
vgluhr.SelStart = 14
vgluhr.SelLength = 1
vgluhr.SelText = "-"
MMControl1.filename = "d:\rec" & vgluhr & ".wav"
'In diesem Beispiel wird die FileCopy-Anweisung verwendet,
'um eine Datei in eine andere Datei zu kopieren.
'Im Rahmen dieses Beispiels wird angenommen,
'daß die Datei QUELLDAT vorhanden ist und Beispieldaten enthält.
'HINWEIS:
'Die Datei QUELLDAT wurde mit Creative WaveStudio erstellt.
Dim Quelldatei, Zieldatei
Quelldatei = "d:\LeeresWav.wav" ' Namen der Quelldatei festlegen.
Zieldatei = MMControl1.filename ' Namen der Zieldatei festlegen.
FileCopy Quelldatei, Zieldatei ' Quell- in Zieldatei kopieren.
Form1.Caption = MMControl1.filename
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.Command = "open"
End Sub
Private Sub sichern()
Print "*** sichern ***"
MMControl1.Command = "Save"
Print "*** gesichert ***"
End Sub
Private Sub Form1_Load()
'---------------
End Sub
Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Close"
End Sub
Private Sub MMControl1_prevClick(Cancel As Integer)
MMControl1.Command = "prev"
MMControl1.RecordEnabled = True
MMControl1.PlayEnabled = True
MMControl1.StopEnabled = True
End Sub
' Mit diesem Ereignis kann eine Anwendung die
' Anzeige aktualisieren, um den Benutzer über
' den Zustand des aktuellen MCI-Geräts zu
' informieren. Die Anwendung kann
' Zustandsinformationen von Eigenschaften
' wie Position, Length und Mode abrufen.
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Sub MMcontrol1_StatusUpdate()
Form1.Caption = MMControl1.Position & "*" & MMControl1.Length
End Sub
Private Sub MMControl1_PlayClick(Cancel As Integer)
MMControl1.Command = "play"
MMControl1.PlayEnabled = False
MMControl1.RecordEnabled = False
MMControl1.PrevEnabled = False
MMControl1.StopEnabled = True
End Sub
Private Sub MMControl1_RecordClick(Cancel As Integer)
MMControl1.Command = "record"
MMControl1.RecordEnabled = False
MMControl1.PlayEnabled = False
MMControl1.PrevEnabled = False
MMControl1.StopEnabled = True
End Sub
Private Sub MMControl1_StopClick(Cancel As Integer)
MMControl1.Command = "stop"
MMControl1.RecordEnabled = True
MMControl1.PlayEnabled = True
MMControl1.PrevEnabled = True
MMControl1.StopEnabled = False
End Sub
Herzlichen Dank für die Hilfe und bis bald
Nordbahnfredi
|