45827 (665171), страница 2

// параметр, передаваемый процедуре – номер CD-ROM.

procedure CdromInfo(const Number: Byte);

var

// буфер будет содержать информацию о приводе

buffer: array [1..100] of Char;

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));

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

CDBByte[4] := LOBYTE(sizeof(buffer));

end;

// после того как заполнили структуру TSRB_ExecSCSICmd, посылаем

// ASPI-команду

dwASPIStatus := SendASPI32Command(@Srb);

if dwASPIStatus=SS_PENDING then

WaitForSingleObject(hEvent, INFINITE); // ждём окончания обработки команды

CloseHandle(hEvent); // закрываем хэндл события

// если команда выполнена без ошибок, заполняем данные об устройстве:

if Srb.SRB_Status=SS_COMP then

begin

with Cdroms.Cdroms[Number] do

begin

// восемь байт буфера, начиная с девятого, содержат

// идентификатор производителя

VendorID := PChar(Copy(buffer, 9, 8));

// шестнадцать байт, начиная с семнадцатого, содержат

// идентификатор продукта

ProductID := PChar(Copy(buffer, 17, 16));

// четыре байта, начиная с тридцать третьего, содержат номер

// изменения продукта

Revision := PChar(Copy(buffer, 33, 4));

// двадцать байт, начиная с тридцать седьмого, содержат

// спецификацию производителя

VendorSpec := PChar(Copy(buffer, 37, 20));

end;

end;

end;

type

TCDSpeeds=record

MaxSpeed, // максимальная скорость чтения

CurrentSpeed, // текущая скорость чтения

MaxWriteSpeed, // максимальная скорость записи

CurrentWriteSpeed:integer; // текущая скорость записи

end;

// какие параметры передавать функции, объяснять, по моему, не надо

function GetCDSpeeds(Host,Target,Lun:Byte):TCDSpeeds;

var

buffer: array [0..29] of Byte; // буфер для принимаемых данных

begin

hEvent := CreateEvent(nil, true, false, nil);

FillChar(buffer,sizeof(buffer),0);

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

Srb.SRB_Cmd := SC_EXEC_SCSI_CMD;

Srb.SRB_Flags := SRB_DIR_IN or SRB_EVENT_NOTIFY;

Srb.SRB_Target := Target;

Srb.SRB_HaId := Host;

Srb.SRB_Lun := Lun;

Srb.SRB_BufLen := sizeof(buffer);

Srb.SRB_BufPointer := @buffer;

Srb.SRB_SenseLen := SENSE_LEN;

Srb.SRB_CDBLen := $0A; // это десятибайтная команда

Srb.SRB_PostProc := Pointer(hEvent);

Srb.CDBByte[0] := $5A; // код команды MODE SENSE(10)

// код страницы CD Capabilities and Mechanical Status Page

Srb.CDBByte[2] := $2A;

Srb.CDBByte[7] := HIBYTE(sizeof(buffer));

Srb.CDBByte[8] := LOBYTE(sizeof(buffer));

ResetEvent(hEvent);

dwASPIStatus := SendASPI32Command(@Srb);

if dwASPIStatus=SS_PENDING then

WaitForSingleObject(hEvent,INFINITE);

if Srb.SRB_Status<>SS_COMP then

// если ошибка, обнуляем структуру TCDSpeeds

FillChar(Result,sizeof(TCDSpeeds),0);

else begin

// почему сумма байт делится на 176? 176 – это скорость передачи

// данных, равная одному килобайту в секунду.

Result.MaxSpeed := ((buffer[16] shl 8) + buffer[17]) div 176;

Result.CurrentSpeed := ((buffer[22] shl 8) + buffer[23]) div 176;

Result.MaxWriteSpeed := ((buffer[26] shl 8) + buffer[27]) div 176;

Result.CurrentWriteSpeed := ((buffer[28] shl 8) + buffer[29]) div 176;

end;

CloseHandle(hEvent);

end;

// параметры ReadSpeed и WriteSpeed – скорость чтения и записи соответственно

function SetSpeed(

Host, Target, Lun : Byte;

ReadSpeed, WriteSpeed : integer) : boolean;

begin

if ReadSpeed=0 then

result := false

else

begin

hEvent := CreateEvent(nil, true, false, nil);

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

Srb.SRB_Cmd := SC_EXEC_SCSI_CMD;

// обратите внимание здесь данные передаются из приложения в

// устройство (флаг SRB_DIR_OUT)

Srb.SRB_Flags := SRB_DIR_OUT or SRB_EVENT_NOTIFY;

Srb.SRB_Target := Target;

Srb.SRB_HaId := Host;

Srb.SRB_Lun := Lun;

Srb.SRB_SenseLen := SENSE_LEN;

Srb.SRB_CDBLen := $0C; // эта команда двенадцатибайтная

Srb.SRB_PostProc := Pointer(hEvent);

Srb.CDBByte[0] := $BB; // код команды Set CD Speed

// устанавливаем скорость чтения

Srb.CDBByte[2] := Byte((ReadSpeed * 176) shr 8);

Srb.CDBByte[3] := Byte(ReadSpeed * 176);

if WriteSpeed<>0 then // если привод пишущий

begin

// ...устанавливаем скорость записи

Srb.CDBByte[4] := Byte((WriteSpeed * 176) shr 8);

Srb.CDBByte[5] := Byte(WriteSpeed * 176);

end;

ResetEvent(hEvent);

dwASPIStatus := SendASPI32Command(@Srb);

if dwASPIStatus=SS_PENDING then

WaitForSingleObject(hEvent,INFINITE);

if Srb.SRB_Status<>SS_COMP then

result := false

else

result := true;

end;

end;

var

i : integer;

begin

ComboBox1.Items.Clear; // очищаем элементы выпадающего списка

with Cdroms.Cdroms[0] do // используем первый CD-ROM

begin

// открываем цикл от 1 до максимальной скорости привода

for i := 1 to GetCDSpeeds(HaID, Target, Lun).MaxSpeed do

begin

SetSpeed(HaID, Target, Lun, i, 0); // устанавливаем скорость, равную i

if i = GetCDSpeeds(HaID, Target, Lun).CurrentSpeed then

// сравниваем, если текущая скорость равна i, заносим это

// значение в выпадающий список

ComboBox1.Items.Add(IntToStr(i));

end;

end;

end;