22-02-2013, 09:00 PM
23-02-2013, 12:08 PM
السلام عليكم ورحمة الله وبركاتة
ليس لدي جواب لكني ساعطيك ما لدي ...
من ناحية الفكرة العامة :
سبق وان رأيت سروس كود برنامج لتصوير الشااشة ... كان يقوم بإلتقاط صور باقل من جز من الثانية ....
وبعد ان تضغط زر إنهاء التصوير يمت دمج الصور باحد الاكود
اما من ناحية اوامر التصوير ... حصلت على هذه الطريقة لاخذ صورة لشاشتك ووضعها في مكون TImage
ارفقت مثال ...
اتمنى اني افدتك ... والسلام عليكم ورحمة الله وبركاتة
ليس لدي جواب لكني ساعطيك ما لدي ...
من ناحية الفكرة العامة :
سبق وان رأيت سروس كود برنامج لتصوير الشااشة ... كان يقوم بإلتقاط صور باقل من جز من الثانية ....
وبعد ان تضغط زر إنهاء التصوير يمت دمج الصور باحد الاكود
اما من ناحية اوامر التصوير ... حصلت على هذه الطريقة لاخذ صورة لشاشتك ووضعها في مكون TImage
ارفقت مثال ...
اتمنى اني افدتك ... والسلام عليكم ورحمة الله وبركاتة
23-02-2013, 12:44 PM
شكرا جزيلا اخي الكريم .
لقد جربت سابقا الطريقة الاولى اي اخذ صور متتابعة
لكنها تبطىء من سرعة الجهاز عداك عن التقطيع في مؤشر الفأرة
عسى ان تكون الطريقة الجديدة انجع
شكرا.
لقد جربت سابقا الطريقة الاولى اي اخذ صور متتابعة
لكنها تبطىء من سرعة الجهاز عداك عن التقطيع في مؤشر الفأرة
عسى ان تكون الطريقة الجديدة انجع
شكرا.
23-02-2013, 04:29 PM
اخي يوجد شيء اسمه Thread وهو سريع جداً مقارنة ان تضع الامر بـ Timer وعند استعماله ضع الامر Sleep لكي يكون الامر
جيد ولا يحصل اي تهنيق او بطئ بالجهاز ( لم اجرب الطريقة لكني اعرف ان الـ Thread سيرع جداً
)
بالنسبة للـ Thread لا املك الخبيرة الكافية التي تخولني لشرحه لك
... ابحث بالمنتدى ستجد مواضيع تتكلم عنه ..
تحياتي
والسلام عليكم
جيد ولا يحصل اي تهنيق او بطئ بالجهاز ( لم اجرب الطريقة لكني اعرف ان الـ Thread سيرع جداً
)إقتباس :عداك عن التقطيع في مؤشر الفأرةاضن هذه الحالة طبيعيه مع جميع برامج التصوير عدا التي تستعمل طرق ملتوية .. لجعل مؤشر الماوس لا يقطع اثناء التصوير
بالنسبة للـ Thread لا املك الخبيرة الكافية التي تخولني لشرحه لك
... ابحث بالمنتدى ستجد مواضيع تتكلم عنه ..تحياتي
والسلام عليكم
25-02-2013, 08:29 AM
تعديل بسيط لدعم التقاط مؤشر الفأرة
PHP كود :
var
DC : HDC;
Re : TRect;
WidthWin, HeightWin : Integer;
BitmapScreen : TBitmap;
rPos:TPoint;
cInfo :TCursorInfo;
begin
DC := GetDC(GetDesktopWindow);
WidthWin := GetDeviceCaps(DC, HORZRES);
HeightWin := GetDeviceCaps(DC, VERTRES);
img1.Width := WidthWin;
img1.Height := HeightWin;
cInfo.cbSize := SizeOf(cInfo);
GetCursorInfo(cInfo);
GetCursorPos(rPos);
BitBlt(img1.Canvas.Handle,0,0,img1.Width,img1.Height,
DC,0,0,SRCCOPY);
DrawIcon(img1.Canvas.Handle,rPos.X,rPos.Y,cInfo.hCursor);
ReleaseDC(GetDesktopWindow,DC);
end;