Contoh Pemrograman Interception Gambar Delphi (5)

3) Merangkak bentuk atau gambar kontrol

Raih bentuk atau gambar kontrol, yaitu, untuk menggunakan Form2 baru, lihat "Contoh Pemrograman Intercept Image Delphi (7)"

Tambahkan Capture2 dalam penggunaan implementasi unit utama.

[Tangkap Windows atau Kontrol] Action Event untuk formulir atau pengendalian penangkapan

Prosedur tMainForm.cptwindowsExecute (pengirim: Tobject);

var p: tpoint;

Mulai

Inc (Capturenum, 1);

application.minimize;

Tunda (500);

Nama file: = 'capture'+inttoStr (capturenum);

Nama file: = DefaultDirectory+nama file;

dengan tform22.create (aplikasi) do

mencoba

Jika showmodal = mrok maka

Mulai

CreateMdichild (nama file, true);

Statusbar.simpleText: = fileName;

Tunda (500);

Abitmap: = tbitmap.create;

GetCursorpos (P);

Menangani: = WindowFrompoint (p);

Abitmap: = capturewindowimage (pegangan);

Child.image1.picture.bitmap: = abitmap;

Child.ClientWidth: = Child.Image1.Picture.width;

Child.ClientHeight: = Child.Image1.Picture.height;

Child.horzscrollbar.range: = child.image1.picture.width;

Child.VertScrollBar.Range: = Child.image1.picture.height;

Child.image1.hint: = 'Tinggi:'+inttoStr (Child.image1.picture.height)+'piksel'

+'Lebar:'+inttoStr (Child.image1.picture.width)+'piksel';

Abitmap.free;

akhir;

Akhirnya

Bebas;

Application.Restore;

akhir;

akhir;

4) Gambar ikon perayapan

Ambil gambar ikon, yaitu, menggunakan Form3 baru, lihat "Contoh Pemrograman Intercept Image Delphi (8)"

Tambahkan Capture3 dalam penggunaan implementasi unit utama.

Tambahkan Proses Privat Captureicon di Unit Utama:

Prosedur tMAintForm.Captureicon; // [dua puluh]

Mulai

dengan tform3.create (aplikasi) do

mencoba

Jika showmodal = mrok maka

dengan festre mulai

if (kanan> kiri) dan (bagian bawah> atas) lalu mulailah

Penundaan (300);

Abitmap: = tbitmap.create;

Abitmap.assign (capturescreenrect (frect));

Child.image1.picture.bitmap: = abitmap;

Child.horzscrollbar.range: = child.image1.picture.width;

Child.VertScrollBar.Range: = Child.image1.picture.height;

Abitmap.free;

akhir lagi dimulai

MessagedLG ('Kesalahan pemilihan perbatasan, coba lagi!', Mtinformation, [mbok], 0);

Anak.

Form3. bebas;

KELUAR;

akhir;

akhir;

Akhirnya

Bebas;

akhir;

akhir;

Acara Action [Capture Icon] untuk Ikon Capture Pictures

Prosedur tMainForm.cpticonexecute (pengirim: tobject);

Mulai

Application.minimize;

Tunda (400);

Inc (Capturenum, 1);

Nama file: = 'capture'+inttoStr (capturenum);

Nama file: = DefaultDirectory+nama file;

CreateMdichild (nama file, true);

Statusbar.simpleText: = fileName;

Captureicon;

Child.ClientWidth: = Child.Image1.Picture.width;

Child.ClientHeight: = Child.Image1.Picture.height;

Child.horzscrollbar.range: = child.image1.picture.width;

Child.VertScrollBar.Range: = Child.image1.picture.height;

Child.image1.hint: = 'Tinggi:'+inttoStr (Child.image1.picture.height)+'piksel'

+'Lebar:'+inttoStr (Child.image1.picture.width)+'piksel';

Application.Restore;

akhir;