Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: 'Visualissation'

    Delphi
    by turboPASCAL, 20. Jun 2005
  Was haste denn für einen ? Pentium 75 ? :mrgreen:
  
  Ist der Timmer Interval zu klein, höher setzen > 50 oder so.
• Forum: Multimedia

  Re: 'Visualissation'

    Delphi
    by turboPASCAL, 20. Jun 2005
  Bessere Variante (Antiflacker):
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  const
  MaxPeak = 32768; // sollte schon in BassDLLPlayer global def. sein
  var
  p, TmpRight: integer;
  aRect, bRect: TRect;
  begin
  // Bar's zeichnen / aktualisieren
• Forum: Multimedia

  Re: 'Visualissation'

    Delphi
    by turboPASCAL, 20. Jun 2005
  Ein Beispiel:
  
  // Diese Methode flackert, weil erst der Hintergrund gelöscht wird
  // und danach gezeichnet.
  procedure TForm1.Timer1Timer(Sender: TObject);
  var
  p: integer;
  aRect: TRect;
  begin
  // Bar's zeichnen / aktualisieren
• Forum: Multimedia

  Re: 'Visualissation'

    Delphi
    by turboPASCAL, 20. Jun 2005
  Verbinden ? Du hast eine Aussteuerung vom linken und vom rechten Kanal, also so zu sagen den linken und den rechten Lautsprecher.
  
  Baue dir eine procedure die zwei Balken zeichnet.
  
  
  procedure DrawMyBars(LKanal, RKanal: Longword);
  begin
  if BassDLLPlayer1.Status = sndPlaying then
  begin
  // alles was in der PaintBox gezeichnet werden soll wenn Player läuft zB.:
• Forum: Multimedia

  Re: 'Visualissation'

    Delphi
    by turboPASCAL, 20. Jun 2005
  Ja so ist es. Demo bei TBassDLLPlayer (SimplePlayer 3) mit ProgressBar's.
• Forum: Multimedia

  Re: 'Visualissation'

    Delphi
    by turboPASCAL, 19. Jun 2005
  :pale: Erschrick mich nich so, TBassDLLPlayer macht Fehler ? :mrgreen:
  
  
  procedure TForm1.Timer2Timer(Sender: TObject);
  var
  data: TFFTData;
  begin
  IF BassdllPlayer1.status = sndPLAYING then
  begin
  data := BassdllPlayer1.GetFFTData;