Delphi ile ScreenShot :) #KAYNAK#

[hmustak]

Buttonumuzun onClick olayına yazıyoruz tabi bunu...


-------------

procedure TForm1.Button1Click(Sender: TObject);
var
DCDesk: HDC;
begin
DCDesk:=GetWindowDC(GetDesktopWindow);
BitBlt(Form1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);
ReleaseDC(GetDesktopWindow, DCDesk);
end;

-------------

form1.canvas.handle ile görüntüyü form üstüne alıyoruz. İmage, panel hatta button üzerine almak için görüntüyü (tabi varsa form üzerinde bu bileşenler) o bileşenin canvas handle'ını yazmak gerekir...

Eklemelerinizi ve fikirlerinizi bekliyorum...

--- Bu topiği bizlere öğretici abiliğini esirgemeyen MUSTAFA ŞİMŞEK'e itafen yazdım... teşekkürler...
:)

[LoS.ToF]

Güzel yaw çalıştı hadi bu kodları tek tek açıkla banada aramı yap Delphi ile :D

[hmustak]

:D
ben "ARAYAPICI" mıyım? İstemiyosan öğrenme :)
Ama öğrenicem diyosanda ARA$TIR da öğren. Öyle ahkam kesme hadi bu kodları tek tek açıkla banada aramı yap Delphi ile

diye

:hmmm: :hmmm: :hmmm:

---------



GetDesktopWİndow apisi ile Adının üzerinde olan işlevi DCDesk'e almış KODU yazan, BitBlt ile de hangi nesneye hangi ölçülerde ve ne yapacağını belirtmiş filan...

Kodu yazan aşağıdaki linkin sahibi;
http://www.mussimsek.com (http://www.mussimsek.com)

[LoS.ToF]

teşekkür ederim ahkam kesmem zaten :( haddime değil ..

[cancana41]

merhaba,

form üzerindeki belirli bir alanın ekran görüntüsü için ne yapmalıyız,yardımcı olabilirmisiniz ?

[cancana41]

Merhabalar,
net te yaptığım araştırmaya istinaden yaptığım uygulama ve kodları ekte.
1. buton ile tüm ekran görüntüsü image 1 e ekleniyor.
2. buton ile belirlenen koordinat ve uzunluktaki bölüm image2ye aktarılıyor ve aktarılan kısım aynı zamanda clipboarda kopyalanıyor.

bende bi yardım rica edicem :)

şimdi bu clipboarda attığım resmi bir mailto syntax ında bodye nası ekleyebilirim ?
attach olmaması gerekiyo :(

şimdiden teşekkürler iyi çalışmalar:hey: