Audio-CD Track direkt zu MP3 ohne den Umweg "cda->WAV->mp3&

[der_wuwu_depp]

Hallo,
mit folgendem Code kopiere ich die Tracks von einer Audio-CD auf die Festplatte, kurz: Ich rippe sie.

Code:

  progressInPercent := 0;

  BASS_Init(-1, 44100, 0, Application.Handle, nil);

  channel := BASS_CD_StreamCreate(self.drive,self.trackNr,BASS_STREAM_AUTOFREE OR BASS_STREAM_DECODE);
  //BASS_StreamPrebuf(playhandle);

  BASS_ChannelGetInfo(channel, chaninfo);
   nChannels := chaninfo.chans;

  if (chaninfo.flags and BASS_SAMPLE_8BITS > 0) then
    wBitsPerSample := 8
  else
    wBitsPerSample := 16;

   nBlockAlign := nChannels * wBitsPerSample div 8;
   BASS_ChannelGetAttributes(channel, frq, vl, Tmp);
  nSamplesPerSec := frq;
   nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;

  { --- hier wird sonst (viele Zeilen lang) die Variable "fileName" gefüllt --- }

  RecStream := TFileStream.Create(fileName, fmCreate);

  temp := 'RIFF'; RecStream.write(temp[1], length(temp));
  temp := #0#0#0#0; RecStream.write(temp[1], length(temp));   // File size: to be updated
  temp := 'WAVE'; RecStream.write(temp[1], length(temp));
  temp := 'fmt '; RecStream.write(temp[1], length(temp));
  temp := #$10#0#0#0; RecStream.write(temp[1], length(temp)); // Fixed
  temp := #1#0; RecStream.write(temp[1], length(temp));       // PCM format

  if nChannels = 1 then
    temp := #1#0
  else
    temp := #2#0;

  RecStream.write(temp[1], length(temp));
  RecStream.write(nSamplesPerSec, 2);
  temp := #0#0; RecStream.write(temp[1], length(temp));   // SampleRate is given as dWord
  RecStream.write(nAvgBytesPerSec, 4);
  RecStream.write(nBlockAlign, 2);
  RecStream.write(wBitsPerSample, 2);
  temp := 'data'; RecStream.write(temp[1],length(temp));
  temp := #0#0#0#0; RecStream.write(temp[1],length(temp)); // Data size: to be updated

   while (BASS_ChannelIsActive(channel) > 0) do begin
    BytesRead := BASS_ChannelGetData(channel, @buf, 10000);
    RecStream.Write(buf, BytesRead);
    Application.ProcessMessages;
    progressInPercent := Trunc(100 * (BASS_ChannelGetPosition(channel) / BASS_ChannelGetLength(channel)));
   end;

  BASS_StreamFree(channel); // free the stream

  i := RecStream.Size - 8;    // size of file
  RecStream.Position := 4;
  RecStream.write(i, 4);
  i := i - $24;               // size of data
  RecStream.Position := 40;
  RecStream.write(i, 4);
  RecStream.Free;
  progressInPercent := 100;

Die Dateien werden als .wav-Dateien gerippt. Nun möchte ich sie aber als .mp3-Dateien haben. Wo muss ich nun einen Encoder "zwischenschalten", damit die Datei sofort als .mp3 gespeichert wird, ich sie also nicht erst als .wav rippen und dann in .mp3 umwandeln muss?
Ich habe mit folgender Zeile rumhantiert, bin aber zu keinem Ergebnis gekommen:

Code:

BASS_Encode_Start(playhandle, PChar('lame.exe - "' + fileName + '.mp3"'), 0, nil, 0);

Würde mir wirklich enorm weiterhelfen, wenn mir jemand helfen könnte, hab nämlich schon lange Foren und den est des Internets abgegrast

[Luckie]

Beste Anlaufstelle dürfte das BassDLL Forum selber sein: www.un4seen.com/

[Wishmaster]

Hi

Ich hatte schon vor kurzem ne ähnliche frage beantwortet gehabt.
Bitte die Suchfunktion benutzen.


Demo