ورود

View Full Version : کمک در مورد ارسال عکس با winsock


farhadmax69
سه شنبه 20 تیر 1391, 03:05 صبح
سلام دوستان

میخواستم بدونم برای بازسازی و ذخیره عکس(یا هر فایل باینری دیگه ای) که با وینسوک فرستاده شده باید از چه کدی استفاده کنیم؟ یه سورس ساده اگه بزارین ممنون میشم.
محسن واژدی
سه شنبه 20 تیر 1391, 10:01 صبح
سلام علیکم
اگر جستجویی با عنوان winsock در بخش VB6 می کردین به نتایج زیادی می رسیدید
نمونه زیر بررسی کنید:
Transfer Picture from Client to Server :
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=72687&lngWId=1

موفق باشید
farhadmax69
سه شنبه 20 تیر 1391, 11:52 صبح
لطفا یه زحمتی بکشید ببینید مشکل این کد کجاست که فایلو ذخیره نمیکنه(یعنی فایل ایجاد میشه ولی حجمش صفر میشه)



Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)

Dim buffer As String

Open "G:\sentfile.jpg" For Binary As #1

winsock1.GetData , buffer

Put #1, , buffer

Close #1


End Sub
محسن واژدی
سه شنبه 20 تیر 1391, 12:22 عصر
لطفا یه زحمتی بکشید ببینید مشکل این کد کجاست که فایلو ذخیره نمیکنه(یعنی فایل ایجاد میشه ولی حجمش صفر میشه)



Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)

Dim buffer As String

Open "G:\sentfile.jpg" For Binary As #1

winsock1.GetData , buffer

Put #1, , buffer

Close #1


End Sub

سلام علیکم
به اینصورت بررسی کنید:

Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
Dim buffer() As Byte

ReDim buffer(bytesTotal)

Open "G:\sentfile.jpg" For Binary As #1

winsock1.GetData , buffer

Put #1, , buffer

Close #1



موفق باشید
farhadmax69
دوشنبه 13 شهریور 1391, 21:51 عصر
سلام اقا محسن این کد بالا بازم اررور میده(در خط 8)

میگه : Argument Not Optional