Wie waveOutWrite visualisieren ?

[turboPASCAL]

Hi,

ich habe folgendes Problem. Ich möchte Daten die über waveOutWrite ausgegeben werden
visualisieren. Das Problem an der Sache ist das der Puffer für waveOutWrite sehr gross
ist und somit nicht so einfach visualisiert werden kann.

Ich möchte jeweils nur 256 Bytes visualisieren, der waveOutWrite-Puffer ist aber zB. 4096 Bytes gross.
Demzufolge wäre die Visualisierung asynchron, weil ja immer nur die ersten 256 Bytes dargestellt werden.

Wie könnte man dies realisieren ohne über den Stereomix zu gehen ?

[igel457]

Gibst du die Daten über WaveOut aus, oder ein anderes Programm?

Falls ersteres der Fall ist, schau dir mal den Quellcode von Audorra an. Du kannst bei WaveOut eine Callbackfunktion registrieren und mit jedem Buffer "Userdata" verknüpfen. Dort schreibst du einfach den entsprechenden Timecode des Buffers rein, den du über die Callbackfunktion zurückbekommst. Nun Streamst du die Daten nicht nur an WaveOut sondern auch an einen Visualisierungsthread, der die Timecodedaten der Daten und der aktuellen Wiedergabe hat und synchronisierst dort.

Siehe:
AuFilterGraph.TAuAnalyzeThread.Excecute
AuWaveOut32Driver.stream_callback

[turboPASCAL]

Irgend wie sehr verwirrend alles.

Wie kann ich denn ein eigene Wavestructur in der Callbackfunktion abrufen ?

[igel457]

Du speicherst einen Pointer auf deine Daten in dwUser.

[turboPASCAL]

Könntest du mir ein Beispiel machen ? Pseudocode oder Pi * würde reichen.

Ich verstehe einfach nicht wie dwUser beine Datenstrucktur befüllen soll.

[igel457]

Delphi-Quellcode:

FBlocks: array of TWaveHdr;

type
  TMyStruct = record
    [...]
  end;
  PMyStruct = ^TMyStruct;

//Schreiben
var
  struct: PMyStruct;
begin
  New(struct);
  struct^.TimeCode = 1923820;
  @FBlocks[FCurrentBlock].dwUser = struct;

  waveOutPrepareHeader(Fhwo, @FBlocks[FCurrentBlock], SizeOf(FBlocks[FCurrentBlock]));
  waveOutWrite(Fhwo, @FBlocks[FCurrentBlock], SizeOf(FBlocks[FCurrentBlock]));
end;

//Callback
//dwParam1: Pointer of Block
procedure stream_callback(hwo: HWAVEOUT; uMsg: Cardinal; dwInstance, dwParam1, dwParam2: DWORD);stdcall;
begin
  if (uMsg = WOM_DONE) then
  begin
    with TAuWaveOutStreamDriver(Pointer(dwInstance)) do
    begin
      FFreeblocks := FFreeblocks + 1;
      FSyncData := PAuSyncData(PWaveHdr(dwParam1)^.dwUser)^;
      
      Dispose(PWaveHdr(dwParam1)^.dwUser);
    end;
  end;
end;

//Öffnen
                                                                           //\/ dwInstance
waveOutOpen(@Fhwo, Cardinal(FDevId), @FFormat, Cardinal(@stream_callback), Cardinal(self),
    CALLBACK_FUNCTION)

Hoffe das Hilft ein wenig...

[turboPASCAL]

Ersteinmal, danke.

Ich werde das mal auf einen anderen Tag verlegen. Heute kommt bei mir eh nix mehr rum.

[igel457]

Es hindert dich auch niemand daran direkt Audorra (bzw. das WaveOut-Modul) zu verwenden

[turboPASCAL]

Das würde die Sache vill. vereinfachen.
Allerdings ist das Programm an sich nonVCL.

Des weiteren würde ich nichts dazu lernen.

[igel457]

Wenn du SysUtils und Classes nicht als VCL zählst ist Audorra auch nonVCL (ist ja auch eine Demo für ein pures Konsolenprogramm dabei) und die WaveOut-Unit kannst du ja auch getrennt nutzen.

Dein zweiter Grund ist aber natürlich ausschlaggebend.