ارسال یه نوشته به دو وین سوک

[sinashahab]

سلام
من می خواهم که یه تکست رو به دو کلاینت بدم .
یعنی من دو نفر رو کانکت می کنم ولی نمی شه به دو نفر به طور یک زمان بفرستیم .
این هم کد :

Dim a As Long
Dim i As Long
'Name Of Winsock = W1
'Index Of Winsock = 0
Private Sub Form_Load()
a = 0
W1(0).LocalPort = 1000
W1(0).Listen
End Sub
Private Sub W1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
a = a + 1
Load W1(a)
W1(a).LocalPort = 0
W1(a).Accept requestID
End If
End Sub

[mpmsoft]

دوست عزيز يك Doevents بينشون بذار درست مي شه

[sinashahab]

دوست عزيز يك Doevents بينشون بذار درست مي شه
doEvent چیه ؟ :خجالت:

[Black_Strom]

البته حرفه ای تر اگه باشی multi threathing واسه همزمان اجرا کردن پردازش ها باید کار کنی خیلی حال میده ...

[mpmsoft]

دوست عزیز این موضوع مربوط به MultiThreading نمی شه

[r0ot$harp]

دوست عزیز این موضوع مربوط به MultiThreading نمی شه

البته من اینو قبول ندارم که این موضوع به Multi Thereading مربوط نمی شه !!!

وقتی شما می خواین یه فایل رو دانلود کنید بعضی از دانلود منیجر ها به صورت 4 تا 16 تایی دانلود می کنند که این همون استفاده از Multi Thereading می باشد .

چون برای این کار باید همزمان 10 وینسوک به صورت آرایه متصل بشند و به صورت همزمان دانلود کنند .




باتشکر احسان

[sinashahab]

سلام
نه منظور من این است که چند کلاینت اون نوشته ی سند شده رو بتونن بگبرن .
dim s as string
winsock1.getdata s

[mpmsoft]

دوست عزیز تا اون جایی که من می دونم دانلو فایل توسط winsock صورت نمی گیره

من کاملا موافق استفاده از multithread هستم و خودم هم بر این اساس نرم افزار طراحی می کنم

ولی سوالی که دوستمون پرسیدن جوابش استفاده از Doevents بود

[Black_Strom]

بچه ها من همه این صحبتهات را قبول دارم اما یه پیشنهاد بود ...
مطمئنن جواب سوال دوست عزیزمون به همون سادگی که گفته شد اما واسه یه کار حرفه ای باید از یه جایی شروع کرد دیگه ...
این دوستمون اگر بیافته دنبال این قضیه خدا می دونه پس فردا رو دست یاهو بلند نشه و من این را دوست دارم پس sinashahab برو ببینم چی کار می کنی یا علی ...