Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как узнать статус лампочки HDD_LED

Автор: _JB_ 16.6.2004, 23:26

Привет!
Подскажите как мне в моей программе узнать идет ли в данный момент чтение\запись с винта. Грубо говоря я просто хочу в проге продублировать лампочку винта на корпусе. Если можно, кусочки кода...

Автор: -=::BlackCat::=- 17.6.2004, 00:03

разве такое реально?

хотя что-то мне подсказывает, что даже если получится у-у-у-у-у-у-у-у-у-у-у-ужасно тормозить будет

Автор: Jey_k 17.6.2004, 00:35

Через порты это делается. В разделе ASM задай этот вопрос

Автор: youri 17.6.2004, 06:32

_JB_
Попробуй считать содержимое порта 1f0h (Secondary) или 170h (Primary). По-моему какой-то бит а это отвечает.
-=::BlackCat::=-
Почему-бы это оно отормозило. Через таймер это делается. Чтобы меньше тормозило, надо поставить больший интервал.

Автор: -=::BlackCat::=- 17.6.2004, 06:50

я думал человек хочет синхронизировано, с лампочкои на корпусе

Автор: Albinos_x 17.6.2004, 11:58

-=::BlackCat::=-
скорей всего, так оно и есть

Автор: _JB_ 17.6.2004, 18:19

youri
Спасибо, попробую так....
-=::BlackCat::=-
Действительно хочу, чтоб синхронно было. А тормозить оно по идее в натуре не должно, думаю, даже если в таймере 10мс поставить...

Автор: _JB_ 17.6.2004, 19:26

Написал вот такой код.... но глючит. Читайте комментарии походу....

Код


procedure TForm1.Timer2Timer(Sender: TObject);
var
istatus:word;
label
     noled;
begin
istatus:=0;
try
   asm
   mov ax,0170h
   out 70h,ax   //В этом месте ругается... пишет previleged instruction
   in ax,71h    //Может это из-за ХР
   test ax,0000000000000100b //Какой точно бит отвечает пока не знаю,
                             //думаю протестить все...
   jnz noled
   mov istatus,0h
   noled:
   mov istatus,01h
   end;
except
end;
if istatus=1 then shape1.Brush.Color:=clred else shape1.Brush.Color:=clGreen;
end;

БЛин... порты не сканятся..
Если это из-за ХР, то как от этого избавиться?

Автор: _hunter 17.6.2004, 19:43

это действительно из-за XP ( точнее NT )

( чтение / запись портов -- операция не доступная простым программам )

как избавится -- писать ядреный драйвер

Автор: Albinos_x 17.6.2004, 20:33

_JB_
совершенно точно, NT версии не дают работать с портами
делай как говорит
_hunter

Автор: _JB_ 18.6.2004, 00:24

_hunter
Albinos_x
А под 9х работать будет?

_hunter
А можно поподробнее, пожалуйста

Автор: Albinos_x 18.6.2004, 01:15

_JB_
Под 9х должна работать

драйверы Винды НТ делятся на 2 класса: драйверы уровня ядра и драйверы уровня пользователя,
под вторым понимается драйвера, специфичные для защищеных подсистем .Например VDD, представляющюу 32 битную длл, созданную по правилам написания длл для винды, а её инициализация выполняется (если не ошибаюсь) функцией VDDInitialize, являющаяся аналогом функции DLLMain для обычных длл.
под первым - драйверы физических и виртуальных устройств уровня ядра(например WDM-драйвер). здесь существуют 3 уровня дров: низкий, промежуточный и высокий.
низкий - дрова работающие непосредственно с устройствами и не требующие прочих дров.
промежуточный - фильтры, дрова работающие с дровами нижнего уровня
высокий - дрова файловах систем и т. д.

.........

Автор: Girder 18.6.2004, 08:43

OUT XX,X - где XX:базовый порт; X:номер устройства
in S,XX+1 - где S-байт состояния устройства;XX+1:регистр команда/состояния
Обычно так пишется:
mov al,Dev
mov dx,port
out dx,al
inc dx
in al,dx

К примеру определение типа НГМД/НМД

