Использование динамического массива в функции ReadFile (WinAPI).

[Korrado]

Всем привет. При использовании динамического массива в функции WinAPI ReadFile выдает ошибку.

Синтаксис этой функции (на всякий случай - вот ссылка):

BOOL ReadFile(
HANDLE hFile, // дескриптор файла
LPVOID lpBuffer, // буфер данных
DWORD nNumberOfBytesToRead, // число байтов для чтения
LPDWORD lpNumberOfBytesRead, // число прочитанных байтов
LPOVERLAPPED lpOverlapped // асинхронный буфер
);

Код программы:

  var
    namef : PAnsiChar;                                                          
    buf : array of byte;                                                        // Буфер
    result : LongBool;                                                          
    resultb : dword;                                                            
    bpb : record                                                                
      sect_siz : word;                                                          
      clustsiz : byte;                                                          
      res_sect : word;                                                          
      fat_cnt  : byte;                                                          
      tot_sect : LongWord;                                                      
      media    : byte;                                                          
      fat_size : LongWord;                                                      
      clust_cc : LongWord;                                                      
    end;
  begin
    SetLength(buf, 512);
    FillChar(buf,sizeof(buf),0);
    namef := PChar('\\.\' + DriveComboBox.Drive + ':');
    hfile := CreateFile(namef,
                        GENERIC_READ,
                        FILE_SHARE_READ or FILE_SHARE_WRITE,
                        nil,
                        OPEN_EXISTING,
                        0,
                        0);
    if hfile = INVALID_HANDLE_VALUE then
      begin
        ShowMessage(Oschibka!');
        Close;
      end;
    SetFilePointer(hfile,
                   0,
                   nil,
                   FILE_BEGIN);
    result := ReadFile(hfile,
                       buf,
                       sizeof(buf),
                       resultb,
                       nil);
    if result = false then
      begin
        ShowMessage('Oschibka!');
        Close;
      end;
    bpb.sect_siz := StrToInt('$' + IntToHex(buf[12], 2) + IntToHex(buf[11], 2));
    // На этом месте вылетает с ошибкой

Помогите пожалуйста. В чем проблема?

[Alex Cones]

'$' + IntToHex(buf[12], 2) + IntToHex(buf[11], 2))

Уверены, что это значение даст адекватное 16-ричное число? Попробуйте вывести его куда-нибудь перед переводом в Int.

[Korrado]

Сообщение от Alex Cones

Уверены, что это значение даст адекватное 16-ричное число? Попробуйте вывести его куда-нибудь перед переводом в Int.

Да, в этом я абсолютно уверен.

В общем, я сейчас поэксперементировал. Ошибку вызывает даже присваивание какого либо значения массиву buf.

buf[1] := 1;

Вызывает ошибку



Что же я делаю нитак? Может ошибка в определении динамического массива, или в чем? Ппц((((

[Korrado]

Сообщение от Alex Cones

Уверены, что это значение даст адекватное 16-ричное число? Попробуйте вывести его куда-нибудь перед переводом в Int.

Да, в этом я абсолютно уверен.

В общем, я сейчас посмотрел - даже простое присваивание любому элементу массива какого либо значения уже вызывает ошибку.

buf[1] := 1;

вызывает



Значит я что то неправильно сделал с динамическим массивом? Определил вроде бы верно. Выделил память... все вроде бы норм.

[Korrado]

да, в этом я уверен.

я посмотрел - даже обычная операция buf[i] := j, вызывает ошибку. значит проблема в самом динамическом массиве. что то нитак в объявлении динамического массива. или в выделении памяти... в общем - помогите((((( в чем жеж проблема то?

[Korrado]

вот сама ошибка:

[Korrado]

ппц, вчера отправил 2 сообщения, сегодня еще одна. картинки в сообщения добавлять нельзя? пишет - сообщение будет опубликованно, когда его проверит модератор. и никто ничо не проверяет((

вот ссылка на сообщение. надеюсь не забракуют.

http://s60.radikal.ru/i167/0911/c3/7406400038ca.jpg

[Korrado]

ппц, вчера отправил 2 сообщения, сегодня еще 2. картинки в сообщения добавлять нельзя? пишет - сообщение будет опубликованно, когда его проверит модератор. и никто ничо не проверяет((

как вставить ссылку на картинку, чтобы не забраковали?