PureBasic Forums - English

Hi,

a fast coded test:

#Filename$ = "c:\tmp\bkk.wav"



mciSendString_("close MediaFile", #Null, 0, #Null)


error = mciSendString_("open " + #DQUOTE$ + #FileName$ + #DQUOTE$ + " alias MediaFile", #Null, 0, #Null)
If error = 0

error = mciSendString_("play MediaFile", #Null, 0, #Null)
If ...

So you mean not debug,
you mean:

Show me a working example code which makes use of the status mciSendString_() parameter.

Is this correct?

You know that this will never work with the Demo version of PB?

debug is to correct wrong code of a program. yes, i know that. am not on demo. i want to ...

Sorry, no.

Because this code is not working.
So what should I debug :?:

hello, to debug means make it work using mci_status_mode and mci_mode_play or pause using the correct pb code. i found examples in other programming languages but not in pb. the aim is to pause a sound when it's played and ...

hello friends, please can someone debug this piece of code

If file
IF mci("status "+file) = mci_mode_play
mci("pause "+file)
elseif mci("status "+file) = mci_mode_pause
mci("resume "+file)
endif
endif


i don't know how to combine mci_status_mode with the constant mci_mode_play or pause to work ...

Life is much easier with the full version and having direct access to API commands.
Best to buy full version :)


#Lib=0

Procedure.i Mci(command.s)
buffer.s=Space(256)
ProcedureReturn CallFunction(#Lib,"mciSendStringW",@command,@buffer,256,0)
EndProcedure

If OpenLibrary(#Lib, "winmm.dll ...

User_Russian wrote:

khalidel wrote:but have you tested it because it is still not accepted in demo.

Yes. I tested in demo 5.50 Win x86 and 5.70 Win x86. The code compiled without errors and worked fine.

sorry you are right. it works well with demo. best regards

Prototype mciSendString(lpszCommand.p-unicode, *lpszReturnString=0, *cchReturn=0, *hwndCallback=0)

If OpenLibrary(0, "winmm.dll")
mci.mciSendString = GetFunction(0, "mciSendStringW")
If mci
File.s = OpenFileRequester("", "", "Music|*.wav;*.mp3", 0)
If File
mci(~"open \""+File+~"\" type ...

very nice. thank you very much. i adapt this code to mine with some changes and it works fine. i change delay(100) to delay(1000) and i use the procedure to count elapsed time, then i add some calculations to case thread to get minutes and seconds.

hey programmers, i run a program with runprogram and i want to show a waiting message like "please wait) because waitprogram freezes the system and i tried with while but still blocking.

p = RunProgram("prog.exe", "/?", "", #PB_program_open|#pb_program_hide)
if p
while programrunning(p ...

hello friends, thank you. so can you help with this uncomplete code please debug this code to work on demo.
regards

Olliv wrote:You cannot use them without buying the license.

thank you for your reply

hello pb family, i am a new user of pb just one month and i often face this term mci so : 1/ what is mci? 2/ can i use it as pb demo user? 3/ if yes, how can i use it?
best regards

When playing with images or drawings I allways prefer to see what is going on.

Create a window with an image gadget to load your created image. Allways run the code with debugger enabled.

This code creates a window loads bouquet.jpg shows what you have drawn then saves into the same folder as the ...

@khalidel
Try the next snippet
Your image will be saved into your Home Directory because maybe you are not authorized to Save in your Current Directory

UseJPEGImageDecoder()
UseJPEGImageEncoder()
LoadImage(0, "bouquet.jpg")

If CreateImage(1, 600, 600,24,$FFFFFF)
StartDrawing(ImageOutput(1 ...

Does the loading succeed? can you see it in the library viewer? (enable the debugger)
UseJPEGImageDecoder()
LoadImage(0, "bouquet.jpg") ; image existing at the same folder

Debug IsImage(0)
ShowLibraryViewer("image", 0)
CallDebugger

If CreateImage(1, 600, 600) And StartDrawing(ImageOutput(1 ...