Виртуальная "шарманка"

[UR5ZQV]

Типа так, плюс две динамические "балалайки", vicx95.dll, vicx.dll и системный vicx.sys. Если надо могу воткнуть/

unit hiPortIO;

interface


uses Kol,Share,Debug,Windows;


type
  THIPortIO = class(TDebug)
   private
    FID:Cardinal;
    FErr:boolean;


    FWin98:boolean;


    procedure Open;
   public
    _prop_Port:integer;


    _data_Port:THI_Event;
    _data_Byte:THI_Event;
    _event_onRead:THI_Event;


    constructor Create;
    procedure _work_doRead(var _Data:TData; Index:word);
    procedure _work_doWrite(var _Data:TData; Index:word);
  end;


implementation


uses hiLPT;


var
  OpenPrt:TOpenPrt;
  R_P:TR_P;
  W_P:TW_P;
  ClosePrt:TClosePrt;


constructor THIPortIO.Create;
begin
   inherited;
   if not Assigned( R_P ) then
     Open;
end;


procedure THIPortIO.Open;
begin
  If (GetVersion() and $80000000) <> 0 then
   begin
     FErr := not FileExists('vicx95.dll') and not FileExists(GetSystemDir + 'vicx95.dll');;
     if FErr then
       MessageBox(0,'Не найдена библиотека для работы с портами! См. справку.','Ошибка',MB_OK)
     else FID := LoadLibrary('vicx95.dll');
     FWin98 := true;
   end
  else
   begin
     FWin98 := false;
     FErr := not FileExists('vicx.dll') and not FileExists(GetSystemDir + 'vicx.dll');
     if FErr then
       MessageBox(0,'Не найдена библиотека vicx.dll для работы с портами! См. справку.','Ошибка',MB_OK)
     else
      begin
        FID := LoadLibrary('vicx.dll');
        OpenPrt := TOpenPrt(GetProcAddress(FID,'OpenPrt'));
        ClosePrt := TClosePrt(GetProcAddress(FID,'ClosePrt'));
      end;
   end;


   if FErr then exit;


   R_P := TR_P(GetProcAddress(FID,'R_P'));
   W_P := TW_P(GetProcAddress(FID,'W_P'));
end;


procedure THIPortIO._work_doRead;
var
  FPrt:word;
  b:byte;
begin
   FPrt := ReadInteger(_data,_data_Port,_prop_Port);
  // FPrt := $278;
   if not FErr then
     if FWin98 then
         b := R_P(FPrt,1)
     else
      begin
       FPrt := OpenPrt(FPrt,1,1);
       b := R_P(FPrt,0);
       ClosePrt(FPrt);
      end;
   _hi_CreateEvent(_Data,@_event_onRead,b);
end;


procedure THIPortIO._work_doWrite;
var
  FState:byte;
  FPrt:word;
begin
   FState := ReadInteger(_data,_data_Byte,0);
   FPrt := ReadInteger(_data,_data_Port,_prop_Port);
   if not FErr then
     if FWin98 then
          W_P(FPrt,1,FState)
     else
      begin
       FPrt := OpenPrt(FPrt,1,1);
       W_P(FPrt,FState,0);
       ClosePrt(FPrt);
      end;
end;


end.

[RN6LIQ]

Наверное это уже не актуально, Win95/win98/Me никто уже не эксплуатирует. "Железа" под них уже нет, а ставить на современное "железо" не рентабельно. Вопрос снимаю. Было чистое любопытство.
Но все равно, то что в новой шарманке крутится всего один поток звука(48000 частота дискретизации) позволяет ее адаптировать в систему где можно открыть звуковое устройство всего в одном экземпляре. Например в Linux я нормально пользуюсь только OSS, которая позволяет открыть звуковое устройство только одной программе. ALSA слишком для меня навороченная и сложна для написания небольших прикладных программ. Различные звуковые сервера не являются стандартом, так что бы везде на всех Linux работали. А OSS хотя и является уходящим стандартом, но великолепно работает в режиме эмуляции под ALSA. При этом проста в программировании и надежна в работе. Надо будет как нибудь поиграться.

[ra3qdp]

в новой шарманке крутится всего один поток звука

в личной переписке я у Вас спрашивал именно про это.

[RN6LIQ]

я у Вас спрашивал именно про это

Вы про другое спрашивали, в общем про то почему пакеты не доходят через интернет равномерно у всех пользователей, почему нет-нет и возникают разрывы между пакетами, что приводит к сбою передачи цифровых модуляций. Наверное не поняли о чем я сегодня написал, а написал о том, что шарманка работает только со звуком стерео 16 бит 48000 раз в секунду. А по каналу передается в зависимости от режима GSM, G711, 16 bit, стерео, полоса 24000, 12000, 8000 и так далее, но при приеме это все преобразовывается опять в стерео 16 бит 48000 раз в секунду. То есть со звуковой картой работает один стандартный поток, программой открывается звуковая карта - один раз.

[ra3qdp]

Вы про другое спрашивали

Вы меня с кем-то спутали.

[RN6LIQ]

Вы меня с кем-то спутали.

Да, спутал, извините, но и вы тоже свой вопрос спрашивали не про то о чем я писал выше. К количеству необходимых каналов в вашем вопросе моя информация не имеет отношения.

[ra3qdp]

я Вам писал: "Мне показалось, что новая программа (как бы сказать?) - в другое место в виндовсе вставлена".
Выходит Вы письма читаете не внимательно и вообще в них не вникаете. Ничего обсуждать ни с кем не собираетесь, не говоря - советоваться. Пользователи - подопытные кролики. Проект "Шарманка" - трамвай без номера, который неизвестно куда идет.
Кто-нибудь сел бы в такой трамвай ? (но пользователи "садятся в Шарманку").

[RN6LIQ]

я Вам писал: "Мне показалось, что новая программа (как бы сказать?) - в другое место в виндовсе вставлена".

Вот как вас понять, то что вы написали? В какое такое место вставлена?

Выходит Вы письма читаете не внимательно и вообще в них не вникаете.

Вникаю, читаю, сразу отвечаю. Писем много, и не только по поводу шарманки, естественно потом забываю. Для того, что бы не забывать в письмах оставляют предысторию. а вы бросаете короткие фразы, к чему, почему, непонятно и вспомнить тяжело по такой скудной информации.

Ничего обсуждать ни с кем не собираетесь, не говоря - советоваться.

А вы попробуйте обсудить, только давайте больше информации. Понятно, что у вас там океан мыслей, так и пишите про них больше. А короткие ваши фразы ни о чем не говорят, только разве что вам, вы же их автор.

Пользователи - подопытные кролики.

А это уже философское заявление, впрочем и остальные заявления такие же.

[UR5ZQV]

RN6LIQ, Василий Михайлович, не берите в голову. Этот "Коллега" бродит по всем темам, но конкретных вопросов (возможно важных для него), не задает. Но пытается обвинить, в "пренебрегании просьб общественности". Ну, бывает, может ему самовыразится хочется, или просто "а поговорить". Что очень легко сделать на "Шарманке" (сам сходил, более 300 посетителей на всех "каналах", заодно и автоматически обновился ).

[Vlad9]

Ну, бывает, может ему самовыразится хочется, или просто "а поговорить".

Похоже что оно почти так. Цель вопросов этого коллеги доказать что он умнее аппонента, не более. Вид троллинга.