CD zu MP3 konvertieren

[kingflo]

Hallo ertma.
Ist es möglich mit delphi eine Audio CD zu MP3's zu konvertieren?
Also so wie CDEX oder so..

Wenn jemand sowas schonmal gemacht hat oder weiß wies geht würde ich mich freuen wenn er mir das Verraten könnte.

mfg

flo

[Ultimator]

Ja, ich hab schonmal mit Hilfe der BASS.SLL und LAME nen simplen CD-Ripper geschrieben,
er nimmt aber nur in echtzeit die Lieder auf, sie müsen also abgespielt werden, während man rippt.
Auf Wunsch kann ich ja hier mal was davon posten ;-)

[MiniKeks]

Hätte auch interesse daran ;)

[kingflo]

Zitat:

Zitat von Ultimator

Auf Wunsch kann ich ja hier mal was davon posten ;-)

Ja das wäre nett

[Ultimator]

Delphi-Quellcode:

uses BASS, BASSCD, BASSENC;

.
.
.

var playhandle: hstream;

.
.
.

TForm1.FormCreate(Sender:TObject);
var i: integer;
begin
  Bass_Init(1, 14400, 0, Application.Handle, nil);
   for i := 0 to BASS_CD_GetTracks(0) do //Bei BASS_CD_GetTracks ist die Zahl die Numer des CD-Laufwerks
     CheckListBox1.Items.Add('Track ' + inttostr(i));  //In die CheckListBox kommen die ganzen Lieder
end;

procedure TForm1.ButtonRipClick(Sender: TObject);
begin
  playhandle := BASS_CD_StreamCreate(0, CheckListBox1.ItemIndex, BASS_STREAM_AUTOFREE);
  BASS_StreamPrebuf(playhandle);
  BASS_CD_Door(ComboBox1.ItemIndex, Bass_CD_DOOR_Lock);  //damit niemand das Laufwerk aufmacht
  BASS_Encode_Start(playhandle, PChar('lame.exe - "' + SaveDialo1.Filename + '.mp3"'), 0, nil, 0);
  BASS_StreamPlay(playhandle, false, 0);
end;

Wie man vielleicht erkennt, muss dann noch die LAME.exe im Programmverzeichnis liegen ;-)

Is also gar nicht so schwer ;-)
Und ich hoff, ich hab nix vergessen :mrgreen:

[Luckie]

Aber das ist auch wieder nur in Echtzeit. Wie bekommt man es hin, dass es schneller geht? Meine Freundin hat mich gerade nach so einem Programm gefragt und angedeutet ich, könne es ja für sie schreiben. :?

[tommie-lie]

Zitat:

Zitat von Luckie

Meine Freundin hat mich gerade nach so einem Programm gefragt und angedeutet ich, könne es ja für sie schreiben. :?

http://www.exactaudiocopy.org
Vielleicht kann man ja mit dem Typen reden, daß du die Erlaubnis hast, deiner Freundin vorzugaukeln, es sei von dir :mrgreen:

[Kernel32.DLL]

gibbet in dem Download-Package der BASS.DLL nicht sogar 'nen Beispielprogramm dafür?

[Wishmaster]

Hi


Ich habe noch ne Demo mit der du direkt von CD oder *.WAV* File nach *.MP3* Rippen / Konvertieren kannst!

Versuche mall
playhandle := BASS_CD_StreamCreate(0, CheckListBox1.ItemIndex, BASS_STREAM_AUTOFREE or BASS_STREAM_DECODE);

hier noch ne CD-Ripper
http://akrip.sourceforge.net/

ich hoffe ich konnte euch helfen.