Ja! Ich weiß ich nerv!
Aber es läuft immer noch nicht!
Sobald
bassplayer := TBassplayer.create(Form1.handle);
ausgeführt wird, wird das Programm ohne Fehlermeldung beendet!
Aber vermutlich nur weil ich da was falsches reingesetzt hab (Damit Delphi das auch coplimiert):
Original:
Delphi-Quellcode:
constructor TBassPlayer.create(mainwindowhandle: HWND);
begin
inherited create;;
if BASS_GetVersion() <> MAKELONG(1, then Halt;
BASS_Init(-1, 44100, BASS_DEVICE_LEAVEVOL, mainwindowhandle);
BASS_Start;
end;
Meins:
Delphi-Quellcode:
constructor TBassPlayer.create(mainwindowhandle: HWND);
begin
inherited create;;
if BASS_GetVersion() <> MAKELONG(1,1) then Halt;
BASS_Init(-1, 44100, BASS_DEVICE_LEAVEVOL, mainwindowhandle);
BASS_Start;
end;
Was muss in die Zeile wirklich rein???
if BASS_GetVersion() <> MAKELONG(1,1) then Halt;
Was macht makelong????