vb5-mmcontrol1- wer kann helfen!?!?!?!wcm???

[nordbahnfredi]

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