пример кода: пишем содержимое потока в файл:

Только технические вопросы по ЯОС и MINOS. Терминология и прочее - в других форумах.
Ответить
БудДен
Сообщения: 2839
Зарегистрирован: 07.10.18 14:01

пример кода: пишем содержимое потока в файл:

Сообщение БудДен » 30.01.22 23:37

#примерКода

Код: Выделить всё


модуль ТакойТо;
использует 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;
кон ТакойТо. 


Ответить