الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

لإظهار سطح مكتب جهاز على شبكة محلية و التحكم به

مغلق
بدأه راما.M في 4 ديسمبر 2006 · 6 رد · 1,292 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم و رحمة الله و بركاته..

أنا عندي مشروع برنامج على شبكة محلية أعمل على تطويره حبيت أضيف ميزة إظهار صورة لسطح مكتب أحد العملاء (clients)

ثم حبيت أن أضع تايمر يصور بشكل تلقائي و يرسل الصور ثم تعرض فتظهر كأن الماوس يتحرك

الأخطاء :

التابع التالي ما عم يشتغل عندما أكتيه في زر :

procedure TForm1.SpeedButton1Click(Sender: TObject) ;

begin

// Simulate PRINTSCREEN - snapshot of the full screen

PostKeyEx32(VK_SNAPSHOT, [ ], False) ;

من المساوء انها يمكن يحصل بطء و لا يتمكن server من التحكم بالماوس و ليست فعالة..

اذا هل عند أحدكم فكرة أو طريقة أفضل للتحكم و الاظهار مع الشرح (أنا أستخدم تقنية الIndy )

وأيضا أرجو من كل شخص عنده رابط و درس تعليمي و كتاب لتطوير برنامجي أن يرفقه لاخته و جزاه الله ألف خير لأن

المراجع المتوفرة عندي لا تفي بغرض تعليم برمجة مثل هكذا برنامج .

#2

راما.M

في مواضيع المنتدى

هناك مثال لاخذ صورة لسطع المكتب

وهناك مثال اخر لارسال صورة من جهاز لجهاز

قطرة الماء تـثـقب الحجر.. لا بالعنف. لكن بتكرار المحاولة

at4re.gif

منتديات الفريق العربي للهندسة العكسية 不喜欢的勿入! www.at4re.com

#3

أخي شكرا عالرد ....

:( شفت هالمواضيع بس رابط تعليم التقاط الصورة ما فهمت منه شي

و أنا بحاجة لكتب و دروس أكثر لتطوير المشروع اذا حدا عنده

#4

ويييييييييييييييييييييييييييييييييييييينكم يا شباب

ردو علينا لو بكلمة :unsure:

#5

بالنسبة للتقاط الصورة

function ScreenShot():TBitmap;
var
c: TCanvas;
r: TRect;
B : TBitmap;
begin
c := TCanvas.Create;
c.Handle := GetWindowDC(GetDesktopWindow);
try
B := TBitmap.Create;
r := Rect(0, 0, Screen.Width, Screen.Height);
B.Width := Screen.Width;
B.Height := Screen.Height;
B.Canvas.CopyRect(r, c, r);
finally
ReleaseDC(0, c.Handle);
c.Free;
end;
Result := B;
end;

قطرة الماء تـثـقب الحجر.. لا بالعنف. لكن بتكرار المحاولة

at4re.gif

منتديات الفريق العربي للهندسة العكسية 不喜欢的勿入! www.at4re.com

#6
اقتباس
Remote Control. A Delphi version of PC-anywhere. Remotely run a computer over TCP/IP. It performs screen snap-shots, sends the difference image over to the client, and then sends back mouse clicks, drags, and keystrokes to the remote computer. The same executable serves as client and server.

تجدينه هنا

http://www.radix.net/~bziegler/Delphi/Source.html

من اشهر الأمثلة في هذا المجال ...

اطلعي على الصفحة جيداً قد تحتاجين بعض المكتبات الموجودة في الصفحة ...

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#7

شكرا الكم جميعا

شكرا أخ dj-siba و الأخ cipher

الان أنا أبحث عن طرق للحصول على الصوت (مايك/مكبر) لوضعه على الحزمة و ارسالة

اريد الحصول بس على طريقة الحصول على الصوت و الفيديو لاكمل برنامج المسنجر

أعرف في هالموضوع بالمنتدى و العنصر موجود لكن طريقة تنزيله ما عرفتها

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…