Forum: Multimedia
Delphi
by LDericher,
31. Mär 2009
Aua, ich bin echt müde... hatte die Lautsprecher aus :oops:
Es geht ;)
Und erzielt überraschend schlechte Ergebnisse - Aber das ist eine andere Sache, die procedure ist astrein :D
Gruß vom LDer. Frage gelöst.
Forum: Multimedia
Delphi
by LDericher,
31. Mär 2009
Jetzt hab ich elend lang an dieser procedure geschreibselt und finde den Fehler nicht...
Kann sich das mal jemand angucken?
procedure TVoiceSynth.Speak;
var
Mixer : Cardinal;
Sources,
Lengths:array of Cardinal;
ZwErg:TStringList;
I:integer;
Forum: Multimedia
Delphi
by LDericher,
31. Mär 2009
Das ist mein Rohbau:
procedure TForm1.Button2Click(Sender: TObject);
var
Source1, Source2,
start, length,
Mixer : Cardinal;
begin
Source1 := BASS_StreamCreateFile(false, PChar('chord.wav'), 0, 0, BASS_STREAM_DECODE);
Source2:= BASS_StreamCreateFile(false, PChar('chimes.wav'), 0, 0, BASS_STREAM_DECODE);
Forum: Multimedia
Delphi
by LDericher,
31. Mär 2009
Wo? Deutsch? Englisch?
Gruß LDer.
Edit: Wie bekomme ich die Spiellänge einer WAV-Datei raus?
Forum: Multimedia
Delphi
by LDericher,
30. Mär 2009
Wenn ich dich richtig verstehe, kann ich dann ja auch 3 stück verschmelzen:
var Source1, Source2, Source3 : Cardinal;
Mixer : Cardinal;
// File1 kann mp3 sein und File2 kann wav sein
Source1 := BASS_StreamCreateFile(false, 'File1', 0, 0, BASS_STREAM_DECODE) // < So oft wie du willst
Source2:= BASS_StreamCreateFile(false, 'File2', 0, 0, BASS_STREAM_DECODE)
Source3:= ...
Forum: Multimedia
Delphi
by LDericher,
30. Mär 2009
Ich will einfach mehrere WAVs nacheinander ausgeben, das geht mit BASS, werde ich schon hinkriegen.
Mein Problem ist bloß die unvermeidliche Ladepause zwischen den Wiedergaben. Die will ich überbrücken, indem ich die Dateien dynamisch zu einer mache und dann ausgebe.
Lässt sich da nicht was tricksen?
Der LDer.