Ну а звук-то где? Где звук?!

[Терминатор]

Наконец-то, свершилось. Теперь для проигрывания звука не надо API

Код: Выделить всё

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Player As New Media.SoundPlayer
        Player.SoundLocation = "C:\Ready\hotel.wav"
        Player.LoadAsync()
        If Player.IsLoadCompleted Then Player.Play()
    End Sub

Также легко можно вызвать системный звук.

Код: Выделить всё

System.Media.SystemSounds.Exclamation.Play()

Но как проигрывать звук без звукового файла?
Чтоб было вот так как у известного хакера, с ещё более известного Crack сайта. Тем более получается, что моя форма при загрузке проиграла песенку "Отель Калифорния" и всё. А его форма всё играет и играет. Конечно там мелодия не "ух-ты", но для файла размером 116 клб просто супер.

В чём его секрет?

Свою мелодию и его форму я повесил. Лучше один раз прослушать, чем два раза прочитать.

[Vinechka]

Обычный мидюшник, качество там будет у каждого свое.
А из ресурсов грузить файлик никак?

Но как проигрывать звук без звукового файла?

Наверное также как и читать файл, не открывая его

[Viper]

Гы... можно еще попробовать запустить программу без выполняемого файла... или еще что-нить подобное захотеть

[Терминатор]

А из ресурсов грузить файлик никак?

читать файл, не открывая его

Твой пример. Знал бы - не спрашивал.

1) Вопрос так и остался для меня непонятным.

2) От куда проигрывается эта мелодия и как это делается?

[Viper]

1) Вопрос так и остался для меня непонятным.

боюсь, что это мы не поняли твоего вопроса... а музычка вполне может извлекаться из ресурсов

[Терминатор]

попробовать запустить программу без выполняемого файла... или еще что-нить подобное захотеть

1) Пример с звуковым файлом.
2) Почему проигрывание его звукового файла неприрывное и конца ему не видно, хотя оно не идёт по кругу?

[Viper]

Нет слов...

Хочется уяснить:

1. Что хочет автор?
2. Что автор сделал для реализации своего хотения?
3. Что в процессе реализации непонятно или не получается?

[Терминатор]

1. Что хочет автор?

Проекспемертировать с проигрованием звука при загрузке формы.
Меня интересует тот вариант который для меня непонятен. Пример Вы видели.

2. Что автор сделал для реализации своего хотения??

К сожалению, я не знаю с чего начать. Тот вариант, который я уже испробовал, (его код Вы тоже можете видеть) меня устраивает, но хочу узнать больше о возможностях проигрования звука и реализовать это на практике.. Для получения помоши или примера, обратился на этот форум.

3. Что в процессе реализации непонятно или не получается?

Не получается конструктивного диалога. Если у Вас нет примера, то на "нет" и суда нет... Если есть, то по-прежнему Вы имеете право проигнорировать меня, и сказать " ищи сам...". Ведь Вы мне ничего не должны.
У меня была мысль, что форум - это место где я могу задать вопрос на тему, которую я не знаю.
Вы пишите -

а музычка вполне может извлекаться из ресурсов

Если это относится к примеру который и прикрепил (файл keygen) то будте так добры, продемонстрировать, так сказать подтвердить свои слова кодом.
Если это занимает у Вас время, тогда извините ...

[Роман-вб]

Этот пример правда с использованием API:
Добавляешь ресурс Project--Add New Item--Resources file
Добавляешь туда свой муз. файл (MuzykalFail)

Код: Выделить всё

Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bAudioArr() As Byte
        Dim f As Integer
        ReDim bAudioArr(UBound(My.Resources.Resource1.MuzykalFail))

        bAudioArr = My.Resources.Resource1.MuzykalFail
        f = FreeFile()
        On Error Resume Next
        FileOpen(f, "C:\Music.mp3", OpenMode.Binary, OpenAccess.Write)
        FilePut(f, bAudioArr)
        FileClose(f)
        Call mciExecute("play C:\Music.mp3")

    End Sub

    Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        Kill("C:\Music.mp3")
    End Sub

[Роман-вб]

Вопрос к тем, кто знает:
Можно ли без API проигрывать файлы кроме *.wav? Если да, то как?

[Sebas]

Роман-вб

Банальный поиск!

1. На форуме был пример воспроизведения из ресурсов без сохранения на диск.
2. На форуме было обсуждение по поводу других форматов. Как ты сам можешь увидеть - возможно воспроизведение из потока. Соответственно тебе нужно для каждого формата найти соотвественный DecoderStream

[Роман-вб]

Sebas

На форуме был пример воспроизведения из ресурсов без сохранения на диск

Tckb djpvj;yj? lfq ccskre? gj;fkeqcnf/

[Sebas]

Ищи в гугле mp3sharp.

Или поставь Managed DirectX

[Ramzes]

Ищи в гугле mp3sharp.

Или поставь Managed DirectX

mp3csharp использует DX, а можно ли воспроизвести mp3 без него?