Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

begin

 // инициализируем буфер (просто обнуляем его)

 Fillchar(buffer, sizeof(buffer), 0);

 // инициализируем структуру TSRB_ExecSCSICmd (глобальная переменная Srb)

 Fillchar(Srb, sizeof(TSRB_ExecSCSICmd), 0);

 hEvent := CreateEvent(nil, true, false, nil); // создаём событие

 ResetEvent(hEvent); // переключаем на наше событие

 with Srb do

 begin

 SRB_Cmd := SC_EXEC_SCSI_CMD;

 SRB_HaId := Cdroms.Cdroms[Number].HaID;

 SRB_Target := Cdroms.Cdroms[Number].Target;

 SRB_Lun := Cdroms.Cdroms[Number].Lun;

 // здесь добавляется ещё один флаг SRB_EVENT_NOTIFY ($40), уведомляющий

 // систему о событии

 SRB_Flags := SRB_DIR_IN or SRB_EVENT_NOTIFY;

 SRB_BufLen := sizeof(buffer); // указываем размер буфера

 SRB_BufPointer := @buffer; // определяем указатель на наш буфер

 SRB_SenseLen := SENSE_LEN; // определяем длину буфера значения

 SRB_CDBLen := 6; // эта команда – шестибайтная

 SRB_PostProc := Pointer(hEvent); // процедура постинга – созданное событие

 CDBByte[0] := $12; // код команды INQUIRY

 // сюда помещаем старший байт длины буфера

 CDBByte[3] := HIBYTE(sizeof(buffer));

 // а сюда помещаем младший байт длины буфера

Рекомендуем скачать другие рефераты по теме: шпоры по гражданскому праву, заказать дипломную работу.



Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки