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:

procedure TScanThread.Execute;
var
  PeakBuf: array[0..176400] of integer;  //=1sekunde daten
  Data: ^smallint;
  //lc:integer;
  rc: integer;
  pl, pr: integer;
  BufLen,i: Integer;
  counter: integer;
  peaksL: array of smallint;
  peaksR: array of smallint;
begin
  inherited;
  OutputDebugString('ich arbeite'); //ist nur für mich
  setlength(peaksL, 2600);//max witdh |muss noch genau bestimmt werden;
  setlength(peaksR, 2600);//ist nur zum Test
  counter:= 0;
  pl:= 0;
  pr:= 0; rc:= Fzoom;

  BufLen:= Bass_ChannelGetData(Fdecoder, @PeakBuf, 176400);
  Data:= @PeakBuf;
  while (buflen > 0) and (not terminated) do
  begin
    //if xzoom < 6 then
    if (Data^) > pl then pl:= (Data^)else
    if (Data^) < pl then pl:= (Data^);    // Get LeftPeak
    Inc(Data);
    //if xzoom < 6 then
    if (Data^) > pr then pr:= (Data^)else
    if (Data^) < pr then pr:= (Data^);    // Get RightPeak
    Inc(Data);
    BufLen:= BufLen -4 ;

    if counter > 2600 then break;

    peaksL[counter]:= pl;
    peaksR[counter]:= pr;

    while rc > 1 do
    begin
      if (Data^) > pl then pl:= (Data^);//else
      //if (Data^) < pl then pl:= (Data^);
      Inc(Data);
      if (Data^) > pr then pr:= (Data^);//else
      //if (Data^) < pr then pr:= (Data^);
      Inc(Data);
      BufLen:= BufLen -4 ;

      if buflen <= 0 then
      begin
        for i:= low(PeakBuf) to high(PeakBuf) do
        begin
          PeakBuf[i]:= 0;
        end;
        BASS_ChannelSetPosition(Fdecoder, BASS_ChannelSeconds2Bytes(Fdecoder, sec), BASS_POS_BYTE);
        BufLen:= Bass_ChannelGetData(Fdecoder, @PeakBuf, 176400);

        Data:= @PeakBuf;
        inc(sec);

      end;
      dec(rc);
    end;
    inc(counter);
    pl:= 0;
    pr:= 0;
    rc:= trunc(power(2, Fzoom -1));;
  end;
  OutputDebugString('bin Fertig'); // ist nur für mich
  //Edit_Audio.ScanPeaks2(FDecoder, FZoom) das war der alte aufruf;
  //Synchronize(UpdatePeaks);  wie gebe ich die Arrays peaksL +  peaksR zurück?
  Terminate;
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:

type TReturnArray = array of Bar;

type
    TFooThread = class(TThread)
    private
        FResultOk: Boolean;
        FResult: TReturnarray;
        //...
    public
        function IsValidResult: Boolean;
        function GetResult: TResultArray;
        //...
    end;

//...

function TFooThread.IsValidResult: Boolean;
begin
    Result := FResultOk;
end;

function TFooThread.GetResult: TResultArray;
begin
    Result := FResult;
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:

type TReturnArray = array of smallint;

type TScanThread = class(TThread)
  private
    Fdecoder : HSTREAM;
    Fzoom : integer;
    //Fpl, Fpr: array of smallint;//war ein anderer versuch!!!
    FResult: TReturnArray;
  protected
    procedure Execute; override;

  public
    procedure UpdatePeaks(Fpl, Fpr: array of smallint);
    function GetResult: TReturnArray;
                  constructor Create(decoder:HSTREAM; zoom: Integer);
    
  end

....
....

function TScanThread.GetResult: TReturnArray;
begin
  Result := FResult;
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:

type
    TFooThread = class(TThread)
    private
        FResultOk: Boolean;
        FResult: TReturnarray;
        //...
    public
        function IsValidResult: Boolean;
        function GetResult: TResultArray;
        //...
    end;

//...

function TFooThread.IsValidResult: Boolean;
begin
    Result := FResultOk;
end;

function TFooThread.GetResult: TResultArray;
begin
  if not FResultOk then
    raise Exception.Create(...); // Sicher ist sicher

  Result := FResult;
end;

//...