Страница 288 из 295 ПерваяПервая ... 188238278285286287288289290291 ... ПоследняяПоследняя
Показано с 2,871 по 2,880 из 2948

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

  1. #2871

    Регистрация
    26.02.2004
    Адрес
    Николаев
    Сообщений
    5,518
    Позывной
    UR5ZQV
    RN6LIQ, Василий Михайлович, когда у меня были W95/98, не было ШАРМАНКИ, щас ШАРМАНКА есть, а их нету. По опыту работы с ЗК в HiASm, разница по работе с ЗК для 95/98 и ХР решалась установочным файлом на уровне драйвера.
    Александр. (Ex: RB5ZDR, UQ2GKQ)

  2. Спасибо от RN6LIQ


  3. #2872

    Регистрация
    26.02.2004
    Адрес
    Николаев
    Сообщений
    5,518
    Позывной
    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.
    Александр. (Ex: RB5ZDR, UQ2GKQ)

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

  5. Спасибо от UR5ZQV

  6. #2874
    Цитата Сообщение от RN6LIQ Посмотреть сообщение
    в новой шарманке крутится всего один поток звука
    в личной переписке я у Вас спрашивал именно про это.

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

  8. #2876
    Цитата Сообщение от RN6LIQ Посмотреть сообщение
    Вы про другое спрашивали
    Вы меня с кем-то спутали.

  9. #2877
    Цитата Сообщение от ra3qdp Посмотреть сообщение
    Вы меня с кем-то спутали.
    Да, спутал, извините, но и вы тоже свой вопрос спрашивали не про то о чем я писал выше. К количеству необходимых каналов в вашем вопросе моя информация не имеет отношения.

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

  11. #2879
    Цитата Сообщение от ra3qdp Посмотреть сообщение
    я Вам писал: "Мне показалось, что новая программа (как бы сказать?) - в другое место в виндовсе вставлена".
    Вот как вас понять, то что вы написали? В какое такое место вставлена?
    Цитата Сообщение от ra3qdp Посмотреть сообщение
    Выходит Вы письма читаете не внимательно и вообще в них не вникаете.
    Вникаю, читаю, сразу отвечаю. Писем много, и не только по поводу шарманки, естественно потом забываю. Для того, что бы не забывать в письмах оставляют предысторию. а вы бросаете короткие фразы, к чему, почему, непонятно и вспомнить тяжело по такой скудной информации.
    Цитата Сообщение от ra3qdp Посмотреть сообщение
    Ничего обсуждать ни с кем не собираетесь, не говоря - советоваться.
    А вы попробуйте обсудить, только давайте больше информации. Понятно, что у вас там океан мыслей, так и пишите про них больше. А короткие ваши фразы ни о чем не говорят, только разве что вам, вы же их автор.
    Цитата Сообщение от ra3qdp Посмотреть сообщение
    Пользователи - подопытные кролики.
    А это уже философское заявление, впрочем и остальные заявления такие же.


  12. #2880

    Регистрация
    26.02.2004
    Адрес
    Николаев
    Сообщений
    5,518
    Позывной
    UR5ZQV
    RN6LIQ, Василий Михайлович, не берите в голову. Этот "Коллега" бродит по всем темам, но конкретных вопросов (возможно важных для него), не задает. Но пытается обвинить, в "пренебрегании просьб общественности". Ну, бывает, может ему самовыразится хочется, или просто "а поговорить". Что очень легко сделать на "Шарманке" (сам сходил, более 300 посетителей на всех "каналах", заодно и автоматически обновился ).
    Александр. (Ex: RB5ZDR, UQ2GKQ)

  13. Спасибо от RN6LIQ

Страница 288 из 295 ПерваяПервая ... 188238278285286287288289290291 ... ПоследняяПоследняя

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Синтезаторы "Колибри" и "Воробей" AD9951/AD9834/Si570
    от Genadi Zawidowski в разделе Трансиверы, приемники КВ/УКВ
    Ответов: 656
    Последнее сообщение: 22.06.2017, 23:41
  2. Трансивер "Шарманка" на MOSFET
    от Сергей01 в разделе Темы не вошедшие в другие разделы форума
    Ответов: 52
    Последнее сообщение: 16.11.2014, 17:14
  3. Трансматч в точке питания
    от LEONID2 в разделе Согласующие устройства
    Ответов: 13
    Последнее сообщение: 29.12.2013, 19:50
  4. "Емкостное реле" журн. " Радио" 2010/5 (датчик приближения человека)
    от СВП в разделе Темы не вошедшие в другие разделы форума
    Ответов: 48
    Последнее сообщение: 18.04.2011, 13:47

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •