7 февраля 2011 г.

Задачка №6

Что не так в этом коде?

procedure Test(const BitmapHandle: HBITMAP; Value: Boolean);
var
  BitmapInfo: Windows.TBitmap;
begin
  if not Value then
    Exit;
  FillChar(BitmapInfo, SizeOf(BitmapInfo), 0);
  if Windows.GetObject(BitmapHandle, SizeOf(BitmapInfo), @BitmapInfo) = 0 then
    ShowMessage('FAIL');
  // ...
end;
Этот код может не работать (показывать 'FAIL'). Объяснить почему и как это исправить. В предположении, конечно же, что передали корректный HBITMAP и Value = True.

Бонус-задачка: объяснить когда код может работать. И почему.

Ответ на задачку будет выложен как обычно: примерно через месяц.

Ответ.

5 комментариев :

  1. Совсем недавно столкнулся с подобным. Хотел сделать BitmapInfo полем класса (точнее только размеры), но чудесным образом GetObject в его конструкторе возвращало 0. Вынес все в гдобальные переменные - заработало:

    var
    ArrowBitmap: HBITMAP = 0;
    ArrowBitmapSize: TSize = (cx: 0; cy: 0);

    procedure LoadArrowBitmap;
    var
    Bitmap: Windows.Bitmap;
    begin
    if (ArrowBitmap = 0) then
    begin
    ArrowBitmap := LoadBitmap(HInstance, 'BTNMNU');

    if (ArrowBitmap <> 0) and
    (GetObject(ArrowBitmap, SizeOf(Bitmap), @Bitmap) <> 0) then
    begin
    ArrowBitmapSize.cx := Bitmap.bmWidth;
    ArrowBitmapSize.cy := Bitmap.bmHeight;
    end;
    end;
    end;

    { TMySplitButton }

    constructor TMySplitButton.Create(AOwner: TComponent);
    begin
    inherited Create(AOwner);
    LoadArrowBitmap;
    UpdateSplitWidth;
    end;

    PS. Ничего не понял :)

    ОтветитьУдалить
  2. Если входной параметр BitmapHandle: HBITMAP получен через CreateDIBSection, то GetObject попытается в BitmapInfo: Windows.TBitmap записать информацию типа Windows.TDIBSection, что немного больше по размеру.

    ОтветитьУдалить
  3. "Если входной параметр BitmapHandle: HBITMAP получен через CreateDIBSection, то GetObject попытается в BitmapInfo: Windows.TBitmap записать информацию типа Windows.TDIBSection, что немного больше по размеру. "

    if Object type is HBITMAP returned from a call to CreateDIBSection then Data written to buffer is DIBSECTION, if cbBuffer is set to sizeof(DIBSECTION), or BITMAP, if cbBuffer is set to sizeof(BITMAP)

    (Platform SDK)

    Код работает с включенной оптимизацией и не работает с выключенной. На мой взгляд, причина в том, что адрес буфера не выровнен на границу 4-х байт в случае отключенной оптимизации (Delphi 2006).

    Изменив код на

    procedure Test(const BitmapHandle: HBITMAP; Value: Boolean);
    var
    RetValue: LongInt;
    BitmapInfo: Windows.TBitmap;
    begin
    if not Value then
    Exit;
    FillChar(BitmapInfo, SizeOf(BitmapInfo), 0);
    RetValue := Windows.GetObject(BitmapHandle, SizeOf(BitmapInfo), @BitmapInfo);
    if RetValue = 0 then
    ShowMessage('FAIL')
    else
    ShowMessage('SUCCESS');
    end;

    он заработал вне зависимости от настроек оптимизации.

    ОтветитьУдалить
  4. При выключенной оптимизации компилятор резервирует место на стеке под Value, размером в один байт. Так как Windows.TBitmap объявлена как packed record, то компилятор не заботится о выравнивании этой переменной и она располагается сразу за местом для Value, по нечетному адресу.
    При включенной оптимизации на стеке размещается единственная переменная типа Windows.TBitmap, адрес которой, естественно, выровнен на 4-х байтовую границу.

    ОтветитьУдалить
  5. Собственно, багов никаких нет. Единственное, что есть, это неполное описание параметров функции GetObject в Platform SDK, например, что требуется выровненный буфер (по моему мнению)

    ОтветитьУдалить

Можно использовать некоторые HTML-теги, например:

<b>Жирный</b>
<i>Курсив</i>
<a href="http://www.example.com/">Ссылка</a>

Вам необязательно регистрироваться для комментирования - для этого просто выберите из списка "Анонимный" (для анонимного комментария) или "Имя/URL" (для указания вашего имени и (опционально) ссылки на сайт). Все прочие варианты потребуют от вас входа в вашу учётку (поддерживается OpenID).

Пожалуйста, по возможности используйте "Имя/URL" вместо "Анонимный". URL можно просто не указывать.

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