Код


               ;Тип НГМД
                mov     al,10h
                out     70h,al
                in      al,71h
                mov     ds:[ngmd],al
               ;Тип НМД
                mov     al,12h
                out     70h,al
                in      al,71h
                mov     ds:[ngmd+1],al
               ;младший
                mov     al,19h
                out     70h,al
                in      al,71h
                mov     ds:[ngmd+2],al
               ;старший
                mov     al,1ah
                out     70h,al
                in      al,71h
                mov     ds:[ngmd+3],al
               ;конфигурация
                mov     al,14h
                out     70h,al
                in      al,71h
                mov     ds:[ngmd+4],al

Твои порты и устройства:
1F0h,0 - PriMaster
1F0h,1 - PriSlave
170h,0 - SecMaster
170h,1 SecSlave
1E8h,0 - TerMaster
1E8h,1 - TerSlave
168h,0 - QuaMaster
168h,1 - QuaSlave

Удачи.

Автор: youri 18.6.2004, 12:36

По поводу доступа к портам через XP, поищи в инете компонент для Delphi: TSmallPort

Автор: _hunter 18.6.2004, 16:05

если подробнее, то вот статья:
http://rusdoc.ru/material/os/nt/ntdriver.zip

Автор: _JB_ 19.6.2004, 11:05

Albinos_x
Girder
youri
_hunter
Всем спасибо, ща займусь сбором информации... Если получицца - сообщу

Автор: Girder 20.6.2004, 04:27

1)Загружаем
http://www.wideman-one.com/gw/tech/Delphi/iopm/gwiopm.zip
и читаем
http://dars.com.ru/index.phtm?menu=6;14
http://www.wideman-one.com/gw/tech/Delphi/iopm/gwiopm_code.htm
2)Из архива копирум два файла в папку проекта:
а)gwiopm.pas
б)gwiopm.sys
3)Правим gwiopm.pas:
а)в описании класс "TGWIOPM_Driver" заменяем function ErrorLookup(ErrorNum: DWORD): string
на function ErrorLookup(ErrorNum: integer): string
б)в реализации функции "function TGWIOPM_Driver.Install(newdriverpath: string): DWORD"
заменяем:

Код


    DriverDir  := ExtractFilePath(driverpath);
    DriverName := ExtractFileName(driverpath);

на

Код

DriverDir  := ExtractFilePath(newdriverpath);
    DriverName := ExtractFileName(newdriverpath);

4)Подключение драйвера "gwiopm" в программе

Код

uses ...,gwiopm;
...
var
  ...
  nDir,nDriver:string;
  StartPort1:DWord=$1F0; //типо твои порты
  EndPort1:DWord=$1FF;   //типо твои порты
  StartPort2:DWord=$170; //типо твои порты
  EndPort2:DWord=$17F;   //типо твои порты
  StartPort3:DWord=$3F7; //типо твои порты
  EndPort3:DWord=$3F7;   //типо твои порты

...
{Как пример для чтение из порта
function TForm1.PortIn(Port:Word):byte;
var a:byte;
begin
 asm
  mov dx,Port;
  in al,dx; //in ax,dx
  mov a,al;
 end;
 Result:=a;
end;}

procedure TForm1.FormDestroy(Sender: TObject);
{Пытаемся все закрыть и вернуть в исходное состояние}
begin
 GWIOPM_Driver.LIOPM_Set_Ports(StartPort1,EndPort1,False);
 GWIOPM_Driver.LIOPM_Set_Ports(StartPor2,EndPort2,False);
 GWIOPM_Driver.LIOPM_Set_Ports(StartPort3,EndPort3,False);
 GWIOPM_Driver.IOCTL_IOPMD_ACTIVATE_KIOPM;
 GWIOPM_Driver.DeviceClose;
 GWIOPM_Driver.Stop;
 GWIOPM_Driver.Remove;
 GWIOPM_Driver.CloseSCM;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 nDir:=ExtractFilePath(ParamStr(0));
 nDriver:='gwiopm';
 if StartOpenPort(StartPort1,EndPort1) or StartOpenPort(StartPort2,EndPort2) or
    StartOpenPort(StartPort3,EndPort3) then StatusBar1.Panels[0].Text:='Error';
