Hallo zusmmen
ich bin am verzweifeln, ich habe in meinem Programm ein Objekt das die einkommende Signale auf dem Micro Line in etc auswertwet dieses tut einwandfrei, jetzt woillte ich noch ein Cd player mit CD text einbauen, habe es auch getan aber er macht alles bis auf das er mit bei Inalisieren von Bass dann Fehler bring
siehe Code
Delphi-Quellcode:
von dem CD Player
// Setup output - default device
if (
not BASS_Init(-1, 44100, 0,
Handle,
nil))
then
begin
MessageBox(0, '
Can''
t initialize device', '
Error', MB_ICONERROR);
Halt;
end;
hier vor dem Texz dann kommt das für mein Micro
//------ M icro AUswertung ----------------nd
BASS_Init(-1, 44100, 0, Application.Handle,
nil);
OcilloScope := TOcilloScope.Create(PaintFrame.Width, PaintFrame.Height);
Spectrum := TSpectrum.Create(PaintFrame.Width, PaintFrame.Height);
fftdata1 :=tstringlist.create;
könnt ihr mir ein rat geben wie ich das lösen kann, ich habe es soweit zurückverfolgt das es an dem BASS_Init liegen muss, das komische ist wenn ich das mit dem Micro rausnehme dann geht es trotzdem nicht, dann bekommt der Player keine Daten vom Stream komisch
hier noch der Coder für CD Player, Seperat tut er einwandfrei
Delphi-Quellcode:
stream[drive] := BASS_CD_StreamCreate(drive, track, BASS_CD_FREEOLD); // create stream
BASS_ChannelSetSync(stream[drive], BASS_SYNC_END, 0, @EndSync, 0); // set end syc
if (drive = DWORD(curdrive)) then
begin
trkPos.Max := BASS_StreamGetLength(stream[drive]) div 176400; // set pos scroller range
trkVol.Position := 0; // set default volume slider pos
trkSpeed.Position := 100; // set default speed slider pos
GroupBox2.Caption := 'Speed - 100%';
end;
BASS_ChannelPlay(stream[drive], False); // start playing