Hallo,
hatte das gleiche Problem und habe es wie folgt gelöst:
- im Netz rumgesucht etliches runtergeladen nix
funktionierte, meist wegen Kopierschutz
- bei PureArea.net das Programm waverecorder runtergeladen
- etwas modifiziert
- Programm gestartet, Film laufen lassen
- Datei im Wav-Format gespeichert und gebrannt
einwandfrei gelaufen und um Kopierschutz habe ich mir keinen
Kopf machen müssen.
Code: Alles auswählen
;
; ------------------------------------------------------------
;
; www.purearea.net (Sourcecode collection by cnesm)
; Author:
; Date: 29. October 2003
; modifiziert by bernd May 2006
; ------------------------------------------------------------
;
If InitKeyboard() And InitSprite() = 0
MessageRequester("Error", "Can't initialize Keybord !", 0)
End
EndIf
MessageRequester("Info","Click OK um in c:\test.wav aufzunehmen bis Taste gedrückt wird",0)
RecordWav("c:\test.wav")
MessageRequester("Info","Fertig!",0)
Procedure RecordWav(filename$)
buffer$=Space(128) : DeleteFile_(filename$)
mciSendString_("open new type waveaudio alias capture",buffer$,128,0)
mciSendString_("set capture samplesperbuffer 8000 bytesperbuffer 8000",0,0,0)
mciSendString_("record capture",buffer$,128,0)
;Sleep_(ms) ; Wait for specified capture time to end.
If OpenScreen(800,600,16,"Waverecorder ")
ExamineKeyboard()
Repeat
Until KeyboardPushed(#PB_Key_All)
EndIf
mciSendString_("save capture "+filename$,buffer$,128,0)
EndProcedure
;
; ExecutableFormat=Windows
; EOF
wahrscheinlich PB 3.94 hab es eben getestet und unter 4.00 läuft es bei mir nicht! Vielleicht findest Du ja den Code bei Andre schon in einer vierer Version!
Einfache und gute Lösung fand ich damals wie heute!
Zu der Qualität kann ich nichts sagen, für meinen Zweck damals war
es OK!
bis bald bernd