end;

function TForm1.StartOpenPort(sPort,ePort:DWord):boolean;
{Открываем порты для доступа. При необходимости шаманим с драйвером}
var f:boolean;
begin
 f:=true;
 Result:=False;
 with GWIOPM_Driver do
  begin
   while ((LIOPM_Set_Ports(sPort,ePort,True)<>ERROR_SUCCESS)and f) do
    while ((DeviceOpen<>ERROR_SUCCESS)and f) do
     while ((Start<>ERROR_SUCCESS)and f) do
      while ((Install(nDir+nDriver)<>ERROR_SUCCESS)and f) do
       if ((OpenSCM=ERROR_SUCCESS)and f) then f:=false else
        begin
         Result:=True;
         exit;
        end;
   if GWIOPM_Driver.IOCTL_IOPMD_ACTIVATE_KIOPM<>ERROR_SUCCESS then
    Result:=True;
  end;
end;

На счет индикации.
Считываниe с диска информации:
var b:byte;
...
b:=PortIn($1F0);
if b=$D0 then StatusBar1.Panels[0].Text:='Читаем';
На счет записи не знаю(последний раз лет 12 назад программировал HDD по портам).

P.S. Не советую особо экспериментировать с записями команд в порт HDD.
10ms - мало... очень мало, делай не менее 100ms.

Удачи.

Автор: Girder 21.6.2004, 19:32

Вроде работает, но 100%-ю гарантию не дам.

Код


...
function TForm1.wPortIn(Port:Word):Word;
var a:Word;
begin
 asm
  mov dx,Port;
  in ax,dx;
  mov a,ax;
 end;
 Result:=a;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var w,WR_LED:Word;
begin
 w:=wPortIn($1F0);
 WR_LED:=1;
 if (w shr $8)<>0 then //Возможно, что не все старшие 8 бит отвечают за простой
  if (w and $D0)=$D0 then inc(WR_LED) else dec(WR_LED);
 case WR_LED of
  1: StatusBar1.Panels[0].Text:='--'; //почти простой
  2: StatusBar1.Panels[0].Text:='-Ч'; //Идет считывания с диска
 else
  StatusBar1.Panels[0].Text:='З-'; //Идет запись на диск
 end;
end;

Удачи.

Автор: Girder 22.6.2004, 01:53

Нет, что-то не так в коде. Точность 50/50.

Посмотри лудше:
1) http://t13.org/
2) Описание команд CMOS.

Удачи.

Автор: Girder 22.6.2004, 09:57

Нашел.
См. http://www.oo-software.com/de/products/oodl/index.html

Для скачивания:
ftp: ftp://ftp.oo-software.com/pub/oodriveled/oodled_1_0_74_english.zip
Http: http://www.oo-software.com/files/oodriveled/oodled_1_0_74_english.zip

Автор: _JB_ 24.6.2004, 23:43

Girder
Спасибо

Прога заработала... И всё-таки с интервалом 10мс... Я такого эффекта даже не ожидал... Работает точь в точь синхронно с LED. Теперь попытаюсь сделать что-то извращенное, типа резидентную прогу, которая будет из лампочек на клавиатуре при чтении/записи с винта делать бегущую строку... Думаю это при всех вышеперечисленых FAQ у меня получится. Еще раз всем спасибо.

Автор: -=::BlackCat::=- 25.6.2004, 00:10

_JB_

заченить потом даш?

Автор: Georg4 25.6.2004, 09:46

Цитата

из лампочек на клавиатуре при чтении/записи с винта делать бегущую строку

Это как?

Автор: _hunter 25.6.2004, 15:47

как, как: двоичная система + отображение на три лампы

Автор: _JB_ 27.6.2004, 22:59

-=::BlackCat::=-
Доведу до ума... и выкину тебе на мыло

Georg4
Заговорился.... бегущая строка естественно там не получится... просто попеременный быстрый перебор лампочек, а затем возврат в исходное состояние.