Автор: Николай Камынин
Ниже приведена программа на QPILE,
которая пишет время сервера в текстовый файл и выводит в программируемую таблицу:
PORTFOLIO_EX NK_server_time;
DESCRIPTION Время сервера НИКОЛАЙ КАМЫНИН (kamnik@mail.ru) 10.09.2011;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST ALL_FIRMID;
PROGRAM
DELETE_ALL_ITEMS()
SERVERTIME=GET_INFO_PARAM («SERVERTIME»)
file_name=»SERVERTIME.txt»
CLEAR_FILE (file_name)
WRITE (file_name,SERVERTIME)
outst=SET_VALUE(«»,»SERVERTIME»,SERVERTIME)
ADD_ITEM (1,outst)
END_PROGRAM
PARAMETER SERVERTIME;
PARAMETER_TITLE SERVERTIME;
PARAMETER_DESCRIPTION SERVERTIME;
PARAMETER_TYPE STRING(16);
END
END_PORTFOLIO_EX
Успехов