Undesirable pause when playing audio

[AndreyS]

Dear developers are faced with the problem of who is trying to resolve already probably a few weeks. I decided to address you as a specialist.

The challenge is to program to lose two parts audio record split in half. As much as I tried to do it and whatever function is not used, there is always a delay and audible pause at the beginning of the launch of the second part.

Note also that the weaker processor and the larger the file size, the more pause.

How can I play the two parts together so that there is no audible pause and transition? It is necessary to implement it.

 

#include <Sound.au3>

Dim $SFile1 = _SoundOpen("1-1.mp3")
Dim $SFile2 = _SoundOpen("1-2.mp3")

_SoundPlay($SFile1,1)
_SoundPlay($SFile2,1)

Please help me solve it. Thank you!

1.mp3

1-1.mp3

1-2.mp3

[InunoTaishou]

I couldn't hear a *noticable* pause doing it this way

#include <Sound.au3>

Dim $SFile1 = _SoundOpen("1-1.mp3")
Dim $SFile2 = _SoundOpen("1-2.mp3")

Local $iWaitTime = _SoundLength($SFile1, 2)

_SoundPlay($SFile1,0)

Sleep($iWaitTime - 100)

_SoundPlay($SFile2,1)

Edited March 22, 2016 by InunoTaishou

[AndreyS]

Thank you for your attention and participation!
Such a decision, I also tried to apply. Clicks on the transition. In addition, the pause on different computers will be different. You have perfect sound with a value of 100. And I heard a click.
We need the best and universal solution.

[BrewManNH]

 

_Soundplay is very basic, you're asking too much from it.

[MuffinMan]

@AndreyS,

Have you tried concatenating the files before playing?  I downloaded the 2 files and from a DOS prompt ran

copy /b 1-1.mp3 + 1-2.mp3 final.mp3

and played final.mp3 through my PC with no perceptible skip glitch or pause between the 2 9 second tracks.  You should be able to script that pretty easily.

 

Try this...

#include <Sound.au3>

Dim $SFile1 = "1-1.mp3"
Dim $SFile2 = "1-2.mp3"

RunWait(@ComSpec & " /c copy /b " & $Sfile1 & " + " & $SFile2 & " final.mp3")

$Final = _SoundOpen("final.mp3")
_SoundPlay($Final,1)

 

Edited March 22, 2016 by MuffinMan
added code

[AndreyS]

They can not connect. They are specifically and broke up at the beginning. This is just an example. There will be a lot of pieces that will be played in a very different order. Besides, I did not want to have a hard disk and CPU load such file operations. 
Thank you, MuffinMan, for your participation!

 

Wow! This is something very powerful too! Thank you, BrewManNH, for your participation and the link!
I tried to implement my problem with this UDF.
Maybe I did something wrong, but I still audible clicking. Tell me, please, how to better implement it.

expandcollapse popup

#include <Bass.au3>
#include <BassConstants.au3>

Global $playing_state = -1
;Open Bass.DLL.  Required for all function calls.
_BASS_STARTUP ("BASS.dll")

;Initalize bass.  Required for most functions.
_BASS_Init(0, -1, 44100, 0, "")

;Check if bass iniated.  If not, we cannot continue.
If @error Then
    MsgBox(0, "Error", "Could not initialize audio")
    Exit
EndIf

;Prompt the user to select a MP3 file
$file1 = FileOpenDialog("Open...", "", "MP3 Files (*.mp3)")
$file2 = FileOpenDialog("Open...", "", "MP3 Files (*.mp3)")

;Create a stream from that file.
$MusicHandle1 = _BASS_StreamCreateFile(False, $file1, 0, 0, 0)
$MusicHandle2 = _BASS_StreamCreateFile(False, $file2, 0, 0, 0)

;Iniate playback
_BASS_ChannelPlay($MusicHandle1, 1)
$song_length = _BASS_ChannelGetLength($MusicHandle1, $BASS_POS_BYTE)
While _BASS_ChannelGetPosition($MusicHandle1, $BASS_POS_BYTE)<>$song_length
WEnd

_BASS_ChannelPlay($MusicHandle2, 1)
$song_length = _BASS_ChannelGetLength($MusicHandle2, $BASS_POS_BYTE)
While _BASS_ChannelGetPosition($MusicHandle2, $BASS_POS_BYTE)<>$song_length
WEnd


