Запись в файл TFileStream

[ДралсяСошибками]

Всем привет!
Подскажите, как писать из файлового потока в файл частями, например по 1мб?
Скачиваю из Инета файл, размером 100мб, размер буффера: Buffer: Array [0..4096] of Byte;
Собственно пока не выкачаю 100мб, файл имеет нулевой размер.

[Stilet]

А это смотря как качаешь. Код в студию короче.

[ДралсяСошибками]

FileStream := TFileStream.Create('ôàéë', fmCreate, fmOpenWrite);
                       repeat
                         i := Recv(WSocket, Buffer, SizeOf(Buffer), 0);
                         FileStream.Write(Buffer, SizeOf(Buffer));
                       until i = 0;
                     FileStream.Free;

[Stilet]

Ты и так пишешь по частям. Но пока FileStream не будет освобожден в файл ничего не запишется. И по-моему у него нет метода принудительного сброса на диск.

[ДралсяСошибками]

Жаль конечно что нету.
Спасибо))))

[Slym]

Сообщение от ДралсяСошибками

FileStream := TFileStream.Create('ôàéë', fmCreate, fmOpenWrite);
                       repeat
                         i := Recv(WSocket, Buffer, SizeOf(Buffer), 0);
                         FileStream.Write(Buffer, SizeOf(Buffer));
                       until i = 0;
                     FileStream.Free;

и это не правильно.
правильно проверять i

 i := Recv(WSocket, Buffer, SizeOf(Buffer), 0);
if i<=0 then raise Exception
FileStream.Write(Buffer, i);

[ДралсяСошибками]

Спасибо.
Это был предварительный набросок, конечно же нужно всё проверять.

Вопросец: почему я никому не могу добавить плюсег?
ошибка: "Вы должны добавить отзыв кому-то ещё, прежде чем сможете снова добавить его"

[Stilet]

Жаль конечно что нету.

Используй другие функи. Из WinAPI к примеру.

[ДралсяСошибками]

Я чот подумал, в принципе и пусть он пишет при завершении, если связь рванёт, то запишет сколько скачал и при востановлении связи могу дальше докачать