ارسال یه فایل از طریق Transfer a file (DATA) by Winsock

[The One]

سلام مخصوص به تمام برنامه نویسان عرصه کامپیوتر و اینترنت

(همین الان بگم که من فارسیم ضعیبه پس تو رو خدا غلتامو نگیرین):خجالت:

هون طور که مو ضوع رو خوندین " ارسال یه فایل از طریق Winsock "

من میتونم یه متغیر رشته ای رو ارسال کنم

Private Sub DTM_Click()
Command = "DTM"
Winsock.SendData Command
End Sub

ولی اینکه یه فایلو ارسال کنم نه!!!؟؟؟!!؟؟؟

اکه لطف کنین انو بگین ممنون میشم :لبخند:

[mpmsoft]

در سايت زير مي توني نمونه هاي خيلي خوبي پيدا كني
http://www.planet-source-code.com

[r0ot$harp]

سلام مخصوص به تمام برنامه نویسان عرصه کامپیوتر و اینترنت

(همین الان بگم که من فارسیم ضعیبه پس تو رو خدا غلتامو نگیرین):خجالت:

هون طور که مو ضوع رو خوندین " ارسال یه فایل از طریق Winsock "

من میتونم یه متغیر رشته ای رو ارسال کنم

Private Sub DTM_Click()
Command = "DTM"
Winsock.SendData Command
End Sub

ولی اینکه یه فایلو ارسال کنم نه!!!؟؟؟!!؟؟؟

اکه لطف کنین انو بگین ممنون میشم :لبخند:


دوست عزیز باید اینگونه عمل کنید :


Private Sub Form_Load()

Winsock1.Connect "yahoo.com", 80

End Sub

Private Sub Winsock1_Connect()

Dim FileLen As Long
Dim Buffer As String * 1

Open "D:\King Information.txt" For Binary Access Read As #1

FileLen = LOF(1)

For i = 1 To FileLen

Get #1, i, Buffer
Winsock1.SendData Buffer

Next i

Close #1

End Sub



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





باتشکر احسان