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

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

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

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

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

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

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

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

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

Код

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;

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

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

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

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

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

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

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

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

.........

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

Удачи.

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

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

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

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/...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:33

Вроде работает, но 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;

Удачи.

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

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

Удачи.

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

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

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

_JB_

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

Цитата

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

Это как?

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

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