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
Заговорился.... бегущая строка естественно там не получится... просто попеременный быстрый перебор лампочек, а затем возврат в исходное состояние.