VisulaBasic : file transfer me winsock help

[Link]

prospathw na kanw ena chat se VB kai na metaferw arxeia. Exw 2 formes Client kai Server. To thema einai oti mporw na metaferw arxeia mexri 8 KB. Ston server loipon gia na kanw sen d arxeio exw ton akoloutho kyrios kwdika:

>
destination = path & numberofframes & ".jpg"
      retVal = DIWriteJpg(destination, compressionQuality, 0)
      Set f2 = file2transfer.GetFile(destination) ''''''''''''
      
      Str = f2.Size

       Open f2 For Binary As #1

       ReDim bindata(Str - 1)
           While intposition < LOF(1) 'Returns aLong representing the size, in bytes, of a file opened using the Open statement.
           Get #1, , bindata() 'Reads data from an open disk file into avariable.
           tcpServer(1).SendData (bindata()) 'Data to be sent. For binary data, byte array should be used.
           intposition = Loc(1) 'Returns aLong specifying the current read/write position within an open file.
           ' ReDim bindata(intposition)
       Wend
       Close #1

kai ston client mesa sto swma tis DATA_ARRIVAL exw :

Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)

Dim bindata() As Byte

On Error GoTo errorHandler

tcpClient().GetData bindata(), vbByte


Open (DirTarget.path & "\" & txtTarget.Text) For Binary As #2
   Put #2, , bindata()
   Close #2
   
   Exit Sub
errorHandler:
MsgBox ("tcpClient DataArrival Error!")
End Sub

opoios einai gnwsti parakalw as me voithisei. Epanalamvanw exw petyxei na metaferw arxeia alla mono mexri 8 KB

[morpheous]

re c ama to vreis stilto mou kai mena ena mail!!!

[HaPagan]

Είναι πολύ πιθανό ο κώδικάς σου να στέλνει πακέτα των 8 KBs . Οπότε ανάλογα με το μέγεθος του αρχείου που θες να στείλεις , κάνε ένα for μέχρι το μέγεθος του αρχείου .

[Link]

diladi na kanw ena for me metabliti pou na ksekinaei apo to 0 kai afksanetai mexri to SIZE tou arxeiou? kai mesa sto loop tha kanei synexeia SendData? an mporeis ligo kwdika tha voithage...

[HaPagan]

Κώδικα δεν ξέρω να σου πω . Αλλά η λογική πρέπει να είναι αυτή που σου είπα . Καλά το έχεις καταλάβει .

[Link]

ante re paidia , kanas gnwstis VB den yparxei ???

[gtsamis]

http://www.codeproject.com/internet/

[V-Piojo]

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=38004&lngWId=1