Arsip: Bagaimana screencapture active window tanpa border & Cap

 
user image
more 12 years ago

ronindra

Bagaimana cara screen capture untuk active windows tanpa border dan caption? saya udah cari dan menemukan beberapa link untuk screen capture: http://www.bitwisemag.com/copy/delphi/delphi1.html http://delphi.about.com/od/adptips2006/qt/captureactive.htm tapi caption & border formnya masih terbawa juga. Ada satu cara yang saya sudah saya gunakan yaitu Image1.Picture.Bitmap := Fmain.GetFormImage; tapi capturenya lambat dan hasilnya melenceng (jika kita pakai component raize misalnya) Mohon pencerahan...
user image
more 12 years ago

deLogic

Saya menggunakan kode yang terdapat pada artikel bitwisemag untuk meng-capture jendela yang aktif tanpa caption dan border, dan tidak ada masalah.

procedure TForm1.Button1Click(Sender: TObject);
var
  DestRect, SourceRect: TRect;
  h: THandle;
  hdcSrc : THandle;
begin
  h := GetForeGroundWindow;
  if h <> 0 then
  begin
    try
      hdcSrc := GetDC(h); // use this for ClientRect
      Windows.GetClientRect(h,SourceRect);
      Image1.Picture.Bitmap.Width  := SourceRect.Right - SourceRect.Left;
      Image1.Picture.Bitmap.Height := SourceRect.Bottom - SourceRect.Top;
      DestRect := Rect(0, 0, SourceRect.Right - SourceRect.Left,
                       SourceRect.Bottom - SourceRect.Top);
      StretchBlt(Image1.Picture.Bitmap.Canvas.Handle,
                 0, 0, Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height, hdcSrc,
                 0, 0, SourceRect.Right - SourceRect.Left, SourceRect.Bottom - SourceRect.Top,
                 SRCCOPY)
    finally
      ReleaseDC(0, hdcSrc);
    end;
  end;
end;
user image
more 12 years ago

Tbawor

sekedar memperjelas baris kode no 8 // if h &lt;&gt; 0 then operator &lt;&gt; maksudnya adalah <> Tag highlighternya suka mengubah2 operator Delphi...
user image
more 12 years ago

deLogic

@TBawor: yup betul sekali...
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com