For i = 0 To Drive1. ListCount - 1Winsock1. SendData Drive1. List Next i kodu ile sürücüleri gdnerdiğimde winsock hepsini birden hafızasıdna topluyup gdneriyor herhalde çünkü Combo1. AddItem Veriile aldığımda tüm sürücüler tek birsatırda yazıyor. merak ettiğim heryerde başıma bu problem geliyor hatta dosya gdnerimi sırasında gdnerim bittikten sonra en son yollanan parçanın peşine "son" datasını yolladığımda da son ile en son gdnerdiğim data birbirine bitişik gittiğinden program dosya alımının bittiğini anlamıyor.

Drive problemi için aşağıda uyguladığım mantığı kullanabilirsin.. Not: felaket uykum war bu kadar yapabildim anca bi kontrol et hata olabilr :) ClientPrivate Sub Command1_Click If Winsock1. State <> sckClosed Then Winsock1. CloseWinsock1. Connect "localhost", 11000End SubPrivate Sub Command2_Click Dim i As IntegerFor i = 0 To Drive1. ListCount - 1If i = Drive1. ListCount - 1 ThenWinsock1. SendData Drive1. List ElseWinsock1. SendData Drive1. List & Chr(255)End IfNextEnd SubPrivate Sub Winsock1_Connect MsgBox "k"End Sub ServerPrivate Sub Form_Load If Winsock1. State <> sckClosed Then Winsock1. CloseWinsock1. ListenEnd SubPrivate Sub Winsock1_ConnectionRequest If Winsock1. State <> sckClosed Then Winsock1. CloseWinsock1. Accept requestIDEnd SubPrivate Sub Winsock1_DataArrival Dim veri As String, parsed As StringWinsock1. GetData veriparsed = Split(veri, Chr(255))Dim i As IntegerFor i = 0 To UBound Combo1. AddItem parsed NextEnd Sub Denedim çalıştı grdüğüm kadariyla.. The king is bleeding.

: For i = 0 To Drive1. ListCount - 1Winsock1. SendData Drive1. List Next i kodu ile sürücüleri gdnerdiğimde winsock hepsini birden hafızasıdna topluyup gdneriyor herhalde çünkü Combo1. AddItem Veriile aldığımda tüm sürücüler tek birsatırda yazıyor. merak ettiğim heryerde başıma bu problem geliyor hatta dosya gdnerimi sırasında gdnerim bittikten sonra en son yollanan parçanın peşine "son" datasını yolladığımda da son ile en son gdnerdiğim data birbirine bitişik gittiğinden program dosya alımının bittiğini anlamıyor. Diğer arkaddaşın yaptığıda doğru ama daha kısa bir yntem var Winsock nesnesi dediğin gibi belli bir sınıra kadar verileri biriktiriyor sonra topluca gnderiyor ama eğer dngüye Doevents koyarsan her dngüde bilgiyi gnderir yani kod şyle olursa problem çıkmaz. For i = 0 To Drive1. ListCount - 1Winsock1. SendData Drive1. List DoeventsNext i...::::::: İlle kalite, İLLEGALİTE :::::::...