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

Цитата(gonzales @ 7.6.2006, 15:17

)

кто нить пользовал компонент - TDriver?
не могу разобраться как подключать свой драйвер и как читать из Регистра устройства

Цитата(gonzales @ 7.6.2006, 13:17

)

как подключать свой драйвер

Цитата(gonzales @ 7.6.2006, 13:17

)

как читать из Регистра устройства

Код


Далее типо так: 
код Pascal/Delphi    
1:    
2:    
3:    
4:    
5:    
6:    
7:    
 Driver1.SetPort($50,$70,true);    
 //while (Driver1.PortInOut[$64] and 2 <> 0) do;    
 Driver1.PortInOut[$60]:=$ed;    
 {0бит - включить светодиод Scroll Lock;    
  1бит - включить светодиод Num Lock;    
  2бит - включить светодиод Caps Lock;}    
 Driver1.PortInOut[$60]:=$2; //включаем Num Lock    


PS: Не проверял...

Код


1. Вообще-то в TDriver-е енто написано... что делает ента функция.PS: Модифицируется карта разрешения ввода-вывода.

Цитата(gonzales @ 7.6.2006, 19:15

)

что есть в ней второй параметр?

Цитата

dwIoControlCode

Specifies the control code for the operation. This value identifies the specific operation to be performed and the type of device on which the operation is to be performed. The following values are defined:

Value    Meaning
FSCTL_DISMOUNT_VOLUME    Dismounts a volume.
FSCTL_GET_COMPRESSION    Obtains the compression state of a file or directory
FSCTL_LOCK_VOLUME    Locks a volume.
FSCTL_READ_COMPRESSION    Reserved for future use.
FSCTL_SET_COMPRESSION    Sets the compression state of a file or directory.
FSCTL_UNLOCK_VOLUME    Unlocks a volume.
FSCTL_WRITE_COMPRESSION    Reserved for future use.
IOCTL_DISK_CHECK_VERIFY    Obsolete. Use IOCTL_STORAGE_CHECK_VERIFY
IOCTL_DISK_EJECT_MEDIA    Obsolete. Use IOCTL_STORAGE_EJECT_MEDIA
IOCTL_DISK_FORMAT_TRACKS    Formats a contiguous set of disk tracks.
IOCTL_DISK_GET_DRIVE_GEOMETRY    Obtains information on the physical disk's geometry.
IOCTL_DISK_GET_DRIVE_LAYOUT    Provides information about each partition on a disk.
IOCTL_DISK_GET_MEDIA_TYPES    Obsolete. Use IOCTL_STORAGE_GET_MEDIA_TYPES
IOCTL_DISK_GET_PARTITION_INFO    Obtains disk partition information.
IOCTL_DISK_LOAD_MEDIA    Obsolete. Use IOCTL_STORAGE_LOAD_MEDIA
IOCTL_DISK_MEDIA_REMOVAL    Obsolete. Use IOCTL_STORAGE_MEDIA_REMOVAL
IOCTL_DISK_PERFORMANCE    Provides disk performance information.
IOCTL_DISK_REASSIGN_BLOCKS    Maps disk blocks to spare-block pool.
IOCTL_DISK_SET_DRIVE_LAYOUT    Partitions a disk.
IOCTL_DISK_SET_PARTITION_INFO    Sets the disk partition type.
IOCTL_DISK_VERIFY    Performs logical format of a disk extent.
IOCTL_SERIAL_LSRMST_INSERT    Enables or disables placement of a line and modem status data into the data stream.
IOCTL_STORAGE_CHECK_VERIFY    Checks for change in a removable-media device.
IOCTL_STORAGE_EJECT_MEDIA    Ejects media from a SCSI device.
IOCTL_STORAGE_GET_MEDIA_TYPES    Obtains information about media support.
IOCTL_STORAGE_LOAD_MEDIA    Loads media into a device.
IOCTL_STORAGE_MEDIA_REMOVAL    Enables or disables the media eject mechanism.

For more detailed information on each control code, see its topic. In particular, each topic provides details on the usage of the lpInBuffer, nInBufferSize, lpOutBuffer, nOutBufferSize, and lpBytesReturned parameters.

Цитата

3. DeviceName - NT

Цитата

имя устройства

Цитата

DriverInstall()

Код


driver1.DriverPath:='C:\WINDOWS\system32\drivers';
driver1.DriverName:='FlyPCI.sys';
driver1.DeviceName:='Beholder';
if driver1.DriverInstall=true then
showmessage('ok');

Цитата(gonzales @ 8.6.2006, 13:11

)

driver1.DeviceName:='Beholder';

Цитата(gonzales @ 8.6.2006, 13:11

)

FlyPCI.sys

Цитата(gonzales @ 8.6.2006, 13:41

)

а почему при закрытии приложения вылезает ошибка доступа к драйверу???

Цитата(gonzales @ 8.6.2006, 13:59

)

Girder, не могли бы Вы прокомментировать их

Код


type
  TInBuffer = record
    wparam : Word;
    lparam : Word;
  end;
var
  BytesReturned : DWORD;
  InBuffer : TInBuffer;
  outBuffer : DWORD;
  PortAddr:DWORD;
begin
  PortAddr:=$1b2;
  InBuffer.wparam:=PortAddr;
  InBuffer.lparam:=0;
  if driver1.DriverIoControl(READ_REGISTER_USHORT,@inBuffer,4,@outBuffer,4,BytesReturned,nil)
      then Result := outBuffer else Result:=$FF;