Func OnAutoItExit()
    ;Free Resources
    _BASS_Free()
EndFunc   ;==>OnAutoItExit

 

Edited March 22, 2016 by AndreyS

[Danyfirex]

Hi. You can do something like this.

expandcollapse popup

#include <Bass.au3>
#include <BassConstants.au3>
#include <WinAPI.au3>
Global $playing_state = -1
;Open Bass.DLL.  Required for all function calls.
_BASS_STARTUP("BASS.dll")

;Initalize bass.  Required for most functions.
_BASS_Init(0, -1, 44100, 0, "")

;Check if bass iniated.  If not, we cannot continue.
If @error Then
    MsgBox(0, "Error", "Could not initialize audio")
    Exit
EndIf

;Prompt the user to select a MP3 file
$sFilePath1 = FileOpenDialog("Open...", "", "MP3 Files (*.mp3)")
$sFilePath2 = FileOpenDialog("Open...", "", "MP3 Files (*.mp3)")


Local $iFileSize1 = FileGetSize($sFilePath1)
Local $iFileSize2 = FileGetSize($sFilePath2)

If $iFileSize1 and $iFileSize2 Then

    Local $tBuffer = DllStructCreate("byte StreamFile1[" & $iFileSize1 & "];byte StreamFile2[" & $iFileSize2 & "]")
    Local $pMemory=DllStructGetPtr($tBuffer)
    $tBuffer.StreamFile1=FileRead($sFilePath1)
    $tBuffer.StreamFile2=FileRead($sFilePath2)

    Local $hMusic = _BASS_StreamCreateFile(True, $pMemory, 0, $iFileSize1 + $iFileSize2, 0)
    Local $song_length = _BASS_ChannelGetLength($hMusic, $BASS_POS_BYTE)
    _BASS_ChannelPlay($hMusic, 1)
    While True
        If _BASS_ChannelGetPosition($hMusic, $BASS_POS_BYTE) = $song_length Then ExitLoop
    WEnd

EndIf

Func OnAutoItExit()
    ;Free Resources
    _BASS_Free()
EndFunc   ;==>OnAutoItExit

Saludos

[AndreyS]

Yes, sounds are now together! Thank you! There is hope now!

And you can still somehow simplify the code? You can use only the function of Bass.au3?

And at the end of play audible sounds precipitous ending of the second file 4 times for about 200 ms. Because of what these overtones?

[Danyfirex]

simplify ? It's simple...

I dont understand your point aobut ending...

Saludos

[AndreyS]

Listen to these overtones in the end.

The noise did not pay attention - I wrote the sound from the speakers.

 

 

VOICE160323002.mp3

Edited March 23, 2016 by AndreyS

[Danyfirex]

mmm rare. I tested over Windows 10 and windows 7. I dont have overtones in the end.

 

Saludos

[AndreyS]

)) Maybe just a problem in my Windows 8.1

However, how does this allow?! Function _SoundPlay this effect does not.

[Danyfirex]

mmm I don't think.

When you open 1-1.mp3 and 1-2.mp3 what is your channel length? I got 3105792?

 

Saludos

[AndreyS]

The length is the same: 3105792

[Danyfirex]

Try adding  _Bass_SampleStop after while ends.

Saludos

[AndreyS]

I noticed that other files are no such overtones in the end.
But there is another more serious problem: the processor is loaded to 50% when playing the script and does not shut down.

[Danyfirex]

Simply add sleep in while.

 

While True
        If _BASS_ChannelGetPosition($hMusic, $BASS_POS_BYTE) = $song_length Then ExitLoop
        Sleep(100)
    WEnd

Saludos

[AndreyS]

I understood why the processor so loaded. Because of cycle. It is, in principle, no problem. But for some reason the script does not complete its work at the end? Can not understand.
 

Yes, yes definitely need a sleep()

Edited March 23, 2016 by AndreyS

[AndreyS]

I found the reason that the script is not completed.
Channel does not reach the full length and stops earlier.
What is the problem?

Edited March 23, 2016 by AndreyS

[AndreyS]

Try to please with these two files. The script does not complete its work at the end. What could be the problem?

48-1.mp3

48-2.mp3