الارسال عبر winsock

مغلق

بدأه الكثيري في 14 مايو 2002 · 5 رد · 711 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#114 مايو 2002 في 17:32 صاحب الموضوع

السلام عليكم

لدي برنامج استخدم فيه اداة winsock حسب علمي يتم ارسال قيمة واحدة فقط في كل عملية ارسال اي باستخدام الامر التالي

winsock1.send data aa'

ولكن المشكلة اني اريد ان ارسل اكثر من قيمة في كل عملية ارسال

مثلا اسم اطالب و رقمه دفعة واحدة

كيف ممكن يسير الي ابي و لا مستحيل

ارجو الاجابة في اقرب وقت ممكن

وجزى الله الجميع كل خير

#215 مايو 2002 في 04:41

يمكنك إرسال قيمة واحدة و استقبال هذه القيمة فة عدة متغيرات و ذلك بإستخدام الامر mid

فمثلا يمكنك ارسال القيمة "Ahmed 22"

ثم

اجعل

name=mid("ahmed 22",0,5)

age=mid("ahmed 22",6,2)

اخوك

خالد

http://3kd.dk3.com

http://bank.vbzoom.com

#315 مايو 2002 في 06:36

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

أنا شخصيا أرسل القيم مرة واحدة وأفصل بينها بفاصل مثل ; مثلا لإرسال الأسم و العمر أكتب:

winsck1.SendData TheName & ";" & TheAge

وعند الطرف الآخر (الاستقبال) أكتب:

Dim pos as Integer

Dim DataResieved as String

Dim S_Name AS String

Dim S_Age as String



pos = instr(DataResieved,";")

If pos > 0 then

   S_Name = Left(DataResieved, pos - 1)

   S_Age = Mid(DataResieved, pos + 1)

Else

   S_Name = DataResieved

   S_Age = DefaultAge

End If