| Autor |
Beitrag |
Leuchtturm
  
Beiträge: 1087
Win Vista, Knoppix, Ubuntu
Delphi 7 Pe, Turbo Delphi, C#(VS 2005 Express), (X)HTML + CSS, bald Assembler
|
Verfasst: Fr 20.10.06 11:55
Hi,
ich habe mich mal mit der Bass.dll auseinandergesetzt.
Ich bin aber aus den Demos nicht wirklich schlau geworden 
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure TForm1.Button1Click(Sender: TObject);
begin
BASS_ChannelPlay(strs[i],false);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
begin
if Opendialog1.Execute then
begin
ListBox1.Items.Add(OpenDialog1.FileName);
end;
end; |
Damit öffne und spiele ich den Titel ab.
Startet auch fehlerlos. Der Titel den ich auswähle wird auch in die Listbox eingetragen aber wenn ich den dann auswähle wird der nicht abgespielt 
Leuchtturm _________________ Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.
|
|
Gausi
Beiträge: 8548
Erhaltene Danke: 477
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: Fr 20.10.06 14:59
Bevor man play macht, muss man erst create machen 
So sollte es funktionieren:
Delphi-Quelltext
1:
2:
3:
4:
| var aStream: DWord;
aStream := BASS_StreamCreateFile(False, PChar(aFilename), 0, 0, 0);
BASS_ChannelPlay(aStream , True); | _________________ We are, we were and will not be.
|
|
Leuchtturm 
Beiträge: 1087
Win Vista, Knoppix, Ubuntu
Delphi 7 Pe, Turbo Delphi, C#(VS 2005 Express), (X)HTML + CSS, bald Assembler
|
Verfasst: Fr 20.10.06 15:35
als was ist aFileName deklariert 
Edit:Habs rausgefunden: PChar
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.Button1Click(Sender: TObject);
var
aFilename: PChar;
i: Integer;
begin
aStream := BASS_StreamCreateFile(False, PChar(aFileName), 0, 0, 0);
BASS_ChannelPlay(strs[i] , True);
end; |
Hier versuche ich jetzt abzuspielen
Da kommt aber der Fehler:
| Fehler hat folgendes geschrieben: | | Im Project Project1.exe ist eine Exception der Klasse EAccessViolation mit der Adresse 00457D96 in Modul 'Project1.exe'. Lesen von Adresse 00F60940 aufgetreten |
Was bedeutet das nun wieder  _________________ Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.
Zuletzt bearbeitet von Leuchtturm am Fr 20.10.06 15:49, insgesamt 1-mal bearbeitet
|
|
jakobwenzel
Beiträge: 1889
Erhaltene Danke: 1
XP home, ubuntu
BDS 2006 Prof
|
Verfasst: Fr 20.10.06 15:45
aFilename= ein Dateiname = Name der zu ladenden Datei! (IMHO)
_________________ I thought what I'd do was, I'd pretend I was one of those deaf-mutes.
|
|
Leuchtturm
Beiträge: 1087
Win Vista, Knoppix, Ubuntu
Delphi 7 Pe, Turbo Delphi, C#(VS 2005 Express), (X)HTML + CSS, bald Assembler
|
Verfasst: Fr 20.10.06 15:50
Ja danke hatte ich jetzt auch schon rausgefunden: siehe Edit oben
_________________ Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.
|
|
Leuchtturm
Beiträge: 1087
Win Vista, Knoppix, Ubuntu
Delphi 7 Pe, Turbo Delphi, C#(VS 2005 Express), (X)HTML + CSS, bald Assembler
|
Verfasst: Fr 20.10.06 15:59
Jetzt funktionierts: habe bloß diese Zeile im OnCreate vergessen:
Delphi-Quelltext
1:
| BASS_Init(-1, 44100, 0, Application.Handle, nil); | _________________ Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.
|
|
|
