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

اريد انا اعمل الاتصال بولسطة Computer Name بدلا من Winsock

بدأه egyptforegypt في 5 أبريل 2008 · 5 رد · 1,558 مشاهدة · في قسم قواعد البيانات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

انا والله عندى مشكلة رهيبة جدا جدا جدا

انا بعد ما خلصت المشروع التخرج بتاعى وجيت اسلمةالدكتور بتاعى طلب مننى حاجة عمرها ما تخطر على البال

اولا طلب منى اعمل erd للمشروع بتاعى والحمد لله عرفت اعمل

ثانيا : طلب منى ان اعمل الاتصال بي العميل والخادم عن طريق compuer name

بدلا من winsock

فيترى حد يقدر يساعدنى ويقولى ازاى اعمل الاتصال بواسطة compuet name

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

موقعنا يقدم لكم خدمة البحث عن المفقودين

يمكنك ان تعلن عن اطفال مفقودين فى موقعنا مجانا

www.egyptloveme.com

#2

الأخ الكريم ، الوين سوك يمكنه ربط الأجهزة من خلال الـ IP أو الـ Computer Name ، علي أساس أن لكل Computer له إسم خاص !!!

أعتقد أخي أن الأستاذ الفاضل يقصد ربط قاعدة البيانات ، فهل أنت تتعامل مع قاعدة بيانات ؟

إذا كان الأمر هكذا فضلاً يمكنك سرد كافة الأجزة علي الشبكة في ComboBox ( أبحث عنه بالمنتدي ) ، ومن ثم قم بإجراء الإتصال علي ها الأساس !!!

بس لو سمحت حددلي نوع قاعدة البيانات ؟

شكراً

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#3
MMA_EG_Cairo كتب:
الأخ الكريم ، الوين سوك يمكنه ربط الأجهزة من خلال الـ IP أو الـ Computer Name ، علي أساس أن لكل Computer له إسم خاص !!!

أعتقد أخي أن الأستاذ الفاضل يقصد ربط قاعدة البيانات ، فهل أنت تتعامل مع قاعدة بيانات ؟

إذا كان الأمر هكذا فضلاً يمكنك سرد كافة الأجزة علي الشبكة في ComboBox ( أبحث عنه بالمنتدي ) ، ومن ثم قم بإجراء الإتصال علي ها الأساس !!!

بس لو سمحت حددلي نوع قاعدة البيانات ؟

شكراً

استاذى الفاضل تم والحمد الله الانتهاء من ربط القواعد البيانات اكسس بواسطة ado and dao

ولكنى فى حاجة تانية حالص

اريد عمال اتصال بين ملفين العميل والخادم بوا سطة computer name فقط

وليس عن طريق ip and port

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

موقعنا يقدم لكم خدمة البحث عن المفقودين

يمكنك ان تعلن عن اطفال مفقودين فى موقعنا مجانا

www.egyptloveme.com

#4

أوك أخي ، بنفس طريقة الوين سوك أرسل له Computer Name بدلاً من الـ IP

شكراً

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#5

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

استاذى هل تستطيع ان ترسل لى الكود لاننى لا اعرفها

فجزاك الله كل خير

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

موقعنا يقدم لكم خدمة البحث عن المفقودين

يمكنك ان تعلن عن اطفال مفقودين فى موقعنا مجانا

www.egyptloveme.com

#6

بسم الله الرحمن الرحيم

كل ما عليك هو أنشاء مشروعين الأول خادم والثاني عميل

سيقوم الخادم بفتح منفذ أتصال وأنتظار أي عملية اتصال

اما العميل فسيقوم بعمل أتصال علية

في المثال التالي سننقاش كيفية عمل أتصال وأرسال بيانات و ستجد هناك مشروعين الأول خادم والآخر عميل

في الخادم سنقوم بأدراج الأدوات الآتية

2 Text

الأول لأدخال المنفذ

والآخر لعرض البيانات المستقبلة من العميل

Command

لفتح المنفذ

Winsock

وعمل الكود التالي مع العلم بأني قمت بشرح الكود في مكانة



Winsock1.LocalPort = Text1.Text

Winsock1.Listen
Command1.Enabled = False
Text2.Text = Text2.Text & "Êã ÝÊÍ ÇáãäÝÐ ÑÞã : " & Text1.Text & vbNewLine
End Sub

Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then SendKeys "{backspace}": Beep
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

Winsock1.Close

Winsock1.Accept requestID
Text2.Text = Text2.Text & "Êã ÞÈæá ÃÊÕÇá" & vbNewLine
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dt As String
Winsock1.GetData dt
Text2.Text = Text2.Text & dt & vbNewLine
End Sub
   Private Sub Command1_Click()

وفي مشروع العميل سنقوم بإدراج الأدوات الآتية

3 TEXT

الأول لأسم الجهاز أو رقم الآي بي الخاص بالخادم

الثاني لرقم المنفذ يجب أن يكون رقم المفذ مطابق بين الخادم والعميل

الثالث لأرسال البيانات من داخلة

2 Command

الأول لعمل أتصال

والثاني لأرسال بيانات مربع النص الثالث

Winsock

ونقم بعمل الكود التالي



Winsock1.Connect Text1.Text, Text2.Text
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Dim dt As String
dt = Text3.Text
[attachment=65492:untitled.JPG]Winsock1.SendData dt
End Sub
   Private Sub Command1_Click()

كما يمكنك الأستعانة بالصورة عند التنفيذ

حمل المشروع جاهز في المرفقات

أتمنى أن أكون أفدتك ووصلتك لهدفك وآسف على طول الشرح ولكن للتفسير

post-122226-1210636220_thumb.jpg

WinsockApp.rar

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