1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TForm1.paint_timeTimer(Sender: TObject);
 var FFTFata : TFFTData; WaveData  : TWaveData;
begin

 if BASS_ChannelIsActive(unit1.strs[1]) <> BASS_ACTIVE_PLAYING then Exit;

case funktionox of
  0 :
   begin
    BASS_ChannelGetData(unit1.strs[1], @WaveData, 2048);
    CircleScope.Draw (PaintFrame.Canvas.Handle, WaveData,90, 45);
   end;

  1 :
   begin
    BASS_ChannelGetData(unit1.strs[1], @WaveData, 2048);
    OcilloScope.Draw (PaintFrame.Canvas.Handle, WaveData, 0, 45);
   end;

  2 :
   begin
    BASS_ChannelGetData(unit1.strs[1], @FFTFata, BASS_DATA_FFT1024);
    Spectrum.Draw (PaintFrame.Canvas.Handle, FFTFata, 25, 0);
   end;
end;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

paintframe.Visible:= true;
 paint_time.Enabled:= true; \\der timer für das oszilluskop
  BASS_Init(-1, 44100, 0, Application.Handle, nil);

  CircleScope := TCircleScope.Create(PaintFrame.Width, PaintFrame.Height);
  OcilloScope := TOcilloScope.Create(PaintFrame.Width, PaintFrame.Height);
  Spectrum    := TSpectrum.Create(PaintFrame.Width, PaintFrame.Height);
  CircleScope.Radius := 30;
 CircleScope.Offset := 50;
 OcilloScope.Offset := 30;
 Spectrum.Height := 50;
 spectrum.Mode:= 0;
 spectrum.Width:= 1;
 CircleScope.BackColor:= oszilbackcolor;
 OcilloScope.BackColor:= oszilbackcolor;
 spectrum.BackColor:= oszilbackcolor;
 circlescope.Pen := oszilcolor;
 ocilloscope.Pen := oszilcolor;
 spectrum.Pen := oszilcolor;
 Spectrum.LineFallOff := 2;
  {BackImageRes.Picture.LoadFromFile(OpenPictureDialog.FileName);}
 CircleScope.SetBackGround(True, BackImageRes.Picture.Graphic);
 OcilloScope.SetBackGround(True, BackImageRes.Picture.Graphic);
 Spectrum.SetBackGround(True, BackImageRes.Picture.Graphic);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:

unit Unit17;

interface

uses
  Windows,Classes,circle_vis,
  osc_vis,CommonTypes,spectrum_vis,bass,Forms,messages,dialogs;

type
  tmythread = class(TThread)
  private
    { Private-Deklarationen }
    hbtest : hdc;
    procedure UpDateLVCaption;
  protected
    procedure Execute; override;
    public
    FIndex: Integer;
    hstream1 : hstream;
  end;

implementation
uses unit1;

{ Wichtig: Methoden und Eigenschaften von Objekten in visuellen Komponenten dürfen
  nur in einer Methode namens Synchronize aufgerufen werden, z.B.

      Synchronize(UpdateCaption);

  und UpdateCaption könnte folgendermaßen aussehen:

    procedure tmythread.UpdateCaption;
    begin
      Form1.Caption := 'Aktualisiert in einem Thread';
    end; }

{ tmythread }

procedure tmythread.Execute;
var
r1 : integer;
FFTFata : TFFTData;
 WaveData  : TWaveData;
begin

  { Thread-Code hier einfügen }

  repeat

case FIndex of
  0 :
   begin
    BASS_ChannelGetData(hstream1, @WaveData, 2048);
    CircleScope.Draw (hbtest, WaveData,90, 45);
   end;

  1 :
   begin
    BASS_ChannelGetData(hstream1, @WaveData, 2048);
    OcilloScope.Draw (hbtest, WaveData, 0, 45);
   end;

  2 :
   begin
    BASS_ChannelGetData(hstream1, @FFTFata, BASS_DATA_FFT1024);
    Spectrum.Draw (hbtest, FFTFata, 25, 0);
   end;
end;
if Terminated then
      break;
Synchronize(UpdateLVCaption);
sleep(33);
until r1 = 123;


end;

procedure tmythread.UpDateLVCaption;
begin
form1.UpdateLVCaption(hbtest);
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

BASS_Init(-1, 44100, 0, Application.Handle, nil);

  CircleScope := TCircleScope.Create(unit1.form1.PaintFrame.Width, unit1.form1.PaintFrame.Height);
  OcilloScope := TOcilloScope.Create(unit1.form1.PaintFrame.Width, unit1.form1.PaintFrame.Height);
  Spectrum    := TSpectrum.Create(unit1.form1.PaintFrame.Width, unit1.form1.PaintFrame.Height);
  CircleScope.Radius := 30;
 CircleScope.Offset := 50;
 OcilloScope.Offset := 30;
 Spectrum.Height := 50;
 spectrum.Mode:= 0;
 spectrum.Width:= 1;
 CircleScope.BackColor:= oszilbackcolor;
 OcilloScope.BackColor:= oszilbackcolor;
 spectrum.BackColor:= oszilbackcolor;
 circlescope.Pen := oszilcolor;
 ocilloscope.Pen := oszilcolor;
 spectrum.Pen := oszilcolor;
 Spectrum.LineFallOff := 2;
 CircleScope.SetBackGround(True, unit1.form1.BackImageRes.Picture.Graphic);
 OcilloScope.SetBackGround(True, unit1.form1.BackImageRes.Picture.Graphic);
 Spectrum.SetBackGround(True, unit1.form1.BackImageRes.Picture.Graphic);

 thread1:= tmythread.Create(True);
 thread1.hstream1 := strs[1];
 thread1.FIndex:= funktionox;

 Thread1.Priority := tpnormal;
 thread1.FreeOnTerminate := True;
 thread1.Resume;					

1:
2:
3:
4:
5:

procedure tform1.UpdateLVCaption(htest : hdc);
begin
PaintFrame.Canvas.Handle := htest;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TMyThread.Execute;
begin
 while not Terminated do
  begin
   // mach was während der Thread läuft, z.B.:
   BASS_ChannelGetData(AudioStream, @GlobalWaveData, 2048);
   Synchronize(ZeichneMich);
  end;
end;

procedure TMyThread.ZeichneMich;
begin
 X.Draw(HDC, GlobalWaveData, x, y); 
end;