AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Audio Datei in .wav Datei umwandeln

Audio Datei in .wav Datei umwandeln

Ein Thema von Amateurprofi · begonnen am 21. Feb 2015 · letzter Beitrag vom 21. Feb 2015
Antwort Antwort
Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
848 Beiträge
 
Delphi XE2 Professional
 
#1

Audio Datei in .wav Datei umwandeln

  Alt 21. Feb 2015, 07:18
Ich möchte Audio Dateien, i.d.R. .mp3 Dateien, in .wav Dateien umwandeln.
Die .wav Dateien sollen im PCM-Format, 8000 Hz , Mono, 16 Bit sein.

Aus verschiedenen Beiträgen habe ich die untenstehende Funktion zusammengefrickelt.
Der Aufruf der Funktion erfolgt mit
ConvertToWav('E:\Daten\Phoner\Aufnahme\Test.mp3','E:\Daten\Phoner\Aufnahme\Test.wav'); aufgerufen.
Die Funktion wird vollständig ohne Fehler abgearbeitet, aber es wird keine .wav Datei erstellt.
Was mache ich falsch, und : wie mache ich es richtig?

Delphi-Quellcode:
FUNCTION ConvertToWav(const SourceDsn,DestDsn:String):Boolean;
const
   BSD=BASS_STREAM_DECODE or BASS_UNICODE;
   BMD=BASS_MUSIC_DECODE or BASS_UNICODE;
   BES=BASS_ENCODE_PCM or BASS_ENCODE_FP_16BIT or BASS_Encode_AutoFree;
   MSC=BASS_SAMPLE_FLOAT or BASS_STREAM_DECODE;
var Stream,Mixer,Channel,Flags:DWord; Buf:Array [0..10000] of Byte;
begin
   Stream:=0;
   Mixer:=0;
   Channel:=0;
   try
      try
         if (HIWORD(BASS_GetVersion)<>BASSVERSION) then Error(sWrongBassVersion);
         if not BASS_Init(-1,44100,0,Application.Handle,nil) then Error(sBassInit);
         Stream:=BASS_StreamCreateFile(False,PChar(SourceDsn),0,0,BSD);
         if Stream=0 then Stream:=BASS_MusicLoad(False,PChar(SourceDsn),0,0,BMD,0);
         if Stream=0 then Error(sBassLoad);
         Mixer:=BASS_Mixer_StreamCreate(8000,1,MSC);
         if Mixer=0 then Error(sMixerCreate);
         Result:=BASS_Mixer_StreamAddChannelEx(Mixer,Stream,BASS_MIXER_DOWNMIX,0,0);
         if not Result then Error(sMixerAdd);
         Channel:=BASS_Encode_Start(Mixer,PChar(DestDsn),BES,nil,nil);
         if Channel=0 then Error(sEncodeStart);
         while (BASS_ChannelIsActive(Channel) > 0) do
            BASS_ChannelGetData(Channel, @Buf, 10000);
      except
         on E:Exception do begin
            ShowMessage(E.Message);
            Result:=False;
         end;
      end;
   finally
      BASS_StreamFree(Stream);
      BASS_StreamFree(Channel);
      BASS_Free;
   end;
end;
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer
Online

Registriert seit: 13. Aug 2002
16.577 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: Audio Datei in .wav Datei umwandeln

  Alt 21. Feb 2015, 09:20
Hat die Bass-DLL nicht eine Ansi-Schnittstelle? D.h. du müsstest mit AnsiString/PAnsiChar arbeiten.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
35.439 Beiträge
 
Delphi 10.3 Rio
 
#3

AW: Audio Datei in .wav Datei umwandeln

  Alt 21. Feb 2015, 10:04
Wenn die APIs nicht bereits falsch deklariert sind, was wir nicht erkennen können, da jemand vergessen hat zu sagen wie die ganzen APIs (z.B. ConvertToWav) deklariert sind und von wo diese sind,
dann müsste der Compiler zumindestens viele Warnmeldungen ausspucken und wenn man diese fahrlässig ignoriert, dann ist man sowieso selber Schuld.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
848 Beiträge
 
