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

[m2011kh]

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

Dim as string
open "C:\5.mp4" for binary as #1
k = input(lof(1),1)
winsock1.SendData k

دریافت:

Dim k as string
winsock1.getdata k
open :C:\6.mp4" for append as #1
print #1,k;

کاملا درست عمل میکنه:
ولی اگه یک فایل تصویری مثل bmp ارسال کنید و تو خط چهار برای دریافت کاراکتر ";" رو بردارید عکسه با زاویه 45 درجه کج میشه.
این نکته فقط در مورد تصویر های با فرمت:BMP اتفاق میفته.