Странная работа программы

@Yarik1979 · Регистрация: 22.12.2014

Author24 — интернет-сервис помощи студентам

Подскажите пожалуйста. Пытаюсь разобраться в простеньком скриншотере. При нажатии на первую кнопку в image который расположен на Scroolbox выводится скриншот рабочего стола , а при нажатии на вторую кнопку в этот же image скриншот активного окна.И если начинать программу с создания скриншота рабочего стола то потом все работает нормально, а если с создания скриншота активного окна то первый снимок получается правильно, а потом все снимки и активного окна и
рабочего стола обрезаются по высоте и ширине этого окна. Не пойму в чем дело

Delphi

procedure TForm1.btn1Click(Sender: TObject);
var c:Tcanvas;
    r:Trect;
begin
    c:=Tcanvas.Create;
    c.Handle:=GetWindowdc(getDesktopWindow);
    r:=rect(0,0,Screen.Width,Screen.Height);
    form1.Visible:=false;
    sleep(500);
    img1.Width:=Screen.Width;
    img1.Height:=Screen.Height;
    img1.Canvas.CopyRect(r,c,r);
    ReleaseDC(0,c.Handle);
      c.Free;
    form1.Visible:=true;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
var c:Tcanvas;
    h:THandle;
    r,t:Trect;
begin
     c:=TCanvas.Create;
     form1.Visible:=false;
     sleep(750);
     c.Handle:=GetWindowdc(getDesktopWindow);
     h:=GetforegroundWindow;
     try
     getWindowrect(h,r);
     t:=Rect(0,0,r.Right-r.Left,r.Bottom-r.Top);
     img1.Width:=r.Right-r.Left;
     img1.Height:=r.Bottom-r.Top;
     img1.Canvas.CopyRect(t,c,r);
     finally
     ReleaseDC(0,c.Handle);
      c.Free;
      end;
     form1.Visible:=true;
end;

@Gornyak46 · 23.12.2014, 13:00

Не по теме:

На первый взгляд так, да простят меня гуру Делфи =)
в обработчике второй кнопки конструкцию try... finally.. end проверьте.
в finally процедура попадает при возникновении исключения, соотв. при нормальной работе того что после try не отрабатывают строки 35 и 36
если не прав, тыкните носом, где =)

@FIL · 23.12.2014, 13:09

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

в finally процедура попадает при возникновении исключения

В finally процедура попадает всегда.

@Gornyak46 · 23.12.2014, 13:15

Не по теме:

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

В finally процедура попадает всегда

виноват, с except попутал

@Yarik1979 · 24.12.2014, 19:52 **[ТС]**

Если кому интересно вопрос решился через Image.Picture.Bitmap.

Delphi

procedure TForm1.btn1Click(Sender: TObject);
var c:Tcanvas;
    r:Trect;
begin
    c:=Tcanvas.Create;
    c.Handle:=GetWindowdc(getDesktopWindow);
    r:=rect(0,0,Screen.Width,Screen.Height);
 
    form1.Visible:=false;
    sleep(500);
    img1.Picture.Bitmap.Width:=Screen.Width;
     img1.Picture.Bitmap.Height:=Screen.Height;
     img1.Width:=Screen.Width;
    img1.Height:=Screen.Height;
    img1.Picture.Bitmap.Canvas.CopyRect(r,c,r);
    ReleaseDC(0,c.Handle);
      c.Free;
    form1.Visible:=true;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
var c:Tcanvas;
    h:THandle;
    r,t:Trect;
 
begin
     c:=TCanvas.Create;
     form1.Visible:=false;
     sleep(750);
     c.Handle:=GetWindowdc(getDesktopWindow);
     h:=GetforegroundWindow;
     try
     getWindowrect(h,r);
     t:=Rect(0,0,r.Right-r.Left,r.Bottom-r.Top);
     img1.Picture.Bitmap.Width:=r.Right-r.Left;
     img1.Picture.Bitmap.Height:=r.Bottom-r.Top;
     img1.Width:=r.Right-r.Left;
     img1.Height:=r.Bottom-r.Top;
     img1.Picture.Bitmap.Canvas.CopyRect(t,c,r);
     finally
     ReleaseDC(0,c.Handle);
      c.Free;
      end;
     form1.Visible:=true;
end;

Почему криво работало через Canvas так и не понял. Всем спасибо.

@Gornyak46
	23.12.2014, 13:00 #2
	Не по теме: На первый взгляд так, да простят меня гуру Делфи =) в обработчике второй кнопки конструкцию try... finally.. end проверьте. в finally процедура попадает при возникновении исключения, соотв. при нормальной работе того что после try не отрабатывают строки 35 и 36 если не прав, тыкните носом, где =) 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	23.12.2014, 13:09	3
	Сообщение от Gornyak46 в finally процедура попадает при возникновении исключения В finally процедура попадает всегда. 0

@Gornyak46
	23.12.2014, 13:15 #4
	Не по теме: Сообщение от FIL В finally процедура попадает всегда виноват, с except попутал 0

	24.12.2014, 19:52