Forum: Multimedia
Delphi
by Wishmaster,
27. Dez 2004
Hi Nils_13
Erstmal was stimmt mit meinem Code nicht?
2. warum Kreierst du den hFileStream 2 mall 1.mit dem Timer dann mit tblMousUp? sobald du tblMousUp betätigst setzt du Automatisch alle auf 0!
:wall: :gruebel: :?:
Und warum benutzt du einmall Channel und einmall hFileStream? Woher kommt Channel?
hFileStream := BASS_StreamCreateFile(...........)
Forum: Multimedia
Delphi
by Wishmaster,
15. Dez 2004
Hi
@Nils_13 wen du meinen Code(TAudioEngine) mit Bass v2.1 benutzt kann es sein das du ne Feiler Meldung bekommst mit ’’Floating Point overflow’’ dafür ist der EQ verantwortlich!
1.
Sollte bei dir diese Feiler Meldung auftauchen. Bass v2.1(0.1) and Flac v2.1(0.1) sollte Abhilfe schaffen.
2.
Endere das => BASS_ChannelSetSync(Channel, BASS_SYNC_ONETIME, BASS_SYNC_END, @PlayEndSync,...
Forum: Multimedia
Delphi
by Wishmaster,
11. Dez 2004
{--------------------------------- SongPos ----------------------------------}
procedure TAudioEngine.Set_SongPos(SongPos : Integer);
begin
if WriteToFile Then
Exit;
SongPos := BASS_ChannelSeconds2Bytes(Channel, SongPos / 1000);
BASS_ChannelSetPosition(Channel, trunc(SongPos));
end;