Gravar um �udio em mp3 usando Bass

Question

Algum amigo teria um exemplo para gravar um som direto em mp3 ou wma usando Bass?...

Cebikyn · Answer

No site da BASS (www.un4seen.com), procure por BASSenc e baixe, nele vc encontra um exemplo de como fazer isso. Tb � necess�rio o programa Lame.exe (n�o tenho link para ele), que vai receber o �udio capturado pela BASS e converter em MP3 automaticamente.

Pleonardomv · Answer

Baixei os dois mas como funciona? Vc poderia me explicar?...

Cebikyn · Answer

Funciona assim:Primeiro o programa inicia a BASS:[code:1:70b06b48e7]if (not BASS_RecordInit(0)) or (not BASS_Init(1,44100,0, win, Nil)) then begin  ShowMessage(�N�o foi poss�vel iniciar o dispositivo�);  Close();end[/code:1:70b06b48e7]Depois inicia o dispositivo de grava��o:[code:1:70b06b48e7]rchan:=BASS_RecordStart(44100, BASS_RECORD_PAUSE, nil,0);[/code:1:70b06b48e7]Em seguida inicia o encoder (que grava p/ MP3 a partir do �udio passado pela BASS.dll):[code:1:70b06b48e7]if (not BASS_Encode_Start(rchan,�lame.exe --alt-preset standard - arquivo.mp3�,0, Nil,0)) thenbegin  BASS_ChannelStop(rchan);  Exit;end;[/code:1:70b06b48e7]E inicia a grava��o:[code:1:70b06b48e7]BASS_ChannelResume(rchan);[/code:1:70b06b48e7]E qnd terminar a grava��o desejada, chama-se estas fun��es:[code:1:70b06b48e7]  BASS_Encode_Stop(rchan);  BASS_ChannelStop(rchan);[/code:1:70b06b48e7][b:70b06b48e7]rchan[/b:70b06b48e7] � uma vari�vel do tipo DWORD. Para que o prgrama funcione, � necess�rio declarar BASS e BASSenc no Uses e tb colocar as dlls BASS.dll e BASSenc.dll na pasta do programa (juntamente com LAME.exe). Para determinar de qual dispositivo ser� feita a grava��o (microfone, line in/out, etc...), use:[code:1:70b06b48e7]BASS_RecordSetInput(input,BASS_INPUT_ON);[/code:1:70b06b48e7]Em que input � o n�mero do dispositivo (0 � o primeiro)....

Pleonardomv · Answer

Puxa cara vc � bom mesmo em BASS. Funcionou legal com algumas altera��es mas a aplica��o fica muito lenta. Teria como resolver isso? VC clica em um bot�o e ele demora executar a a��o.
Valeu....

Cebikyn · Answer

N�o existe nenhuma forma de aumentar a velocidade, que eu saiba......

Pleonardomv · Answer

Desculpa te incomodar mas vc sabe como definir uma placa de som? Tenho 2 na m�quina e gostaria de selecionar uma delas......

Cebikyn · Answer

Vou te dar os dois c�digos que eu tenho para sele��o de dispositivos (para selecionar dispositivo de entrada e sa�da) e vc v� se as duas placas aparecem em um deles:

[b:c8af2a90b4]Para selecionar dispositivo de entrada:[/b:c8af2a90b4]

Adiciona os dispositivos ao ComboBox:

var
  c: Integer;
  i: PChar;
begin
  c:=0;
  i:=BASS_RecordGetInputName(c);

  while i<>nil do begin
    ComboBox1.Items.Add(StrPas(i));
    if (BASS_RecordGetInput(c) and BASS_INPUT_OFF)=0 then begin
      input:=c;
      ComboBox1.ItemIndex := c;
    end;
    inc(c);
    i:=BASS_RecordGetInputName(c);
  end;
end;

No OnClick do ComboBox (antes de iniciar a grava��o):

var
  i:Integer;
begin
  Input := ComboBox1.ItemIndex;
  
  i:=0;
  while BASS_RecordSetInput(i,BASS_INPUT_OFF) do
    Inc(i);

  BASS_RecordSetInput(input,BASS_INPUT_ON);
end;

[b:c8af2a90b4]Para selecionar dispositivos de sa�da:[/b:c8af2a90b4]

Adiciona os dispositivos ao ComboBox:

var
  x: Integer;
begin
  x := 0;
  while (BASS_GetDeviceDescription(x) <> nil ) do begin
    cmbAuDispositivos.Items.Add(BASS_GetDeviceDescription(x));
    Inc(x);
  end;
  ComboBox2.ItemIndex := 1;
begin

Depois basta passar o ItemIndex do ComboBox como primeiro par�metro do BASS_Init.

Marcos Silva · Answer

Colega cebikyn ve esse t�pico � tenho uma d�vida. usando os procidimentos citados acima, como posso pausar a grava��o feia com a bass � depois contuinuar, hoje n�o consigo fazer isso gravo sem parar pode me ajudar....

F�rum Gravar um �udio em mp3 usando Bass #215448