Visualisierungen mit bass.dll

[E307]

Hier OSCDraw von turboPascal:

Delphi-Quellcode:

procedure TForm1.OscDraw(aBitmap: TBitmap; WaveData: TWaveData; ScopeOff: Word);
const
  DrawRes = 2;
var
  i, YPos: LongInt;
  HalfHeight: Integer;
  R, L: SmallInt;
begin
  with aBitmap do
  begin
    Assign(HintergrundBitmap);

    HalfHeight := Height div 2;

    Canvas.Pen.Width := 1;
    Canvas.Pen.Color := clYellow;
    Canvas.moveto(0, HalfHeight div 2);
    for i := 0 to 255 do
    begin
      R := SmallInt(Loword(WaveData[i * DrawRes])); // Rechter Kanal
      YPos := Trunc((R / (2 * 65535)) * ScopeOff);
      Canvas.lineto(i, HalfHeight div 2 + YPos);
    end;
    Canvas.moveto(0, HalfHeight + (HalfHeight div 2));
    for i := 0 to 255 do
    begin
      L := SmallInt(HiWord(WaveData[i * DrawRes])); // Linker Kanal
      YPos := Trunc((L / (2 * 65535)) * ScopeOff);
      Canvas.lineto(i, HalfHeight + (HalfHeight div 2) + YPos);
    end;

    Canvas.Pen.Color := clRed;
    Canvas.Pen.Width := 2;
    Canvas.moveto(0, HalfHeight);
    for i := 0 to 255 do
    begin
      R := SmallInt(Loword(WaveData[i * DrawRes]));
      L := SmallInt(HiWord(WaveData[i * DrawRes]));
      YPos := Trunc(((R + L) / (2 * 65535)) * ScopeOff); // Beide Kanäle
      Canvas.lineto(i, HalfHeight + YPos);
    end;
  end;
end;

Und hier die Scrollschrift von mir:

Delphi-Quellcode:

procedure TForm1.ScrollTimerTimer(Sender: TObject);
var
     I:Integer;
     S,ScrollText:String;
Begin
     ScrollText:='          Multimediaplayer Version 1.5            ';
     Inc(Scroll);
     If Scroll>Length(ScrollText)-21 then
        Scroll :=0;
     For I:=1 to 21 do
         S:=S+ScrollText[I+Scroll];
     Application.Title:=S;

[E307]

Ich habe jetzt das ganze noch mal auf nem anderen Computer getestet: Es flackert auch da!

[turboPASCAL]

Du musst alles auf ein Bitmap kopieren und dann erst darstellen. Bei Oppreationen die nacheinander ablaufen und diese immer erst auf die Form gezeichnet werden kannst du wetten das es flackern wird.


- Bitmap erstellen
- Video/Bild in das Bitmap kopieren
- Laufschrift o.ä. auf Bitmap kopieren
- Vis auf Bitmap kopieren
- Bitmap auf Form zeichnen
- fertig. :wink:


BitBlt Gibt es schon in deinem Delphi, nur die Hilfe dazu wird wohl nicht vorhanden sein. ;)

bitblt bitblt
stretchblt stretchblt

[E307]

Zitat:

- Bitmap erstellen
- Video/Bild in das Bitmap kopieren
- Laufschrift o.ä. auf Bitmap kopieren
- Vis auf Bitmap kopieren
- Bitmap auf Form zeichnen
- fertig.

:wiejetzt: Äh. Wie genau geht das?

[turboPASCAL]

Delphi-Quellcode:

var Bitmap: TBitmap;
begin
  ...
  Bitmap := TBitmap.Create;
  Bitmap.Pixelformat := pf24Bit;
  Bitmap.Draw(0,0, VideoBitmap);
  Bitmap.Textout(5,5,'Hallo');
  ...
  Form1.Canvas.Draw(10,10, Bitmap);
  
  Bitmap.Free;
end;

Wie bekommst du denn das Videobild, Mediaplayer ?

[E307]

Also soll ich die Visualisierung direkt auf die Timage zeichnen? Und wenn das klappt, was soll ich dann mit den Gaugen machen?

[E307]

Ich habe jetzt eine Lösung! :bounce1: Man muss die Paintbox und die Gaugen mit Panels unterlegen, bei denen

Delphi-Quellcode:

 DoubleBuffered := true

gestellt ist! Danke für die viele Hilfe!