فرستادن از راه دور عکس با وینسوک

[m2011kh]

سلام.
من میخوام یه عکس رو از مسافت دور با اینترنت و از طریق Winsock بفرستم.
لطفا یه تکه کدی یا سروری یا آموزشی قرار بدین.
اگه میشه این کارو سریع تر انجام بدین چون خیلی سریع لازم دارم.
ممنون.
محمد مهدی خلیلی
MMD

[Mr'Jamshidy]

Private Sub cmdSend_Click()
Dim picData As String
Open "Picture Address" For Binary As #1
ProgressBar1.Max = LOF(1)
picData = String(LOF(1), vbNullChar)
Get #1, , picData
Close #1

Winsock1.SendData picData
End Sub

Private Sub Winsock1_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
ProgressBar1.Value = bytesSent
End Sub

[m2011kh]

فقط یه سوال:
اینجامنظورش از ProgressBar1 چیه؟

[IamOverlord]

نوار پیشرفتی که از 0 تا صد مقدار می گیره. می شد به جاش مقدار رو در Label یا TextBox نشون داد؛ ضمنا برای نشون دان پیشرفت کار در ProgressBar نیاز به کل حجم فایل هم هست.

[Mr'Jamshidy]

نوار پیشرفتی که از 0 تا صد مقدار می گیره. می شد به جاش مقدار رو در Label یا TextBox نشون داد؛ ضمنا برای نشون دان پیشرفت کار در ProgressBar نیاز به کل حجم فایل هم هست.

و به همین دلیل از ProgressBar1.Max = LOF(1) استفاده شده (البته با تشکر از دوست خوبمون)

[m2011kh]

سلام دوستان اون مشکلم حل شد فقط یه مشکل دیگه هنوز مونده.
وقتی کد باینری شده ی تصویر و فرستادم حالا چطوری دوباره تو کامپیوتر مقصد به صورت اولش در بیارم؟

[m2011kh]

کسی جواب نمیده؟

[محسن واژدی]

سلام دوستان اون مشکلم حل شد فقط یه مشکل دیگه هنوز مونده.
وقتی کد باینری شده ی تصویر و فرستادم حالا چطوری دوباره تو کامپیوتر مقصد به صورت اولش در بیارم؟

سلام علیکم
همانطور که اطلاع دارید رویداد DataArrival در هربار به هنگام رسیدن اطلاعات فعال میشود و ما توسط متد GetData اطلاعات رسیده را دریافت می کنیم، برای بازسازی فایل رسیده هم ابتدا یک فایل را از نوع باینری باز میکنیم و در هربار اطلاعات رسیده را به آن فایل اضافه میکنیم، که در پایان فایل ارسال شده را در مقصد خواهیم داشت

موفق باشید

[m2011kh]

سلام دوستان.
مشکلم تا حدی حل شد ولی وقتی فایلو میگیرم وی یه فایل از نوع باینری باز میکنم و فابلو باز سازی میکنم تصویری ک فرستادم باز سازی نمیشه.
اگه میشه یه سورس بزرین.
بازم ممنون

[M.T.P]

احتمالا دیتای اضافی تو فایل ریختید.
حجم فایل ارسالی با دریافتی رو مقایسه کنید.

[m2011kh]

سلام دوستان وقتی من میخوام همه داده های گرفته شده رو در فایل جدید نویسم از تابع Print استفاده میکنم.
موقعی ک میخوام داده ها رو توش ذخیره کنم رو تابع Print اروور میده
اگه بازم کمک کنید خیل ممنون میشم

[M.T.P]

چه موقع خوندن و چه نوشتن باید فایل رو Binary باز کنی
و با Get و Put دیتا رو بخونی و بنویسی.

[محسن واژدی]

نمونه زیر را هم بررسی کنید:
Transfer Picture from Client to Server
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=72687&lngWId=1

موفق باشید

[m2011kh]

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

[m2011kh]

آقا محسن لینکتون باز نمیشه

[m2011kh]

محسن واژدی دسته درد نکنه داداش.
خیلی مردی
بازم ممنون خیلی دنبالش بودم

[farhadmax69]

سلام دوستان اون مشکلم حل شد فقط یه مشکل دیگه هنوز مونده.
وقتی کد باینری شده ی تصویر و فرستادم حالا چطوری دوباره تو کامپیوتر مقصد به صورت اولش در بیارم؟


سلام دوستان

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

[محسن واژدی]

سلام دوستان

میشه واسه سوال دوستمون که من نقل قول کردم یه سورس بنویسید یعنی کدهای دریافت و بازسازی عکس ارسال شده اخه منم تو این قسمت مشکل دارم. ممنون سلام علیکم
نمونه پست 13 را بررسی کنید

موفق باشید