Zitat:

Hallo sico, poste doch bitte mal den Source, das könnte hilfeich sein. Gruß, Stefan

Die Variable anders deklariert werden muss
 
Dim Variable() As Byte
ReDim Variable(1 To 4096) As Byte
 
 
Die Daten müssen in einer Schleife gelesen werden
Dim i%
For i = 1 To LOF(Dateinummer) \ 4096 'Die Daten werden ja in einem 4096 Byte 
' Array gesendet
 
Get Dateinummer, , Variable 'Startet automatisch bei 1, durch das Auslesen wird 
' die Read Position um 4096 Bytes verschoben...
 
Winsock.SendData Variable
Next i 
 
If LOF(Dateinummer) Mod 4096 <> 0 Then
ReDim Variable(1 To LOF(Dateinummer) Mod 4096) As Byte
Get Dateinummer, ,Variable 
Winsock.SendData Variable
End If