Einzelnen Beitrag anzeigen

Horst0815

Registriert seit: 23. Mai 2011
Ort: Görlitz
149 Beiträge
 
Delphi XE Starter
 
#1

NewAC MP3 von Stream speichern

  Alt 10. Sep 2011, 11:39
Delphi-Version: 2007
des WMA speichern klappt ohne Probleme nur MP3 will irgendwie gar nicht
Lame_enc.dll und Bass.dll sind vorhanden. Oder ist das nicht vorgesehen und ich muss erst die WMA erzeugen und davon dann die MP3?

die Datei wird übrigens erzeugt ist aber dann leer

Delphi-Quellcode:
procedure TfrmMain.btnRecordClick(Sender: TObject);
var
  sName: String;
begin
  Case btnRecord.Tag of
    0:
      begin
        if (DXAudioOut.Status = tosIdle) and (DSAudioOut.Status = tosIdle) then
          Exit;
        if (WMATap1.Status = tosIdle) and (MP3Out1.Status = tosIdle) then
        begin
          sName := ExtractFilePath(ParamStr(0)) + CBsender.Text +
            ' - ' + FormatDateTime('hh-nn-ss - dd.mm.yyyy', Now);
          WMATap1.FileName := sName + '.wma';
          MP3Out1.FileName := sName + '.mp3';
          btnRecord.Caption := 'Record Stop';
          mbtnRecord.Caption := 'Record Stop';
          if not cbOut.Checked then
          begin
            WMATap1.Id3v2Tags.Title := WMStreamedIn1.Id3v2Tags.Title;
            WMATap1.Id3v2Tags.Artist := WMStreamedIn1.Id3v2Tags.Artist;
            WMATap1.Id3v2Tags.Genre := WMStreamedIn1.Id3v2Tags.Genre;
            WMATap1.Id3v2Tags.Year := WMStreamedIn1.Id3v2Tags.Year;
            WMATap1.Id3v2Tags.Album := WMStreamedIn1.Id3v2Tags.Album;
            WMATap1.Id3v2Tags.Track := WMStreamedIn1.Id3v2Tags.Track;
            WMATap1.Id3v2Tags.Comment := WMStreamedIn1.Id3v2Tags.Comment;
            WMATap1.Id3v2Tags.Composer := WMStreamedIn1.Id3v2Tags.Composer;
            WMATap1.Id3v2Tags.Encoder := WMStreamedIn1.Id3v2Tags.Encoder;
            WMATap1.Id3v2Tags.Copyright := WMStreamedIn1.Id3v2Tags.Copyright;
            WMATap1.Id3v2Tags.Language := WMStreamedIn1.Id3v2Tags.Language;
            WMATap1.DesiredBitrate := 128;
            WMATap1.StartRecord;
          end
          else
          begin
            MP3Out1.Id3v2Tags.Title := WMStreamedIn1.Id3v2Tags.Title;
            MP3Out1.Id3v2Tags.Artist := WMStreamedIn1.Id3v2Tags.Artist;
            MP3Out1.Id3v2Tags.Genre := WMStreamedIn1.Id3v2Tags.Genre;
            MP3Out1.Id3v2Tags.Year := WMStreamedIn1.Id3v2Tags.Year;
            MP3Out1.Id3v2Tags.Album := WMStreamedIn1.Id3v2Tags.Album;
            MP3Out1.Id3v2Tags.Track := WMStreamedIn1.Id3v2Tags.Track;
            MP3Out1.Id3v2Tags.Comment := WMStreamedIn1.Id3v2Tags.Comment;
            MP3Out1.Id3v2Tags.Composer := WMStreamedIn1.Id3v2Tags.Composer;
            MP3Out1.Id3v2Tags.Encoder := WMStreamedIn1.Id3v2Tags.Encoder;
            MP3Out1.Id3v2Tags.Copyright := WMStreamedIn1.Id3v2Tags.Copyright;
            MP3Out1.Id3v2Tags.Language := WMStreamedIn1.Id3v2Tags.Language;
            MP3Out1.AverageBitrate := mbr128;
            MP3Out1.Run;
          end;
          StatusBar1.Panels[1].Text := ('Recording');
          Timer1.Enabled := True;
          StartTime := Time;
          StatusBar1.Panels[2].Text := '';
          btnRecord.Tag := 1;
        end;
      end;
    1:
      begin
        if not cbOut.Checked then
        begin
          WMATap1.StopRecord;
          ShowMessage('Saved to - ' + WMATap1.FileName);
        end
        else
        begin
          MP3Out1.Stop(False);
          ShowMessage('Saved to - ' + MP3Out1.FileName);
        end;
        btnRecord.Caption := 'Record';
        mbtnRecord.Caption := 'Record';
        Timer1.Enabled := False;
        if (WMATap1.Status = tosIdle) and (MP3Out1.Status = tosIdle) then
        begin
          BitRate := InttoStr(WMStreamedIn1.BitRate div 1000) + ' kbps';
          SampleRate := InttoStr(WMStreamedIn1.SampleRate) + ' Hz';
          StatusBar1.Panels[1].Text := SampleRate + ' @ ' + BitRate;
          if WMStreamedIn1.Channels = 1 then
            StatusBar1.Panels[2].Text := 'Mono'
          else
            StatusBar1.Panels[2].Text := 'Stereo';
        end;
        btnRecord.Tag := 0;
      end;
  End;
end;
hat jemand ne Idee

Geändert von Horst0815 (10. Sep 2011 um 11:44 Uhr)
  Mit Zitat antworten Zitat