DO IF Socket.IsServerReady (Sock) THEN Text = text + Socket.Read (Sock, 65000) 'print text' '32000 байт ... все, что нам дают Байты = байты + Socket.Transferred StatusBar.Panel (0 ) .Caption = "Чтение байтов:" + STR $ (байт)
END IF
'RichEdit.addstrings text zzz = Bytes LOOP UNTIL Socket.Transferred = 0 RichEdit.Clear RichEdit.Text = text Socket.Close (Sock) dim mem в виде потока данных dim S $ в виде строки S $ = текст для n = 0 для 400 баффов = середина $ (S $, n, 5)
если buff $ = "alive", то 'найдено конец заголовков richedit1.addstrings (buff $) richedit1.addstrings (mid $ (S $, n, 9)) richedit1.addstrings str $ (n + 9) zzz = n + 8 'смещение + 8 бит после пробелов и до конца Bof, если следующий n Mem.WriteStr (S $, LEN (S $))' записать весь файл в память Mem.Position = zzz 'использовать смещение в качестве начальной позиции S $ = Mem.ReadStr (LEN (S $)) 'читать остаток файла в строку, пока Eof Mem.Close' не забудьте закрыть 'PRINT S $' 'распечатать его
Filex.Open ("c: /CAP.AVI", fmCreate) 'создать файл в системном файле x.WriteBinStr (S $, len (S $) - zzz)' записать в него filex.close 'не забудьте закрыть