Mergen von Audios

[KodeZwerg]

Das sieht mir nicht so aus als ob Du in die Anleitung von Bass geschaut hast. Wenn Du das machst klärt sich alles auf.
Fehlt vielleicht eine Uses Anweisung, könnte auch sein?!

[markusagb]

Hi, fehler gefunden, danke für den Tipp mit der Doku. Die Bassenc und Bassmix pas + dll haben gefehlt, dachte die sind im Bass mit drin...

Läuft trotzdem nicht. Die Samples helfen auch nicht weiter .-(

[markusagb]

Für alle die das Gleiche benötigen, hier der Code wie es funktioniert. Hat etwas gedauert, aber das läuft:


procedure TForm1.Audiomerge;
var Source1, Source2, Source3 : Cardinal;
Mixer : Cardinal;
duration1, duration2, duration3: double;
len:qword;
start: QWORD;
length: QWORD ;
begin
Source1 := BASS_StreamCreateFile(false, PChar('D:\Intro.wav'), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE or BASS_STREAM_DECODE {$ENDIF});
Source2:= BASS_StreamCreateFile(false, PChar('D:\Meldung1.wav'), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE or BASS_STREAM_DECODE {$ENDIF});
Source3:= BASS_StreamCreateFile(false, PChar('D:\Meldung2.wav'), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE or BASS_STREAM_DECODE {$ENDIF});

Mixer:= BASS_Mixer_StreamCreate(48000, 2, 0);

len:=BASS_ChannelGetLength(Source1, BASS_POS_BYTE);
duration1:=BASS_ChannelBytes2Seconds(Source1, len);
start:=BASS_ChannelSeconds2Bytes(mixer, 0.2);
length:=BASS_ChannelSeconds2Bytes(mixer, duration1);
BASS_Mixer_StreamAddChannelEx(mixer, Source1, 0, start, length);

len:=BASS_ChannelGetLength(Source2, BASS_POS_BYTE);
duration2:=BASS_ChannelBytes2Seconds(Source2, len);
start:=BASS_ChannelSeconds2Bytes(mixer, duration1);
length:=BASS_ChannelSeconds2Bytes(mixer, duration2);
BASS_Mixer_StreamAddChannelEx(mixer, Source2, 0, start, length);

len:=BASS_ChannelGetLength(Source3, BASS_POS_BYTE);
duration3:=BASS_ChannelBytes2Seconds(Source3, len);
start:=BASS_ChannelSeconds2Bytes(mixer, duration1+duration2);
length:=BASS_ChannelSeconds2Bytes(mixer, duration3);
BASS_Mixer_StreamAddChannelEx(mixer, Source3, 0, start, length);

BASS_ChannelPlay(mixer, false);

BASS_Encode_Start(Mixer, PChar('D:\neu.wav'), 0 {$IFDEF UNICODE} or BASS_UNICODE or BASS_ENCODE_PCM {$ENDIF}, nil, nil);

[KodeZwerg]

Zitat von markusagb:

Source1 := BASS_StreamCreateFile(false, PChar('D:\Intro.wav'), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE or BASS_STREAM_DECODE {$ENDIF});
Source2:= BASS_StreamCreateFile(false, PChar('D:\Meldung1.wav'), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE or BASS_STREAM_DECODE {$ENDIF});
Source3:= BASS_StreamCreateFile(false, PChar('D:\Meldung2.wav'), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE or BASS_STREAM_DECODE {$ENDIF});

Was mir auf den Ersten Blick auffällt wäre das ich es so schreiben würde:

Delphi-Quellcode:

Source1:= BASS_StreamCreateFile(false, PChar('D:\Intro.wav'), 0, 0, 0 or BASS_STREAM_DECODE {$IFDEF UNICODE}or BASS_UNICODE{$ENDIF});
Source2:= BASS_StreamCreateFile(false, PChar('D:\Meldung1.wav'), 0, 0, 0 or BASS_STREAM_DECODE {$IFDEF UNICODE}or BASS_UNICODE{$ENDIF});
Source3:= BASS_StreamCreateFile(false, PChar('D:\Meldung2.wav'), 0, 0, 0 or BASS_STREAM_DECODE {$IFDEF UNICODE}or BASS_UNICODE{$ENDIF});

[EWeiss]

Zitat:

Für alle die das Gleiche benötigen, hier der Code wie es funktioniert. Hat etwas gedauert, aber das läuft:

Ich möchte bezweifeln das es richtig funktioniert bei den zusammengewürfelten Variablen die du übergibst.
Wundere dich also nicht wenn ein paar Samples fehlen.

Und ich würde es so schreiben..

Source1:= BASS_StreamCreateFile(false, PChar('D:\Intro.wav'), 0, 0, 0 or BASS_STREAM_DECODE {$IFDEF UNICODE}or BASS_UNICODE{$ENDIF});
Source1:= BASS_StreamCreateFile(false, PChar('D:\Intro.wav'), 0, 0, BASS_STREAM_DECODE {$IFDEF UNICODE}or BASS_UNICODE{$ENDIF});

also was soll das mit der 0 vor dem Flag "BASS_STREAM_DECODE" (0 or BASS_STREAM_DECODE ) ist ein NOGO!
Zudem würde ich BASS_UNICODE vor dem Flag BASS_STREAM_DECODE setzen.

Dann würde ich deine Variablen prüfen.
start: QWORD..

Was denn nu QWORD, Integer, Bytes, Double ?
Du solltest dich schon für die richtige Variable entscheiden so wie in der Doku angegeben nicht einfach irgendwas.

QWord = UInt64\Int64 verlangt wird Byte oder warum denkst du heißt die Funktion BASS_ChannelSeconds2Bytes damit wir einfach mal Int64 verwenden?
Das ist aber nicht das einzige überprüfe auch mal die anderen.

gruss

[KodeZwerg]

Spielt das bei Create() ne Rolle in welcher Reihenfolge man Dinge True setzt? Hab Bass.pas gerade nicht zur Hand.
Ja da hätte ich lieber 2x gucken müssen mit der 0, mir ist nur beim ersten Blick aufgefallen das DECODE im UNICODE block weggekapselt war.

[EWeiss]

Zitat von KodeZwerg:

Spielt das bei Create() ne Rolle in welcher Reihenfolge man Dinge True setzt? Hab Bass.pas gerade nicht zur Hand.
Ja da hätte ich lieber 2x gucken müssen mit der 0, mir ist nur beim ersten Blick aufgefallen das DECODE im UNICODE block weggekapselt war.

Ich meinte nicht dich sondern den TE!

Eigentlich nicht aber macht sinn denn ich übergebe einen String also den Pfad zu der Datei dafür sollte ich zuerst das Flag zum prüfen Unicode oder nicht setzen und erst dann
das Flag zur Bearbeitung schließlich lese ich zuerst den Pfad und bearbeite anschließend die Datei nicht umgekehrt.

gruss

[markusagb]

Danke. Aus der Bass-Doku:

http://www.un4seen.com/doc/#bassmix/...ChannelEx.html

Example
Add a channel to a mixer, delaying the start by 1 second and limiting the duration to 2 seconds.

QWORD start=BASS_ChannelSeconds2Bytes(mixer, 1); // delay
QWORD length=BASS_ChannelSeconds2Bytes(mixer, 2); // duration
BASS_Mixer_StreamAddChannelEx(mixer, channel, 0, start, length); // add the channel

Variable start + length = QWORD

[markusagb]

Vorschläge geändert, funktioniert genau gleich, danke dennoch!!

Ein Problem habe ich noch, das geschriebene WAV-File wird erst dann finalisiert wenn ich die Anwendung schließe. Das ist natürlich blöd. Muss ich die Streams alle freigeben bzw. gibts ne callback wenn der encoder fertig ist?

Lieber Gruß und nochmals danke an alle