WaveData Problem in verbindung mt WMP

[EWeiss]

Hi

Nicht wirklich berauschend.
Gleiche problem wie beim FFT

Delphi-Quellcode:

Var
  Data16Pos, Data16 : PSmallInt;

Delphi-Quellcode:

      begin
        try
          GetMem(Data16, WAVE_SkipCount shl 11 + 128);
        except
          Result := False;

          BassFuncs^.SetError(BASS_ERROR_MEM);
          Exit;
        end;
        Data16Pos := Data16;

        BASS_ChannelGetData(channel, Data16, WAVE_SkipCount shl 11 + 128);
        if (ChanInfo.chans = 2) then
        begin
          for i := 1 to 575 do
            begin
              try
                VisData^.waveform[0, i] := Data16Pos^ shr 8;
                Inc(Data16Pos, WAVE_SkipCount);

                VisData^.waveform[1, i] := Data16Pos^ shr 8;
                Inc(Data16Pos, WAVE_SkipCount);
              except
                Result := False;

                BassFuncs^.SetError(BASS_ERROR_MEM);
                Exit;
              end;
            end;
        end

Läßt sich in WMP nicht vernünftig darstellen.
Samples wie gehabt 2x1024(2048) anstelle von 575

Ändert aber nicht wirklich was an der Darstellung.

Show pic

gruss Emil