Delphi XE2 Professional
 
#4

AW: Audio Datei in .wav Datei umwandeln

  Alt 21. Feb 2015, 10:11
@Bernhard:
Bass kann auch Unicode, dann muss man bei z.B. BASS_StreamCreateFile beim Parameter Flags ein BASS_UNICODE mitgeben.
In der Tat hatte ich dass beim BASS_Encode_Start vergessen.

Jetzt wird eine .wav Datei erstellt, die aber leer ist (Größe der Datei = 0)
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat
Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
848 Beiträge
 
Delphi XE2 Professional
 
#5

AW: Audio Datei in .wav Datei umwandeln

  Alt 21. Feb 2015, 10:15
Wenn die APIs nicht bereits falsch deklariert sind, was wir nicht erkennen können, da jemand vergessen hat zu sagen wie die ganzen APIs (z.B. ConvertToWav) deklariert sind und von wo diese sind,
dann müsste der Compiler zumindestens viele Warnmeldungen ausspucken und wenn man diese fahrlässig ignoriert, dann ist man sowieso selber Schuld.
Verstehe ich nicht.
Die volle Deklaration der ConvertToWav steht doch in #1.
Und die Compilierung läuft ohne Fehlermeldungen und ohne Warnungen durch.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer
Online

Registriert seit: 13. Aug 2002
16.577 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

AW: Audio Datei in .wav Datei umwandeln

  Alt 21. Feb 2015, 10:25
Wenn die APIs nicht bereits falsch deklariert sind, was wir nicht erkennen können, da jemand vergessen hat zu sagen wie die ganzen APIs (z.B. ConvertToWav) deklariert sind und von wo diese sind,
dann müsste der Compiler zumindestens viele Warnmeldungen ausspucken und wenn man diese fahrlässig ignoriert, dann ist man sowieso selber Schuld.
Verstehe ich nicht.
Die volle Deklaration der ConvertToWav steht doch in #1.
Und die Compilierung läuft ohne Fehlermeldungen und ohne Warnungen durch.
Es geht um die Deklaration von BASS_MusicLoad
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
35.439 Beiträge
 
Delphi 10.3 Rio
 
#7

AW: Audio Datei in .wav Datei umwandeln

  Alt 21. Feb 2015, 10:30
Und wenn ich mich Recht erinner, dann kann die BASS-Lib zwar Unicode, aber nur in Form von UTF-8 und man muß es vorher auch noch aktivieren.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
848 Beiträge
 
Delphi XE2 Professional
 
#8

AW: Audio Datei in .wav Datei umwandeln

  Alt 21. Feb 2015, 11:16
Es geht um die Deklaration von BASS_MusicLoad
Die ist in der BASS.pas deklariert
Loads a MOD music file.
HMUSIC BASS_MusicLoad(
BOOL mem,
void *file,
QWORD offset,
DWORD length,
DWORD flags,
DWORD freq
);
Das ist in meinem Fall (OK, das konntet Ihr nicht wissen) unerheblich, weil der Aufruf nicht ausgeführt wird, denn
das BASS_StreamCreateFile liefert bereits ein gültiges Handle.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat
Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
848 Beiträge
 
Delphi XE2 Professional
 
#9

AW: Audio Datei in .wav Datei umwandeln

  Alt 21. Feb 2015, 11:25
Und wenn ich mich Recht erinner, dann kann die BASS-Lib zwar Unicode, aber nur in Form von UTF-8 und man muß es vorher auch noch aktivieren.
Daran kann es nicht liegen.
An anderen Stellen (zum abspielen von MP3s oder WAVs) verwende ich das genau so, wie in ConvertToWav.
Und wenn es daran läge würde BASS_StreamCreateFile kein gültiges Handle liefern und BASS_Encode_Start würde keine .wav Datei erstellen.
Die .wav wird aber erstellt, jedoch nicht mit Daten befüllt.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  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 +1. Es ist jetzt 12:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf