Dark Player II

[Nils_13]

Hi,

die CPU-Auslastung ist nach der kleinen Code Veränderung kurz auf 100% (ca. 1 Sekunde) und danach 4-7%, schauts euch bitte an ...

[Nils_13]

*push*

soll ich meinen klenen Video-Player auch noch Online stellen ?

[Die Muhkuh]

Hi,

du weist, das pushen innerhalb von 24h nicht erlaubt ist, oder?

Ausserdem. Warum fragst du? Mach doch einfach nen neuen Thread auf und dann kannst du das ding vorstellen.

[Nils_13]

Hi,

@Red_Dragon: und wie spielst dus ab?

[Red_Dragon]

Zitat von Nils_13:

Hi,

@Red_Dragon: und wie spielst dus ab?

TFKBassPlayer.PlayFile(Wiedergabeliste.Items[Wiedergabeliste.ItemIndex]); steht oben eigenltich auch schon (nur eben mit ner anderen bezeichnung

[Gandalfus]

Man änder endlich den Code beim hinzufügen. Hast du mein Beitrag überhaupt gelesen? Und nimm meine Unit aus dem Archiv raus du benutzt sie ja nichtmal.

Code:

sams[samc] := BASS_SampleLoad(FALSE, f, 0, 0, 3, BASS_SAMPLE_OVER_POS);
BASS_SampleFree(samc);

Ja das ist sinnvoll erstmal in speicher reinladen nichts damit machen und dann wieder löschen.

Die Visualisierung ist eins zu eins aus dem Bass Bespiel kopiert auch nicht gerade eine Heldentat.

Ausserdem hast du schon mal was von Resourcen freigeben gehört?

Code:

  CircleScope := TCircleScope.Create(PaintFrame.Width, PaintFrame.Height);
  OcilloScope := TOcilloScope.Create(PaintFrame.Width, PaintFrame.Height);
  Spectrum    := TSpectrum.Create(PaintFrame.Width, PaintFrame.Height);

Das mustt du in ondestroy wieder freigeben:

Code:

CircleScope.free;
OcilloScope.free; 
Spectrum.free;

Code:

procedure TFormPlayer.Image2Click(Sender: TObject);
begin
Bass_Free;
Close;
end;

toll dann wird Bass_Free; ja auch aufgeufen wenn ich das Programm mit alt+f4 beende.

[Nils_13]

HI,

deine Unit

Wozu sollte ich denn CircleScope/.../... wieder freigeben ?

Nach dem adden ist es schon zu spät um es freizugeben:

Delphi-Quellcode:

if not op.Execute then Exit;
for i := 0 to Op.Files.Count-1 do begin
  f := PChar(Op.Files.Strings[i]);
  sams[samc] := BASS_SampleLoad(FALSE, f, 0, 0, 3, BASS_SAMPLE_OVER_POS);
   if sams[samc] <> 0 then
    begin
     playlist.Items.Add(f);
     BASS_SampleFree(samc); // <--
     Inc(samc);
    end
   else
      Application.MessageBox('Fehler beim Hinzufügen von der Datei!', 'dAmp', mb_OKCancel +
                            mb_DefButton1 + MB_ICONQUESTION);
   end;

[Gandalfus]

Warum lässt du BASS_SampleLoad nicht weg ist total überflüssig.

sams[] ist ausserdem ein statischer array also Fehler wenn man viele Dateien adden will.

[Nils_13]

@gandalafus: hab ich jetzt

[Nils_13]

Neue Version ist da.

//Nebenbei: der Push-Button wäre wirklich gut, ich musste extra einen Beitrag schreiben um den Thread nach oben zu bringen. Diskutiert darüber aber bitte nicht hier, sondern hier
Danke !