Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Konvertieren versch. Audioformate mit BASS.dll (https://www.delphipraxis.net/61292-konvertieren-versch-audioformate-mit-bass-dll.html)

Dj_Base 19. Jan 2006 15:37


Konvertieren versch. Audioformate mit BASS.dll
 
Hallo zusammen!

Ich wollte mal fragen, ob jemand von euch ein paar Beispiele hat, wie man mit Hilfe der bass.dll und der bassenc.dll z.B. ein Lied von OGG nach MP3 umzuwandeln.

In Echtzeit (d.h. erst den Stream abspielen und dabei aufnehmenI ist einfach! Doch das brauche ich nicht.

Vom Prinzip muss ja erst der OGG-Stream dekodiert werden (d.h. nach WAVE) und dann mit Lame nach MP3 codiert werden.

EDIT: Hier mal mein Versuch:
Delphi-Quellcode:
 if (ExtractFileExt(OpenDialog.FileName) = '.mp3') or (ExtractFileExt(OpenDialog.FileName) = '.ogg') then begin
  chan := BASS_StreamCreateFile(FALSE, PChar(SourceFileName), 0, 0, BASS_STREAM_DECODE);
  BASS_Encode_Start(chan, 'lame --alt-preset standard - output.mp3', 0, nil, 0);
end;
Leider arbeitet lame.exe nicht.
Ich glaube es liegt daran, dass der Channel nicht gestartet wird, doch es gibt nur die Möglichkeit (soweit ich weiss) ihn abzuspielen, doch das will ich ja - wie oben beschrieben - nicht.

Hat jemand eine Idee, oder sogar einen Beispielcode?

Vielen Dank & Schönen Gruß,
Dj_Base

Wishmaster 23. Jan 2006 07:30

Re: Konvertieren versch. Audioformate mit BASS.dll
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hi

Ich habe für dich mal ne demo gebaut!

Getestet mit bass.dll v2,2,03
Bassenc.dll v2,2,02

Die einzelne Parameter kannst du dir selbst einstellen.

Zitat:

Leider arbeitet lame.exe nicht.
Ich glaube deine function arbeitet nicht! :wink:

PS. Ich habe die demo mit BDS2006 geschrieben.

Dj_Base 1. Feb 2006 21:37

Re: Konvertieren versch. Audioformate mit BASS.dll
 
Hallo!

Entschuldige, dass ich mich erst so spät zurückmelde - hatten den Thread ganz übersehen!

Also: Vielen Dank für die Demo :thumb:

Werds mir sobald wie nur möglich zu Gemüte führen ;)

Gruß,
Dj_Base


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:10 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz