Recording input stream to wav directly about uos HOT 10 CLOSED

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  uos_flat, LazUTF8;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  s1,s2 : string;
  PlayerIndex1: cardinal;
  In1Index : integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var x:integer;
begin
  {$IFDEF Windows}
{$if defined(cpu64)}
s1 := application.Location + 'lib\Windows\64bit\LibPortaudio-64.dll';
s2 := application.Location + 'lib\Windows\64bit\LibSndFile-64.dll';
{$else}
s1 := application.Location + 'lib\Windows\32bit\LibPortaudio-32.dll';
s2 := application.Location + 'lib\Windows\32bit\LibSndFile-32.dll';
{$endif}
{$ENDIF}
 x:=0;
uos_LoadLib(Pchar(s1), pchar(s2), nil, nil, nil);
uos_GetInfoDevice();
while x < UOSDeviceCount do
    begin

      if   (uosDeviceInfos[x].ChannelsIn > 0) and (uosDeviceInfos[x].HostAPIName = 'MME') then
            ComboBox1.Items.Add(IntToStr(uosDeviceInfos[x].DeviceNum)+ '-'+  SysToUTF8(uosDeviceInfos[x].DeviceName));
      inc(X);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
PlayerIndex1 := 0;
  uos_CreatePlayer(PlayerIndex1);
  uos_addIntoFile(PlayerIndex1, Pchar('d:\temp\test.wav') ,44100,2,2,-1 );
  In1Index := uos_AddFromDevIn(PlayerIndex1, 2, -1, -1, -1,-1, 4096);
  uos_Play(PlayerIndex1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  uos_Stop(PlayerIndex1);
end;

end.

`unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  cmem, // C memory manager
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  uos_flat, LazUTF8;`