Gibt es eigentlich eine möglichkeit etwas aufzunehmen ? Autoit bringt ja mehrere _sound funktionen mit. Nur gibt es leider keine möglichkeit etwas aufzunehmen.
Ausserdem würde ich mit _sounplay gerne 2 mp3 abspielen was auch gut funktioniert, wobei ich die lautstärke von beiden regulieren will geht das? setvolume setzt ja allgemein gibt es eine möglichkeit einzeln auch einzustellen ?
Sound record und volume?
-
- [ offen ]
-
Tam0r -
7. Juni 2007 um 15:55 -
Geschlossen -
Erledigt
-
-
- Offizieller Beitrag
Hi,
Spoiler anzeigen
[autoit];===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _MediaOpen()
; Description: Opens a media file.
; Parameter(s): $s_location - Location of the media file
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns Media ID needed for the other media functions
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaOpen($s_location, $h_guihandle = 0)
If Not IsDeclared("i_MediaCount") Then Global $i_MediaCount=0
$i_MediaCount=$i_MediaCount+1
DllCall("winmm.dll","int","mciSendString","str","open "&FileGetShortName($s_location)&" alias media"&String($i_MediaCount),"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return String($i_MediaCount)
EndIf
EndFunc
;===============================================================================
;
; Function Name: _MediaCreate()
; Description: Creates a new media for recording, capturing etc.
; Parameter(s): $s_format - Format of the file.
; 0 = CD Audio
; 1 = Digital video
; 2 = Overlay
; 3 = sequencer
; 4 = Vcr
; 5 = Video disc
; 6 = Wave Audio
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns Media ID needed for the other media functions
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaCreate($s_format)
If Not IsDeclared("i_MediaCount") Then Global $i_MediaCount=0
$i_MediaCount=$i_MediaCount+1
If $s_format=0 Then
$s_Use="cdaudio"
ElseIf $s_format=1 Then
$s_Use="digitalvideo"
ElseIf $s_format=2 Then
$s_Use="overlay"
ElseIf $s_format=3 Then
$s_Use="sequencer"
ElseIf $s_format=4 Then
$s_Use="vcr"
ElseIf $s_format=5 Then
$s_Use="videodisc"
ElseIf $s_format=6 Then
$s_Use="waveaudio"
EndIf
DllCall("winmm.dll","int","mciSendString","str","open new type "&$s_Use&" alias media"&String($i_MediaCount),"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return String($i_MediaCount)
EndIfEndFunc
[/autoit]
;===============================================================================
;
; Function Name: _MediaPlay()
; Description: Plays a opened media file.
; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate()
; [optional] $i_From - Sets time in seconds where to begin playing
; [optional] $i_To - Sets time in seconds where to bstop playing
; [optional] $i_Speed - Sets the speed to play with
; [optional] $f_Fast - When 1 it will play faster then normal
; [optional] $f_Slow - When 1 it will play slower then normal
; [optional] $f_Fullscreen - When 1 movies will play fullscreen
; [optional] $f_Repeat - When 1 it will keep repeating
; [optional] $f_Reverse - When 1 the movie will been played reversed
; [optional] $f_Scan - When 1 plays as fast as possible
; The default value of all the optional parameters is 0.
; Some file formats dont understand some of the optional functions
; Experimate with it.
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaPlay($i_MediaId,$i_From = 0,$i_To = 0,$i_Speed = 0,$f_Fast = 0,$f_Slow = 0,$f_Fullscreen = 0,$f_Repeat=0,$f_Reverse=0,$f_Scan = 0)
$s_Parameters=""
If $i_From Then $s_Parameters=$s_Parameters&" from "&$i_From
If $i_To Then $s_Parameters=$s_Parameters&" to "&$i_To
If $i_Speed Then $s_Parameters=$s_Parameters&" speed "&$i_Speed
If $f_Fast Then $s_Parameters=$s_Parameters&" fast"
If $f_Fullscreen Then $s_Parameters=$s_Parameters&" fullscreen"
If $f_Repeat Then $s_Parameters=$s_Parameters&" repeat"
If $f_Reverse Then $s_Parameters=$s_Parameters&" reverse"
If $f_Scan Then $s_Parameters=$s_Parameters&" scan"
If $f_Slow Then $s_Parameters=$s_Parameters&" slow"
DllCall("winmm.dll","int","mciSendString","str","play media"&$i_MediaId&$s_Parameters,"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFunc
;===============================================================================
;
; Function Name: _MediaRecord()
; Description: Records from a microphone
; Stop recording with _MediaStop()
; (choose position with _MediaSeek())
; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate()
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaRecord($i_MediaId)
DllCall("winmm.dll","int","mciSendString","str","record media"&$i_MediaId,"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFunc
;===============================================================================
;
; Function Name: _MediaCut()
; Description: Cuts a specified part of the movie to the clipboard.
; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate()
; $i_From - From time in seconds
; $i_To - To time in seconds
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaCut($i_MediaId,$i_From,$i_To)
DllCall("winmm.dll","int","mciSendString","str","cut media"&$i_MediaId&" from "&$i_From&" to "&$i_To,"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFunc
;===============================================================================
;
; Function Name: _MediaCopy()
; Description: Copies a specified part of the movie to the clipboard.
; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate()
; $i_From - From time in seconds
; $i_To - To time in seconds
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaCopy($i_MediaId,$i_From,$i_To)
DllCall("winmm.dll","int","mciSendString","str","copy media"&$i_MediaId&" from "&$i_From&" to "&$i_To,"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFunc
;===============================================================================
;
; Function Name: _MediaPaste()
; Description: Paste media from the clipboard.
; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate()
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaPaste($i_MediaId,$i_From,$i_To)
DllCall("winmm.dll","int","mciSendString","str","paste media"&$i_MediaId,"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFunc
;===============================================================================
;
; Function Name: _MediaDelete()
; Description: Deletes a specified part of the movie.
; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate()
; $i_From - From time in seconds
; $i_To - To time in seconds
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaDelete($i_MediaId,$i_From,$i_To)
DllCall("winmm.dll","int","mciSendString","str","delete media"&$i_MediaId&" from "&$i_From&" to "&$i_To,"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFunc
;===============================================================================
;
; Function Name: _MediaCapture()
; Description: Copies the contents of the frame buffer and stores it in the
; specified file.
; Stop recording with _MediaStop()
; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate()
; $s_Location - Location where to store the file.
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaCapture($i_MediaId,$s_Location)
DllCall("winmm.dll","int","mciSendString","str","capture media"&$i_MediaId&" "&FileGetShortName($s_Location),"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFunc
;===============================================================================
;
; Function Name: _MediaStop()
; Description: Stops playing/recording of a Media ID
; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate()
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaStop($i_MediaId)
DllCall("winmm.dll","int","mciSendString","str","stop media"&$i_MediaId,"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFunc
;===============================================================================
;
; Function Name: _MediaSeek()
; Description: Moves to a specified Position and stops.
; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate()
; $i_Position - Position in seconds to move to, -1 goes to start
; -2 goes to end
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaSeek($i_MediaId,$i_Position)
If $i_Position = -1 Then
$s_Position = "end"
ElseIf $i_Position = -2 Then
$s_Position = "begin"
Else
$s_Position = String($i_Position)
EndIf
DllCall("winmm.dll","int","mciSendString","str","seek media"&$i_MediaId&" to "&$s_Position,"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFunc
;===============================================================================
;
; Function Name: _MediaPause()
; Description: Pauses playing/recording of a Media ID
; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate()
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaPause($i_MediaId)
DllCall("winmm.dll","int","mciSendString","str","pause media"&$i_MediaId,"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFunc
;===============================================================================
;
; Function Name: _MediaResume()
; Description: Resumes playing/recording of a Media ID
; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate()
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaResume($i_MediaId)
DllCall("winmm.dll","int","mciSendString","str","resume media"&$i_MediaId,"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFunc
;===============================================================================
;
; Function Name: _MediaSave()
; Description: Saves a opened Media ID to the selected file
; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate()
; $s_Location - Location to save to (must be full path)
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaSave($i_MediaId,$s_Location)
DllCall("winmm.dll","int","mciSendString","str","save media"&$i_MediaId&" "&FileGetShortName($s_Location),"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFunc
;===============================================================================
;
; Function Name: _MediaClose()
; Description: Closes a existing Media ID
; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate()
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): svennie
;
;===============================================================================
Func _MediaClose($i_MediaId)
DllCall("winmm.dll","int","mciSendString","str","close media"&$i_MediaId,"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFuncSo long,
Mega
-
thx aber für unterscheidliche volume gibt es nichts oder?
-
- Offizieller Beitrag
Hi,
Spoiler anzeigen
[autoit]#include-once
[/autoit] [autoit][/autoit] [autoit]; ------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;
; AutoIt Version: 3.0
; Language: English
; Description: Functions that assist with Media Manipulation.
;
; Notes: To create the Player Object - $pObj = ObjCreate("WMPlayer.OCX" )
; ------------------------------------------------------------------------------; ====================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Description ..: Opens The Media file in The Player Object
; Parameters ...: $pObj - The Player Object to open the file in.
; $sFilename - Filename of the Media to Open
; Return values : Song Object to be used in other functions
; Author .......: CFire
; Notes ........:
; ====================================================================================================
Func WMOpenFile($pObj, $sFilename)
Return $pObj.newMedia($sFilename)
EndFunc; ====================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Description ..: Sets the Volume of the Player.
; Parameters ...: $pObj - The Player Object
; $iVol - New Volume ( 0 - 100 )
; Return values :
; Author .......: CFire
; Notes ........: Does Not Affect System/Wave Volumes!!
; ====================================================================================================
Func WMSetVolume($pObj, $iVol)
$pObj.settings.volume = $iVol
EndFunc; ====================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Description ..: Returns the Current Volume of The Player
; Parameters ...: $pObj - The Player Object
; Return values : Current Volume ( 0 - 100 )
; Author .......: CFire
; Notes ........:
; ====================================================================================================
Func WMGetVolume($pObj)
Return $pObj.settings.volume
EndFunc; ====================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Description ..: Fast Forwards the Current Playing Media
; Parameters ...: $pObj - The Player Object
; Return values :
; Author .......: CFire
; Notes ........:
; ====================================================================================================
Func WMFastForward($pObj)
$pObj.controls.fastForward()
EndFunc; ====================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Description ..: Rewinds the Current Playing Media
; Parameters ...: $pObj - The Player Object
; Return values :
; Author .......: CFire
; Notes ........:
; ====================================================================================================
Func WMReverse($pObj)
$pObj.controls.fastReverse()
EndFunc; ====================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Description ..: Plays a Media for the first time
; Parameters ...: $pObj - The Player Object
; $sFilename - Filename of the Media to Play
; Return values :
; Author .......: CFire
; Notes ........: This needs to be called only once during the Duration of any Media
; ====================================================================================================
Func WMPlay($pObj, $sFilename)
$pObj.url = $sFilename
while not WMGetState($pObj) = "Playing"
sleep(100)
WEnd
EndFunc; ====================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Description ..: Pauses the Current Playing Media
; Parameters ...: $pObj - The Player Object
; Return values :
; Author .......: CFire
; Notes ........:
; ====================================================================================================
Func WMPause($pObj)
$pObj.controls.pause()
EndFunc; ====================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Description ..: Resumes a Stopped or Paused Media
; Parameters ...: $pObj - The Player Object
; Return values :
; Author .......: CFire
; Notes ........:
; ====================================================================================================
Func WMResume($pObj)
$pObj.controls.play()
EndFunc; ====================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Description ..: Stops the Current Playing Media
; Parameters ...: $pObj - The Player Object
; Return values :
; Author .......: CFire
; Notes ........:
; ====================================================================================================
Func WMStop($pObj)
$pObj.controls.stop()
EndFunc; ====================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Description ..: Sets the Position of the Media
; Parameters ...: $pObj - The Player Object
; $iPos - Position in Seconds
; Return values :
; Author .......: CFire
; Notes ........: No need to call a WMPlay(). This will continue play at the new Position
; ====================================================================================================
Func WMSetPosition($pObj, $iPos)
$pObj.controls.currentPosition = $iPos
EndFunc; ====================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Description ..: Returns the Current Position in the Media
; Parameters ...: $pObj - The Player Object
; Return values : Position in Seconds
; Author .......: CFire
; Notes ........:
; ====================================================================================================
Func WMGetPosition($pObj)
Return $pObj.controls.currentPosition
EndFunc; ====================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Description ..: Returns the Duration / Length of the Media
; Parameters ...: $sObj - The Song Object returned from WMOpenFile()
; Return values : Duration in Seconds
; Author .......: CFire
; Notes ........:
; ====================================================================================================
Func WMGetDuration($sObj)
Return $sObj.GetItemInfo("Duration")
EndFunc; ====================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Description ..: Functions that Get a Property of the Media
; Parameters ...: $sObj - The Song Object returned from WMOpenFile()
; Return values : Specific Property
; Author .......: CFire
; Notes ........:
; ====================================================================================================
Func WMGetArtist($sObj)
Return $sObj.GetItemInfo("Artist")
EndFuncFunc WMGetTitle($sObj)
[/autoit] [autoit][/autoit] [autoit]
Return $sObj.GetItemInfo("Title")
EndFuncFunc WMGetAlbum($sObj)
[/autoit] [autoit][/autoit] [autoit]
Return $sObj.GetItemInfo("Album")
EndFuncFunc WMGetBitrate($sObj)
[/autoit] [autoit][/autoit] [autoit]
Return $sObj.GetItemInfo("Bitrate")
EndFuncFunc WMGetMediaType($sObj)
[/autoit] [autoit][/autoit] [autoit]
Return $sObj.GetItemInfo("MediaType")
EndFuncFunc WMGetFileSize($sObj)
[/autoit] [autoit][/autoit] [autoit]
Return $sObj.GetItemInfo("FileSize")
EndFuncFunc WMGetFileType($sObj)
[/autoit] [autoit][/autoit] [autoit]
Return $sObj.GetItemInfo("FileType")
EndFuncFunc WMGetCategory($sObj)
[/autoit] [autoit][/autoit] [autoit]
Return $sObj.GetItemInfo("WM/Category")
EndFuncFunc WMGetGenre($sObj)
[/autoit] [autoit][/autoit] [autoit]
Return $sObj.GetItemInfo("WM/Genre")
EndFuncFunc WMGetYear($sObj)
[/autoit] [autoit][/autoit] [autoit]
Return $sObj.GetItemInfo("WM/Year")
EndFuncFunc WMGetState($pObj)
[/autoit]
$sStates = "Undefined,Stopped,Paused,Playing,ScanForward,ScanReverse,Buffering,"
$sStates &= "Waiting,MediaEnded,Transitioning,Ready,Reconnecting"
$aStates = StringSplit($sStates,",")
$iState = $pObj.playState()
return $aStates[$iState]
EndFuncSo long,
Mega
-
n1 danke
-
- Offizieller Beitrag
HI,
kein Problem. Anwedungsbeispiele findest du im Eng-Forum, falls du den Einstieg nicht findest.
So long,
Mega