AÇIKLAMA

C++ Builder 6 ile uyumludur. Bu programda birçok i?lem beraber yap?lmaktad?r. ?öyleki öncelikli olarak formumuzda bir adet Image nesnesi ve Timer nesnesi bulunmaktad?r. Program?m?z? ko?tu?umuzda ekranda ve görev çubu?unda görünmemesini istiyorsak daha önceki derslerimizde de görmü?tük fakat tekrardan belirtelim  Form Create olay?nda SetWindowLong(Application->Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW)  API'sini kullanarak görev çubu?undan program?n?z?n görünmemesini sa?layabilirsiniz. Ayr?ca Project1.cpp içinde Application->CreateForm(__classid(TForm1), &Form1) sat?r?ndan sonra Application->ShowMainForm=false kodunu yazarak program?n?z? ko?tu?unuzda program?n formunun gizlenmesini yani görülmemesini sa?layabilirsiniz. Ekran?n foto?raf?n? çekme i?lemine gelecek olursak;  HDC dc=GetDC(0); sat?r?nda ekran?n özelliklerini HDC türünden bir nesneya GetDC windows API'si ile atar?z. Daha sonra Graphics::TCanvas *ScreenCanvas=new Graphics::TCanvas sat?r? ile TCanvas nesnesi türünden bir de?i?ken tan?mlar?z. Buradaki tan?mlama i?lemi C++ modundad?r ki do?al olarak C++ Builderde de çal???r. Daha sonra ekran özelliklerini ald???m?z nesneyi tan?mlad???m?z TCanvas türünden nesneye ScreenCanvas->Handle=dc sat?r? ile atar?z. Neden bu i?lemleri yapt?k diyecek olursak bizim Image nesnemize direk olarak dc nesnesinden atama yap?lamaz bu sebepten dc türünün atanabilece?i TCanvas türünden bir nesne tan?mlay?p oradanda TImage nesnesine atama yapabilelim diye. Daha sonra image nesnesinin boyutlar?n? dc (yani ekran?n) nesnesinin atanm?? oldu?u screen türünden tan?mlam?? oldu?umuz nesneden ald?k ve atad?k. Daha sonra TRect tipinden bir nesne tan?mlad?k tam image nesnemizin içine oturacak ve onu dolduracak ?ekilde. Image1->Picture->Bitmap->Canvas->CopyRect(rect,ScreenCanvas,rect) sat?r? ile rect nesnesini içine ekran? yerle?tirip rect nesnesini de image nesnemizin içine çizdirdik veya atad?k da denilebilir. Daha sonra Image nesnesi içindeki resim do?al olarak bmp format?nda oldu?undan bulundu?u klasöre kaydediliir ve program 3 sn sonra sonland?r?l?r.

Program?n Tamam?n? A?a??daki Linkten ?ndirebilirsiniz

Linki Görebilmeniz ?çin Üye Olman?z Gerekmektedir...

Üye Kay?t 

Program Kodu:

Project1.cpp :

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->ShowMainForm=false;
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------
 
 
 

Unit1.cpp

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
SetWindowLong(Application->Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
HDC dc=GetDC(0);
Graphics::TCanvas *ScreenCanvas=new Graphics::TCanvas;
ScreenCanvas->Handle=dc;
Image1->Picture->Bitmap->Width=Screen->Width;
Image1->Picture->Bitmap->Height=Screen->Height;
TRect rect=Rect(0,0,Screen->Width,Screen->Height);
Image1->Picture->Bitmap->Canvas->CopyRect(rect,ScreenCanvas,rect);
Image1->Picture->SaveToFile("1.bmp");
Timer1->Enabled=false;
}
//---------------------------------------------------------------------------