WebServer

Jeg har lavet en webserver, men problemet er at den ikke er hurtig nok ved transmittering af større filer (>2MB)
Jeg bruger denne routine:
---------------------------------------------
Open thePath For Binary As #theFree
Do While Not EOF(theFree)
theChar$ = Input(1024, #theFree)
theFile$ = theFile$ & theChar$
DoEvents
Loop
Close theFree
Winsock.SendData theFile$
---------------------------------------------
Problemet er at det tager for lang tid at indlæse en fil i en variabel først, men andet kan jeg ikke lige finde ud af p.t.

P.S: Jeg har også prøvet at sende bit for bit, og linie for linie men det virker heller ikke!