ashley Posted August 3, 2007 Share Posted August 3, 2007 ok i get this error im looking at functions for my mediaplayer... I have neaver got this error before... can anybody help... here the error that i get.. Free icons for your programs Link to comment Share on other sites More sharing options...
mrbond007 Posted August 3, 2007 Share Posted August 3, 2007 ah yes the stack corruption error. If you can post the source code you will get better help. try converting the dll calls using the ":cdecl" option for example instead of : DllCall("SQLite.dll", "int", "sqlite3_open", "str", $sDatabase_Filename , "long_ptr", 0) use : DllCall("SQLite.dll", "int:cdecl", "sqlite3_open", "str", $sDatabase_Filename , "long_ptr", 0) Projects : Space Regain - Memory Fusion - PWGT - Chip-ITGames : BrainPain - BrainPain Director's Cut - ProSpeed Games Pack (New)Vista vs XP : the forbidden fight Link to comment Share on other sites More sharing options...
ashley Posted August 3, 2007 Author Share Posted August 3, 2007 i dont get what u meen... can u just upload a working version for me to put in please... Free icons for your programs Link to comment Share on other sites More sharing options...
mrbond007 Posted August 3, 2007 Share Posted August 3, 2007 i dont get what u meen... can u just upload a working version for me to put in please...Thank was just an example on how you must convert the dll calls inside your script, if you can post your source code than we can help you cause it is your media player after all Projects : Space Regain - Memory Fusion - PWGT - Chip-ITGames : BrainPain - BrainPain Director's Cut - ProSpeed Games Pack (New)Vista vs XP : the forbidden fight Link to comment Share on other sites More sharing options...
ashley Posted August 3, 2007 Author Share Posted August 3, 2007 ok here my scxript for media player: expandcollapse popup#include <GUIConstants.au3> $sound = "NONE" SoundSetWaveVolume(100) #Region ### START Koda GUI section ### Form=c:\documents and settings\windows\desktop\mplayer\gui.kxf $AForm1 = GUICreate("Ashley's MediaPlayer", 633, 447, 193, 115) GUISetBkColor(0xA6CAF0) $AGroup1 = GUICtrlCreateGroup("", 136, 384, 369, 57) $play = GUICtrlCreateButton("Play", 168, 400, 97, 33, $BS_DEFPUSHBUTTON) $stop = GUICtrlCreateButton("Stop", 280, 400, 97, 33, $BS_DEFPUSHBUTTON) $open = GUICtrlCreateButton("open", 384, 400, 99, 33, $BS_DEFPUSHBUTTON) GUICtrlCreateGroup("", -99, -99, 1, 1) $AProgress1 = GUICtrlCreateProgress(16, 361, 590, 15, $PBS_SMOOTH) GUICtrlSetData(-1, 0) GUICtrlSetColor(-1, 0xFF0000) $Nowplaying = GUICtrlCreateLabel("Now playing:", 24, 384, 65, 17) $edit = GUICtrlCreateInput($sound, 8, 408, 113, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $Duration = GUICtrlCreateLabel("", 536, 384, 47, 17, BitOR($SS_CENTERIMAGE,$WS_BORDER,$WS_CLIPSIBLINGS)) $ALabel1 = GUICtrlCreateLabel("This is a pre release...", 160, 64, 318, 41) GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif") $ALabel2 = GUICtrlCreateLabel("Some Functions do not work...", 110, 159, 439, 41) GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $stop GUICtrlSetData($Duration, "Stoping") Sleep(1000) SoundPlay("NONE") GUICtrlSetData($Duration, "Stoped") Case $msg = $open GUICtrlSetData($Duration, "Open") $sound=FileOpenDialog("Open Music File","C:\Documents and Settings\Windows\My Documents\My Music","Music Files(*.mp3;*.wav;*.wma;*.cda)",3) GUICtrlSetData($Duration, "") GUICtrlSetData($edit, $sound) Case $msg = $play GUICtrlSetData($Duration, "Starting") Sleep(100) SoundPlay($sound) GUICtrlSetData($Duration, "Playing") endselect WEnd ;Func r()- just for my notes this will repeate sing ;While 1 ;SoundPlay($sound,1) ;Wend ;endFunc please help me add puase function and make the progress bar be like the one in WMP also could u tell me how to add time form begining and time left... Free icons for your programs Link to comment Share on other sites More sharing options...
mrbond007 Posted August 3, 2007 Share Posted August 3, 2007 (edited) might want to check this player it has all what you want. correct the dll call with this :DllCall("winmm.dll", "int:cdecl", "mciGetErrorStringA", "str", $extended, "str", "", "int", 65534, "hwnd", 0)also check the sound udf mentioned in the help file or go directly hereHope this will help Edited August 3, 2007 by mrbond007 Projects : Space Regain - Memory Fusion - PWGT - Chip-ITGames : BrainPain - BrainPain Director's Cut - ProSpeed Games Pack (New)Vista vs XP : the forbidden fight Link to comment Share on other sites More sharing options...
ashley Posted August 3, 2007 Author Share Posted August 3, 2007 might want to check this player it has all what you want. correct the dll call with this : DllCall("winmm.dll", "int:cdecl", "mciGetErrorStringA", "str", $extended, "str", "", "int", 65534, "hwnd", 0) also check the sound udf mentioned in the help file or go directly here Hope this will helpCan u please just help me... Not tell me where to go... i tried that player it need sound.au3 and mine dont work as mentiond before... so please help Free icons for your programs Link to comment Share on other sites More sharing options...
mrbond007 Posted August 3, 2007 Share Posted August 3, 2007 (edited) Can u please just help me... Not tell me where to go... i tried that player it need sound.au3 and mine dont work as mentiond before... so please helpsorry i can't help you at this moment cause i'm @ work and i don't have access to the installed autoit files. why doesn't your sound.au3 works, it should. ;make a pause button Case $msg = $pause _SoundPause($sound_file) Edited August 3, 2007 by mrbond007 Projects : Space Regain - Memory Fusion - PWGT - Chip-ITGames : BrainPain - BrainPain Director's Cut - ProSpeed Games Pack (New)Vista vs XP : the forbidden fight Link to comment Share on other sites More sharing options...
ashley Posted August 3, 2007 Author Share Posted August 3, 2007 i ran it straight from the help file and i got that error Free icons for your programs Link to comment Share on other sites More sharing options...
ashley Posted August 3, 2007 Author Share Posted August 3, 2007 (edited) sorry i can't help you at this moment cause i'm @ work and i don't have access to the installed autoit files. why doesn't your sound.au3 works, it should. ;make a pause button Case $msg = $pause _SoundPause($sound_file) ok sorry not working here waht i have now expandcollapse popup#include <GUIConstants.au3> #include <Sound.au3> $sound = "NONE" SoundSetWaveVolume(100) #Region ### START Koda GUI section ### Form=c:\documents and settings\windows\desktop\mplayer\gui.kxf $AForm1 = GUICreate("Ashley's MediaPlayer", 633, 447, 193, 115) GUISetBkColor(0xA6CAF0) $AGroup1 = GUICtrlCreateGroup("", 136, 384, 369, 57) $play = GUICtrlCreateButton("Play", 144, 400, 57, 33, $BS_DEFPUSHBUTTON) $stop = GUICtrlCreateButton("Stop", 360, 400, 57, 33, $BS_DEFPUSHBUTTON) $open = GUICtrlCreateButton("open", 424, 400, 59, 33, $BS_DEFPUSHBUTTON) $Pause = GUICtrlCreateButton("Pause", 208, 400, 59, 33, $BS_DEFPUSHBUTTON) $made = GUICtrlCreateLabel("Made by Ashley", 272, 400, 79, 17) $loop = GUICtrlCreateCheckbox("loop", 288, 416, 49, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $AProgress1 = GUICtrlCreateProgress(16, 361, 590, 15, $PBS_SMOOTH) GUICtrlSetData(-1, 0) GUICtrlSetColor(-1, 0xFF0000) $Nowplaying = GUICtrlCreateLabel("Now playing:", 24, 384, 65, 17) $edit = GUICtrlCreateInput($sound, 8, 408, 113, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $Duration = GUICtrlCreateLabel("", 536, 384, 47, 17, BitOR($SS_CENTERIMAGE,$WS_BORDER,$WS_CLIPSIBLINGS)) $ALabel1 = GUICtrlCreateLabel("This is a pre release...", 160, 64, 318, 41) GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif") $ALabel2 = GUICtrlCreateLabel("Some Functions do not work...", 110, 159, 439, 41) GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $stop GUICtrlSetData($Duration, "Stoping") Sleep(1000) SoundPlay("NONE") GUICtrlSetData($Duration, "Stoped") Case $msg = $open GUICtrlSetData($Duration, "Open") $sound=FileOpenDialog("Open Music File","C:\Documents and Settings\Windows\My Documents\My Music","Music Files(*.mp3;*.wav;*.wma;*.cda)",3) GUICtrlSetData($Duration, "") GUICtrlSetData($edit, $sound) Case $msg = $play GUICtrlSetData($Duration, "Starting") Sleep(100) SoundPlay($sound) GUICtrlSetData($Duration, "Playing") ;make a pause button Case $msg = $Pause GUICtrlSetData($Duration, "Pausing") Sleep(100) _SoundPause($sound) GUICtrlSetData($Duration, "Paused") endselect WEnd Edited August 3, 2007 by ashley Free icons for your programs Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now