Код: Выделить всё
модуль ТакойТо;
использует Files,Strings,Потоки;
перем НомерФайла: цел32;
проц СкопируйПотокВФайл(in:Потоки.Чтец);
перем выхФайл: Files.File; вых: Files.Writer; стр1 : массив 10 из симв8; б:симв8; иф: массив 405 из симв8; сч: цел32;
нач
Strings.IntToStr(НомерФайла,стр1);
копируйСтрокуДо0(Strings.ConcatToNew("img",Strings.ConcatToNew(стр1,".jpeg")^)^, иф);
увел(НомерФайла);
трассируй(иф);
выхФайл := Files.New(иф);
Files.OpenWriter(вых,выхФайл,0);
если in.МестоВПотоке() > 0 то
трассируй("поток стоял не в начале - ничего не выйдет",in.МестоВПотоке()) всё;
нц
in.чСимв8(б);
если in.кодВозвратаПоследнейОперации # Потоки.Успех то
трассируй(in.кодВозвратаПоследнейОперации, сч);
вых.ПротолкниБуферВПоток();
Files.Register(выхФайл);
выхФайл.Close();
трассируй("успех");
возврат всё;
увел(сч);
вых.пСимв8(б) кц кон СкопируйПотокВФайл;
нач
НомерФайла := 0;
кон ТакойТо.