Скрин экрана. проблема с BMP

[Pack]

здрасте. пытаюсь средствами winapi сделать скрин экрана, есть такой вот код:

procedure MakeBMP(filename: string) ;
const
  bmpheader: array[0..53] of byte = (
    $42, $4D, $36, $00, $24, $00, $00, $00, $00, $00, $36, $00, $00, $00, $28, $00,
    $00, $00, $00, $04, $00, $00, $00, $03, $00, $00, $01, $00, $18, $00, $00, $00,
    $00, $00, $00, $00, $24, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00);
type
  TScr = array [0..10000000] of Byte;
  PScr =  ^TScr;
var
  TBmp     : TBitmap;
  hBmp     : hBitmap;
  DeskDC   : hDC;
  DC       : hDC;
  BmpInfo  : tagBitmapInfo;
  ScrX,ScrY: Integer;
  F        : File;
  ScrSize  : Cardinal;
  Bits     : PScr;
begin
  GetMem(Bits, SizeOf(bits));
  SCRX     := GetSystemMetrics(SM_CXSCREEN);
  SCRY     := GetSystemMetrics(SM_CYSCREEN);
  ScrSize  := ScrX*ScrY*3;
  GetMem(Bits, ScrSize);
  New(bits);
  DeskDC   := GetWindowDC(GetDesktopWindow);
  hBmp     := CreateCompatibleBitmap(deskdc,ScrX,ScrY);
  DC       := CreateCompatibleDC(DeskDC);
  SelectObject(dc,hbmp);
  BitBlt(Dc,0,0,SCRX,SCRY,deskdc,0,0,SrcCopy);
  BmpInfo.bmiHeader.biSize:=sizeof(tagBitmapInfoHeader);
  BmpInfo.bmiHeader.biBitCount:=0;
  GetDiBits(DeskDC,hBmp,0,SCRY,nil,BmpInfo,DIB_RGB_COLORS);
  BmpInfo.bmiHeader.biWidth:=SCRX;
  BmpInfo.bmiHeader.biHeight:=SCRY;
  BmpInfo.bmiHeader.biPlanes:=1;
  BmpInfo.bmiHeader.biBitCount:=24;
  BmpInfo.bmiHeader.biCompression:=BI_RGB;
  BmpInfo.bmiHeader.biSizeImage:=ScrSize;
  BmpInfo.bmiHeader.biClrImportant:=0;
  GetDiBits(DeskDC,hbmp,0,SCRY,Bits,BmpInfo,DIB_RGB_COLORS);
  DeleteObject(hbmp);
  AssignFile(F,filename);
  Rewrite(F,1);
  BlockWrite(F, bmpheader, 53);
  Blockwrite(F,bits^,ScrSize);
  closeFile(F);
  FreeMem(Bits,ScrSize);
end;

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

[phomm]

Надо создать обычный скрин экрана (с соответствующими настройками) и сравнивать побайтно файлы (я пользуюсь тотал коммандером для этого) плюс дебажить потом, в какой момент неправильно записываются данные.

Пока что, по приведённому коду заметил одну неточность:
массив 0..53 (54элт-а) а запись всего 53 элементов.

[Пепел Феникса]

1)почти все функции WinAPI это реально функции, возвращающие значение об успехе.
кто его проверять будет?(+ GetLastError)
2)вы заполняете BmpInfo, и при этом пишете какой то свой заголовок, он точно верный?(пишите BmpInfo тогда уж, точнее помоему тока bmiHeader идет)

[Pack]

Сообщение от Пепел Феникса

1)почти все функции WinAPI это реально функции, возвращающие значение об успехе.
кто его проверять будет?(+ GetLastError)

нуу, мне кажется здесь не особо нужны эти проверки

Сообщение от phomm

Пока что, по приведённому коду заметил одну неточность:
массив 0..53 (54элт-а) а запись всего 53 элементов.

во я не внимательный исправил это и цвета перестали путатся.

но проблема осталась в силе, через раз работает как надо, а на некоторых ОС и вообще отказывается работать.

на самом деле код собирался по кусочкам из разных источников, а bmpheader был нагло взят из простого скрина экрана, сделанного вручную. сначала в файл пишется заголовок, затем "данные" bits, а bmiHeader это не сам заголовок bmp в нашем случае

как я уже написал, оно работает через раз и не везде, а точнее просто белый лист вместо скрина делает. так вот выяснилось, что bits заполняется одними нулями, но не всегда! соответственно если там были одни нули - то выйдет простой белый лист, а если нужные данные то получается полноценный скрин. отсюда и вопрос, почему это просиходит? от чего такая случайность, и в какую сторону копать? спасибо.

[Luuzuk]

нуу, мне кажется здесь не особо нужны эти проверки

Вот пока вам так кажется у вас и будет метод через раз работать

[Пепел Феникса]

далее, раз скрин экрана то вам нужно GetDC выходит(параметр 0)
и вообще поидее на каждое GetDC/GetWindowDC должен быть ReleaseDC.

а так, вперед ошибки анализировать, лишь потом поговорим.