Hi,
also mit Delphi 6 Personal lässt es sich compilieren und das Programm startet auch.
Bei mir stürzt es jedoch beim Abspielen in der Prozedur:
Delphi-Quellcode:
procedure TFormPlayer.Image1Click(Sender: TObject);
begin
op1.Title := 'Open Files';
if not op1.Execute then exit;
Channel := BASS_StreamCreateFile(FALSE, PChar(op1.FileName), 0, 0, 0);
tb1.Max := bass_streamgetlength(channel); // <-- hier!
// BASS_Stop();
BASS_Start();
BASS_ChannelPlay(Channel, False);
end;
an der markierten Stelle ab.
Das Programm hängt hier also in der Bass.DLL.
mfG
mirage228