TimeAndDate в СПК

[Евгений Кислов]

Так не получится. Можно сделать в визуализации кнопку "Размонтировать" и по ее нажатию отправлять в терминал команду. После этого крайне желательно проверить, что флешка действительно размонтировалась и вывести на экран соответствующее сообщение. И только после этого можно будет извлечь флэшку.

Готовый функционал для этого будет добавлен в будущие версии таргет-файлов.

[Пьер]

Так не получится. Можно сделать в визуализации кнопку "Размонтировать" и по ее нажатию отправлять в терминал команду. После этого крайне желательно проверить, что флешка действительно размонтировалась и вывести на экран соответствующее сообщение. И только после этого можно будет извлечь флэшку.

Готовый функционал для этого будет добавлен в будущие версии таргет-файлов.

Код:

IF r1>100 THEN r1:=0;	
END_IF
r1_str:=REAL_TO_STRING(r1);
r1_str:=Concat(r1_str,';');
sFileTestString:=r1_str;

IF NOT xFileStdInit THEN
	filop(xExecute:=FALSE);
	filcl(xExecute:=FALSE);
	filwr(xExecute:=FALSE);
	filrd(xExecute:=FALSE);
	xFileStdInit:=TRUE;
	uiFileStdState:=0;
ELSE
	CASE uiFileStdState OF
		0: (* create a new file *)
			filop.sFileName:=sFileName;
			filop.eFileMode:=i1;
			filop.xExclusive:=TRUE;
			filop(xExecute:=TRUE);
			IF filop.xDone THEN
				hFile:=filop.hFile;
				uiFileStdState:=1;
			END_IF
			IF filop.xError THEN
			(* error handling*)
			;
			END_IF
		1:(* write text in the file *)
			filwr.hFile:=hFile;
			filwr.pBuffer:=ADR(sFileTestString);
			szFileSize1:=SIZEOF(sFileTestString);
			filwr.szSize:=szFileSize1;
			filwr.udiTimeOut:=100000; (* 100ms Timeout *)
			filwr( xExecute:=TRUE);
			IF filwr.xDone THEN
				uiFileStdState:=2;
			END_IF
			IF filwr.xError THEN
			(* error handling*);
			END_IF
		2:(* read file - TestFile.txt*)
			filrd.hFile:=hFile;
			filrd.udiTimeOut:=100000;  (* 100ms Timeout *)
			filrd.pBuffer:=ADR(sFileString);
			filrd.szBuffer:=255;
			filrd( xExecute:=TRUE);
			IF filrd.xDone THEN
				szFileSize2:=filrd.szSize;
				IF szFileSize2 = szFileSize1 THEN
					uiFileStdState:=3;
				ELSE
				(* error handling*)
				;
				END_IF
			END_IF
			IF filrd.xError THEN
			(* error handling*)
			;
			END_IF
		3:             (* close file  - TestFile.txt *)
			filcl.hFile:=hFile;
			filcl( xExecute:=TRUE);
			IF filcl.xDone THEN
				uiFileStdState:=4;
			END_IF
			IF filcl.xError THEN
				(* error handling*)
				;
			END_IF
		4:  (* end of example *)
			;
		END_CASE
END_IF

blinker1(ENABLE:=b1 , TIMELOW:=T#1S , TIMEHIGH:=T#1S , OUT=>xFileStdInit );
r1:=r1+0.01;

IF b2 THEN
	OutUSB(cmd:='umount/mnt/ufs/media/sda1' , output_string=> , complete=> );
END_IF

Размонтирование не получилось (OutUSB библиотека OutUSB:CmpSysExec.sysExecute2, ошибка осталась, при вторичной установке флешки записи нет.
Также не получается записывать файл в один столбец.
Записываю filop.eFileMode:=3 (MAPPD 3 Файл будет открыт в режиме записи, а записанные данные будут добавлены в конец файла.) тоже особо не получается, ставил разделитель $r$n, но записывает в столбец какие-то непонятные символы.
File.Read -> xError постоянной выдает ошибку при переключении filop.eFileMode и при вытаскивании флешки.

[capzap]

а как, допустим, я вытаскиваю флешку, СПК определяет, что флешка отсутствует и в этот момент посылает - "размонтировать".
Т.е. с помощью какого блока идет опрос флешки есть/нет?

смотреть надо как сконфигурирован fstab

[Евгений Кислов]

В команде ошибка, нет пробела после umount. Лучше тренироваться с включенным терминалом (putty и т.д.).

По поводу остального - вот пример от 3S (устанавливается через Менеджер пакетов).

[Пьер]

смотреть надо как сконфигурирован fstab

объясните пожалуйста, про что Вы это говорите?

[Пьер]

В команде ошибка, нет пробела после umount. Лучше тренироваться с включенным терминалом (putty и т.д.).

По поводу остального - вот пример от 3S (устанавливается через Менеджер пакетов).

Установил. А примера не могу найти

Темный лес для меня, написать свой архиватор, но это нужно сделать.

[Евгений Кислов]

При установке указывается путь, по которому распаковывается файл проекта.