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:

implementation
  uses ocpData, windows, uAsioVars, AudioTools;

{ TAsioOutThread }

procedure TAsioOutThread.Execute;
var eh: Array [0..1] of THandle;
begin
  { Thread-Code hier einfügen }
  eh[0]:= outEvent;
  eh[1]:= closeEvent;
  repeat
    if waitForMultipleObjects(2, @eh[0], FALSE, 500) = wait_object_0 then begin
      if (driverState = 4) then begin
         enterCriticalSection(outSync);
        try
          if assigned(dpOut) then
            outCallBackEx(dpOut, puffersize, outMode);
            //ocp(dpOut, puffersize, outMode); //Hier haben wir Zeit... denk ich..
        finally
          leaveCriticalSection(outSync);
        end;
      end;
    end;
  until terminated;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var pi: pLongInt;
    pd: double;
    Faktor: double;
    i: integer;


....
   out_32: begin
             faktor:= $7FFFFFFF * siglatch.Laut;
             pi:= speicher;
             for i:=1 to Zahl do begin
               pi^:= round(faktor * pd^);
               inc(pD);
               inc(pi);
             end;
           end;
....					

1:
2:
3:
4:
5:
6:
7:
8:
9:

   out_32: begin
             faktor:= $7FFFFFFF * siglatch.Laut;
             pi:= speicher;
             for i:=1 to Zahl do begin
             pi^:= longInt(round(faktor * pd^));
             inc(pD);
             inc(pi);
           end;
         end;