Wie waveOutWrite visualisieren ?

[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...