| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Копирование экрана [D5, D7, WinXP]

Asker ©   (2007-12-10 19:55:00) 

Подскажите почему код описанный тут:
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=16-988625471
дает на одних компах черный прямоугольник, а на других нормально работает??

---

Style   (2008-02-01 16:54:00) [1]

А по ссылке не работает возможно потому, что палитры в том режиме,в котором работает ОС , просто нет. 32 бита на цвет.

а функция
function CaptureScreenRect(ARect : TRect) : TBitmap;
копирует экран нормально,

только вот потом
Palette:=GetSystemPalette;
палитра сбрасывается в 0, и получается черный квадрат.

---

  (2008-01-31 14:36:00) [2]

Удалено модератором

---

Palladin   (2007-12-10 20:10:00) [3]

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

type
 TDesktopCanvas = class(TCanvas)
 private
   DC : hDC;
   function     GetWidth:Integer;
   function     GetHeight:Integer;
 public
   constructor  Create;
   destructor   Destroy; override;
 published
   property Width: Integer read GetWidth;
   property Height: Integer read GetHeight;
 end;

function TDesktopCanvas.GetWidth:Integer;
begin
 Result:=GetDeviceCaps(Handle,HORZRES);
end;

function TDesktopCanvas.GetHeight:Integer;
begin
 Result:=GetDeviceCaps(Handle,VERTRES);
end;

constructor TDesktopCanvas.Create;
begin
 inherited Create;
 DC := GetDC(GetDesktopWindow);
 Handle := DC;
end;

destructor TDesktopCanvas.Destroy;
begin
 ReleaseDC(Handle, DC);
 inherited Destroy;
end;

Procedure SaveScreen(Const p_strFileName:String);
Var
 d:TDesktop
 b:TBitmap;
Begin
 b:=TBitmap.Create;
 d:=TDesktopCanvas.Create(Nil);
 b.Width:=d.Width;
 b.Height:=d.Height;
 d.CopyRect(Rect(0,0,d.Width,d.Height),b.Canvas,Rect(0,0,d.Width,d.Height));
 d.Free;
 b.SaveToFile(p_strFileName);
 b.Free;
End;



---

Наверх