AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

NewAC MP3 von Stream speichern

Ein Thema von Horst0815 · begonnen am 10. Sep 2011
Antwort Antwort
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
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 18:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf