Снова Winsock

[Demonx]

Есть одна проблема. Я делаю фтп клиент с помощью Winsock. Когда получаю файл (RETR ...) маленького размера то всё окей, а когда получаю большой (в данном случае ~4MB),то процент доходит до половины, подвисает и пишет ошибку "Wrong protocol or connection state for the requested transaction or request".

Как получаю данные:

Код: Выделить всё


Private Sub Socket_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Socket.GetData Data
txt = txt & Data
End Sub

[Arcanoid]

Выражение: "str = str & symbol" - вообще не оптимально для больших потоков данных! Поэтому, мне кажется, лучше использовать массив и в него заносить данные например так:

Код: Выделить всё

dim txt() as byte
...
txt(i) = data(0)
txt(i+1) = data(1)
...