Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Audio Datei in .wav Datei umwandeln (https://www.delphipraxis.net/184042-audio-datei-wav-datei-umwandeln.html)

Amateurprofi 21. Feb 2015 08:18

Audio Datei in .wav Datei umwandeln
 
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
Delphi-Quellcode:
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;

Bernhard Geyer 21. Feb 2015 10:20

AW: Audio Datei in .wav Datei umwandeln
 
Hat die Bass-DLL nicht eine Ansi-Schnittstelle? D.h. du müsstest mit AnsiString/PAnsiChar arbeiten.

himitsu 21. Feb 2015 11:04

AW: Audio Datei in .wav Datei umwandeln
 
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.

Amateurprofi 21. Feb 2015 11:11

AW: Audio Datei in .wav Datei umwandeln
 
@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)

Amateurprofi 21. Feb 2015 11:15

AW: Audio Datei in .wav Datei umwandeln
 
Zitat:

Zitat von himitsu (Beitrag 1290838)
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.

Bernhard Geyer 21. Feb 2015 11:25

AW: Audio Datei in .wav Datei umwandeln
 
Zitat:

Zitat von Amateurprofi (Beitrag 1290840)
Zitat:

Zitat von himitsu (Beitrag 1290838)
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

himitsu 21. Feb 2015 11:30

AW: Audio Datei in .wav Datei umwandeln
 
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. :gruebel:

Amateurprofi 21. Feb 2015 12:16

AW: Audio Datei in .wav Datei umwandeln
 
Zitat:

Zitat von Bernhard Geyer (Beitrag 1290843)
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.

Amateurprofi 21. Feb 2015 12:25

AW: Audio Datei in .wav Datei umwandeln
 
Zitat:

Zitat von himitsu (Beitrag 1290845)
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. :gruebel:

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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:35 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