۳۱-اردیبهشت-۱۳۸۹, ۰۲:۰۷:۱۰
۳۱-اردیبهشت-۱۳۸۹, ۰۹:۲۸:۲۰
این کد برای فرستنده فایل:
این هم برای گیرنده:
File Address آدرس فایلی هست که می خوای بفرستیش!!!
Downloading File Address آدرس فایلی هست که باید روی کامپیوتر گیرنده ساخته بشه!!!
کد:
Public Sub SndFile()
countn=1
lenfile = FileLen("File Address")
Timer2.Enabled = True
End Sub
Private Sub Timer2_Timer()
data = Space(4000)
Open "File Address" For Binary As #98
Get #98, countn, data
If lenfile <= 4000 Then
Winsock1.SendData "DDDD" & Trim(data)
Close #98
Timer1.Enabled = False
End If
If countn < lenfile Then
If countn + 4000 > lenfile Then
Winsock1.SendData "DDDD" & Trim(data)
Close #98
Timer1.Enabled = False
Else
Winsock1.SendData "DADD" & data
Close #98
End If
End If
countn = countn + 4000
End Subاین هم برای گیرنده:
کد:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData dr, vbString
Select Case Left(dr, 4)
Case "DDDD"
fil22 = fil22 & Right(dr, Len(dr) - 4)
Open "Downloading File Address" For Binary As #23
Put #23, 1, fil22
Close #23
fil22 = ""
MsgBox "Download Completed! Go: " & dr, vbInformation, ""
Case "DADD"
fil22 = fil22 & Right(dr, Len(dr) - 4)
End Select
End SubFile Address آدرس فایلی هست که می خوای بفرستیش!!!
Downloading File Address آدرس فایلی هست که باید روی کامپیوتر گیرنده ساخته بشه!!!
۳۱-اردیبهشت-۱۳۸۹, ۱۵:۴۳:۳۶
واقعا لطف کردی دوست عزیز. مرسی
۰۱-خرداد-۱۳۸۹, ۰۹:۰۹:۳۸
سلام.
فکر میکنم winsock تا 4 یا 8 کیلو بایت رو سند میکنه. اگه فایلت حجیم بود اون ور 8 کیلو 8 کیلو دریافت میشه که باید تکه هارو بچسبونی به هم و ذخیره کنی. بهتره انتهای اطلاعات ارسالی یه علامت بچسبونی که اون ور موقع دانلود انتهای اطلاعات رو چک کنی و متوجه بشی که دانلود تموم شده.
فکر میکنم winsock تا 4 یا 8 کیلو بایت رو سند میکنه. اگه فایلت حجیم بود اون ور 8 کیلو 8 کیلو دریافت میشه که باید تکه هارو بچسبونی به هم و ذخیره کنی. بهتره انتهای اطلاعات ارسالی یه علامت بچسبونی که اون ور موقع دانلود انتهای اطلاعات رو چک کنی و متوجه بشی که دانلود تموم شده.
۰۱-خرداد-۱۳۸۹, ۲۳:۰۴:۵۰
با کدی که گذاشتم مشکلی پیش نمیاد پیمان جان
دو تا Protocol توش تعریف شده.
DDDD برای فایل های زیر 8 کیلوبایت
DDAD برای فایل های بالای 8 کیلوبایت
دو تا Protocol توش تعریف شده.
DDDD برای فایل های زیر 8 کیلوبایت
DDAD برای فایل های بالای 8 کیلوبایت