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?

zusammenfalten · markieren

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;

Hat die Bass-DLL nicht eine Ansi-Schnittstelle? D.h. du müsstest mit AnsiString/PAnsiChar arbeiten.

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.

@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)

Zitat von himitsu:

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.

Zitat von Amateurprofi:

Zitat von himitsu:

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

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.

Zitat von Bernhard Geyer:

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.

Zitat von himitsu:

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.