WaveData Problem in verbindung mt WMP

Hi

Nicht wirklich berauschend.
Gleiche problem wie beim FFT

Delphi-Quellcode:

			Var

  Data16Pos, Data16 : PSmallInt;

zusammenfalten · markieren

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

WaveData Problem in verbindung mt WMP

WaveData Problem in verbindung mt WMP

Forumregeln