Jump to content

error in help file


Recommended Posts

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)
Link to comment
Share on other sites

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 :)
Link to comment
Share on other sites

ok here my scxript for media player:

#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...

Link to comment
Share on other sites

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 help

Edited by mrbond007
Link to comment
Share on other sites

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 help

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 help

Link to comment
Share on other sites

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 help

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)
Edited by mrbond007
Link to comment
Share on other sites

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

#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 by ashley
Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...