1. Уважаемые гости и пользователи форума.
    Администрация настоятельно рекомендует не регистрировать несколько аккаунтов для одного пользователя. При выявлении наличия мультиаккаунтов будут заблокированы все учетные записи данного пользователя.
    Аккаунты, зарегистрированные на временную почту будут также заблокированы.

Модуль BASS 1.4

Модуль для работы с библиотекой BASS.dll

Метки:
  1. Безумный Лорд Администратор

    Регистрация:
    15 июн 2011
    Сообщения:
    734
    Симпатии:
    1.080
    Пол:
    Мужской
    Пользователь Shegorat разместил новый ресурс:

    BASS - Модуль для работы с библиотекой BASS.dll

    Узнать больше об этом ресурсе...
     
    SBalykov нравится это.
  2. Пользователь

    Регистрация:
    28 фев 2018
    Сообщения:
    5
    Симпатии:
    0
    скажите пожалуйста как сделать так что бы музыка стартовала сразу не со 100 процентов тоесть на всю катушку а тише например с процентов 30 или даже 10. заранее спасибо
     
  3. Старожил Супер модератор

    Регистрация:
    5 мар 2016
    Сообщения:
    408
    Симпатии:
    427
    Пол:
    Мужской
    Salamandra,
     
    Последнее редактирование: 8 июл 2019
    Lom - 777 нравится это.
  4. Пользователь

    Регистрация:
    28 фев 2018
    Сообщения:
    5
    Симпатии:
    0
    так а куда это тут вставить . я что то такого даже не нашел
     

    Вложения:

    • bass.zip
      Размер файла:
      6,6 МБ
      Просмотров:
      7
  5. Пользователь

    Регистрация:
    28 фев 2018
    Сообщения:
    5
    Симпатии:
    0
    все спасибо разобрался работает
     
  6. Пользователь

    Регистрация:
    28 фев 2018
    Сообщения:
    5
    Симпатии:
    0
    а еще вопос не подскажите что бы еще и ползунок был на этих 30 процентах звука а то он под сто стоит а когда дотронешься сразу на полную катушку а хотелось наоборот что бы от этих 30 процентов ползунок можно потом двигать плавно до максимальной громкости. помогите как это реализовать. спасибо
     
  7. Старожил Супер модератор

    Регистрация:
    5 мар 2016
    Сообщения:
    408
    Симпатии:
    427
    Пол:
    Мужской
    Salamandra, вроде так:

    Код (Text):
    //#define BASS_CurrentTime
    #include "botva2.iss"
    #include "BASS_Module.iss"
    [Setup]
    AppName=BadExample
    AppVerName=BadExample
    CreateAppDir=no

    [Files]
    Source: BASS_Files\*;  DestDir: {tmp}; Flags: dontcopy
    Source: Music.mp3;  DestDir: {tmp}; Flags: dontcopy

    [Code]
    // Процедура для изменения громкости
    // Можно добавить в сам модуль BASS_Module.iss
    //------------------------------------------------------------------------------
    procedure BASS_SetVolume(Pos: DWORD);
    var
      nLeft, bLeft, bTop, bWidth, bHeight: Integer;
    begin
      if (Pos >= 0) and (Pos <= 100) then begin
      BASSChangePos(Pos);
      nLeft:= BASS_VolBar.MinLeft + round(BASS_VolBar.BarWidth*BASS_Cfg.Volume/100);
      if (nLeft<BASS_VolBar.MinLeft) then nLeft:= BASS_VolBar.MinLeft;
      if (nLeft>BASS_VolBar.MaxLeft) then nleft:= BASS_VolBar.MaxLeft;
      BtnGetPosition(BASS_VolBar.BarDote, bLeft, bTop, bWidth, bHeight);
      BtnSetPosition(BASS_VolBar.BarDote, nLeft, bTop, bWidth, bHeight);
      ImgApplyChanges(BASS_VolBar.Parent); // вроде не нужно, но навсякий написал
     end;
    end;
    //------------------------------------------------------------------------------
    procedure InitializeWizard;
    begin
      ExtractTemporaryFile('BASS.dll');
      ExtractTemporaryFile('CallbackCtrl.dll');
      ExtractTemporaryFile('botva2.dll');
      ExtractTemporaryFile('volmax.png');
      ExtractTemporaryFile('volmin.png');
      ExtractTemporaryFile('volpb.png');
      ExtractTemporaryFile('volpbt.png');
      ExtractTemporaryFile('voldote.png');
      ExtractTemporaryFile('Music.mp3');

      BASS_Init('{tmp}\Music.mp3');

      BASS_CreateMediaPlayer(WizardForm, '{tmp}\volmax.png', '{tmp}\volmin.png', '{tmp}\volpb.png', '{tmp}\volpbt.png', '{tmp}\voldote.png', 20, 320, 150, True);
      BASS_SetVolume(30);
    end;

    procedure DeinitializeSetup;
    begin
      BASS_DeInit;
      gdipShutdown
    end;
     
    Lom - 777 нравится это.
  8. Пользователь

    Регистрация:
    28 фев 2018
    Сообщения:
    5
    Симпатии:
    0
    Огромное спасибо . щас проверю

    проверил все работает еще раз спасибо
     
    Последнее редактирование модератором: 9 июл 2019

Поделиться этой страницей