FoxClub Forums > Visual Foxpro, Foxpro for DOS > Чтение параметров ОС ::

• Войти

Чтение параметров ОС
Vedmak Сообщений: 5748 Откуда: CiTY Дата регистрации: 30.10.2003	Vedmak 23.02.23 21:58:02 Как работает GETENV()? Имеет ли смысл однократно себе параметр забирать в приложение при запуске или функция достаточно быстра и "экономить на спичках" смысла нет? Например: function os_user_name return GETENV("UserName") endfunc ------------------ Говорить стоит лишь для тех, кто слушает.

Vedmak

Сообщений: 5748
Откуда: CiTY
Дата регистрации: 30.10.2003

Vedmak

23.02.23 21:58:02

Как работает GETENV()? Имеет ли смысл однократно себе параметр забирать в приложение при запуске или функция достаточно быстра и "экономить на спичках" смысла нет?

Например:


function os_user_name
    return GETENV("UserName") 
endfunc

------------------
Говорить стоит лишь для тех, кто слушает.

Re: Чтение параметров ОС
sphinx Сообщений: 30457 Откуда: Каменск-Уральски Дата регистрации: 22.11.2006	sphinx 24.02.23 18:46:32 Альтернативой может быть использование WinAPI SetEnvironmentVariable. Но это тот случай, когда да, попытка экономить на спичках. ------------------ "Veni, vidi, vici!"(с)

Re: Чтение параметров ОС
of63 Сообщений: 24232 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 24.02.23 22:43:05 Функция копеечная по времени выполнения. Взял бы, да проверил )

Re: Чтение параметров ОС
_vit Сообщений: 5116 Дата регистрации: 29.07.2002	_vit 25.02.23 02:09:03 Померяй насколько быстрая у тебя. У меня 10-13 мкс Clear Declare Integer QueryPerformanceFrequency In kernel32 String @lpFrequency Declare Integer QueryPerformanceCounter In kernel32 String @lpPerformanceCount Local lcUserName Local lcT0Buffer, lcT1Buffer, lnTicksPerSecond, lnTickCount0, lnElapsedTickCount lcT0Buffer = Space(8) lcT1Buffer = lcT0Buffer = QueryPerformanceFrequency(@lcT0Buffer) lnTicksPerSecond = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32 = QueryPerformanceCounter(@lcT0Buffer) && Start time measuring lcUserName = Getenv("UserName") = QueryPerformanceCounter(@lcT1Buffer) && Stop time measuring lnTickCount0 = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32 lnElapsedTickCount = (buf2num(Substr(lcT1Buffer, 1,4)) + buf2num(Substr(lcT1Buffer, 5,4)) * 2^32) - lnTickCount0 ? "Execution time:", lnElapsedTickCount / lnTicksPerSecond * 1000000, "uS" ********************** Function buf2num(tcBuffer) ********************** Return Asc(Substr(tcBuffer, 1,1)) + ; ASC(Substr(tcBuffer, 2,1)) * 2^8 + ; ASC(Substr(tcBuffer, 3,1)) * 2^16 + ; ASC(Substr(tcBuffer, 4,1)) * 2^24

Re: Чтение параметров ОС

_vit

Сообщений: 5116
Дата регистрации: 29.07.2002

_vit

25.02.23 02:09:03

Померяй насколько быстрая у тебя.

У меня 10-13 мкс


Clear

Declare Integer QueryPerformanceFrequency In kernel32 String @lpFrequency
Declare Integer QueryPerformanceCounter In kernel32 String @lpPerformanceCount

Local lcUserName

Local lcT0Buffer, lcT1Buffer, lnTicksPerSecond, lnTickCount0, lnElapsedTickCount
lcT0Buffer = Space(8)
lcT1Buffer = lcT0Buffer

= QueryPerformanceFrequency(@lcT0Buffer)
lnTicksPerSecond = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32

= QueryPerformanceCounter(@lcT0Buffer) && Start time measuring

lcUserName = Getenv("UserName")

= QueryPerformanceCounter(@lcT1Buffer) && Stop time measuring

lnTickCount0 = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32
lnElapsedTickCount = (buf2num(Substr(lcT1Buffer, 1,4)) + buf2num(Substr(lcT1Buffer, 5,4)) * 2^32) - lnTickCount0

? "Execution time:", lnElapsedTickCount / lnTicksPerSecond * 1000000, "uS"

************************
Function buf2num(tcBuffer)
************************
Return Asc(Substr(tcBuffer, 1,1)) + ;
    ASC(Substr(tcBuffer, 2,1)) * 2^8 + ;
    ASC(Substr(tcBuffer, 3,1)) * 2^16 + ;
    ASC(Substr(tcBuffer, 4,1)) * 2^24

Re: Чтение параметров ОС
sphinx Сообщений: 30457 Откуда: Каменск-Уральски Дата регистрации: 22.11.2006	sphinx 25.02.23 09:48:12 Вит, сравни с апи-функцией. У тебя все под рукой. ------------------ "Veni, vidi, vici!"(с)

Re: Чтение параметров ОС
_vit Сообщений: 5116 Дата регистрации: 29.07.2002	_vit 25.02.23 12:22:08 Поскольку вызов QueryPerformanceCounter тоже чего то стоит вычел это время из результатов. Надо сказать результаты меня удивили. [attachment 36501 Untitled.jpg] Повторный вызов GetEnvironmentVariable всегда занимает меньше времени что понятно а вот Getenv наоборот. Посмотрите может я где накосячил и не вижу. Clear Declare Integer QueryPerformanceFrequency In kernel32 String @lpFrequency Declare Integer QueryPerformanceCounter In kernel32 String @lpPerformanceCount Declare Integer GetEnvironmentVariable In kernel32 String lpName, String @lpBuffer, Integer nSize Local lcUserName, lcBuffer, lnResult Local lcT0Buffer, lcT1Buffer, lnTicksPerSecond, lnTickCount0, lnElapsedTickCount, lnTQueryPerformance lcT0Buffer = Space(8) lcT1Buffer = lcT0Buffer lcBuffer = Space(100) = QueryPerformanceFrequency(@lcT0Buffer) lnTicksPerSecond = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32 = QueryPerformanceCounter(@lcT0Buffer) && Start time measuring = QueryPerformanceCounter(@lcT1Buffer) && Stop time measuring lnTickCount0 = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32 lnElapsedTickCount = (buf2num(Substr(lcT1Buffer, 1,4)) + buf2num(Substr(lcT1Buffer, 5,4)) * 2^32) - lnTickCount0 lnTQueryPerformance = lnElapsedTickCount / lnTicksPerSecond * 1000000 ****First call of Getenv()********* = QueryPerformanceCounter(@lcT0Buffer) && Start time measuring lcUserName = Getenv("UserName") = QueryPerformanceCounter(@lcT1Buffer) && Stop time measuring lnTickCount0 = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32 lnElapsedTickCount = (buf2num(Substr(lcT1Buffer, 1,4)) + buf2num(Substr(lcT1Buffer, 5,4)) * 2^32) - lnTickCount0 ? "First call of Getenv() duration:", lnElapsedTickCount / lnTicksPerSecond * 1000000 - lnTQueryPerformance, "uS" ****Second call of Getenv()******** = QueryPerformanceCounter(@lcT0Buffer) && Start time measuring lcUserName = Getenv("UserName") = QueryPerformanceCounter(@lcT1Buffer) && Stop time measuring lnTickCount0 = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32 lnElapsedTickCount = (buf2num(Substr(lcT1Buffer, 1,4)) + buf2num(Substr(lcT1Buffer, 5,4)) * 2^32) - lnTickCount0 ? "Second call of Getenv():", lnElapsedTickCount / lnTicksPerSecond * 1000000 - lnTQueryPerformance, "uS" ****First call of GetEnvironmentVariable()******** = QueryPerformanceCounter(@lcT0Buffer) && Start time measuring = GetEnvironmentVariable("UserName", @lcBuffer, Len(lcBuffer)) = QueryPerformanceCounter(@lcT1Buffer) && Stop time measuring lnTickCount0 = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32 lnElapsedTickCount = (buf2num(Substr(lcT1Buffer, 1,4)) + buf2num(Substr(lcT1Buffer, 5,4)) * 2^32) - lnTickCount0 ? "First call of GetEnvironmentVariable():", lnElapsedTickCount / lnTicksPerSecond * 1000000 - lnTQueryPerformance, "uS" ****Second call of GetEnvironmentVariable()********* = QueryPerformanceCounter(@lcT0Buffer) && Start time measuring = GetEnvironmentVariable("UserName", @lcBuffer, Len(lcBuffer)) = QueryPerformanceCounter(@lcT1Buffer) && Stop time measuring lnTickCount0 = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32 lnElapsedTickCount = (buf2num(Substr(lcT1Buffer, 1,4)) + buf2num(Substr(lcT1Buffer, 5,4)) * 2^32) - lnTickCount0 ? "Second call of GetEnvironmentVariable():", lnElapsedTickCount / lnTicksPerSecond * 1000000 - lnTQueryPerformance, "uS" ********************** Function buf2num(tcBuffer) ********************** Return Asc(Substr(tcBuffer, 1,1)) + ; ASC(Substr(tcBuffer, 2,1)) * 2^8 + ; ASC(Substr(tcBuffer, 3,1)) * 2^16 + ; ASC(Substr(tcBuffer, 4,1)) * 2^24 Declare Integer GetEnvironmentVariable In kernel32 String lpName, String @lpBuffer, Integer nSize Local lcBuffer, lnResult lcBuffer = Space(1024) lnResult = GetEnvironmentVariable (lcVarToGet, @lcBuffer, Len(lcBuffer))

Re: Чтение параметров ОС

_vit

Сообщений: 5116
Дата регистрации: 29.07.2002

_vit

25.02.23 12:22:08

Поскольку вызов QueryPerformanceCounter тоже чего то стоит вычел это время из результатов.
Надо сказать результаты меня удивили.

[attachment 36501 Untitled.jpg]

Повторный вызов GetEnvironmentVariable всегда занимает меньше времени что понятно а вот Getenv наоборот.
Посмотрите может я где накосячил и не вижу.


Clear

Declare Integer QueryPerformanceFrequency In kernel32 String @lpFrequency
Declare Integer QueryPerformanceCounter In kernel32 String @lpPerformanceCount
Declare Integer GetEnvironmentVariable In kernel32 String lpName, String @lpBuffer, Integer nSize

Local lcUserName, lcBuffer, lnResult
Local lcT0Buffer, lcT1Buffer, lnTicksPerSecond, lnTickCount0, lnElapsedTickCount, lnTQueryPerformance
lcT0Buffer = Space(8)
lcT1Buffer = lcT0Buffer
lcBuffer = Space(100)

= QueryPerformanceFrequency(@lcT0Buffer)
lnTicksPerSecond = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32

= QueryPerformanceCounter(@lcT0Buffer) && Start time measuring
= QueryPerformanceCounter(@lcT1Buffer) && Stop time measuring

lnTickCount0 = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32
lnElapsedTickCount = (buf2num(Substr(lcT1Buffer, 1,4)) + buf2num(Substr(lcT1Buffer, 5,4)) * 2^32) - lnTickCount0

lnTQueryPerformance = lnElapsedTickCount / lnTicksPerSecond * 1000000

******First call of Getenv()***********
= QueryPerformanceCounter(@lcT0Buffer) && Start time measuring

lcUserName = Getenv("UserName")

= QueryPerformanceCounter(@lcT1Buffer) && Stop time measuring

lnTickCount0 = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32
lnElapsedTickCount = (buf2num(Substr(lcT1Buffer, 1,4)) + buf2num(Substr(lcT1Buffer, 5,4)) * 2^32) - lnTickCount0

? "First call of Getenv() duration:", lnElapsedTickCount / lnTicksPerSecond * 1000000 - lnTQueryPerformance, "uS"

******Second call of Getenv()**********
= QueryPerformanceCounter(@lcT0Buffer) && Start time measuring

lcUserName = Getenv("UserName")

= QueryPerformanceCounter(@lcT1Buffer) && Stop time measuring

lnTickCount0 = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32
lnElapsedTickCount = (buf2num(Substr(lcT1Buffer, 1,4)) + buf2num(Substr(lcT1Buffer, 5,4)) * 2^32) - lnTickCount0

? "Second call of Getenv():", lnElapsedTickCount / lnTicksPerSecond * 1000000 - lnTQueryPerformance, "uS"

******First call of GetEnvironmentVariable()**********
= QueryPerformanceCounter(@lcT0Buffer) && Start time measuring

= GetEnvironmentVariable("UserName", @lcBuffer, Len(lcBuffer))

= QueryPerformanceCounter(@lcT1Buffer) && Stop time measuring

lnTickCount0 = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32
lnElapsedTickCount = (buf2num(Substr(lcT1Buffer, 1,4)) + buf2num(Substr(lcT1Buffer, 5,4)) * 2^32) - lnTickCount0

? "First call of GetEnvironmentVariable():", lnElapsedTickCount / lnTicksPerSecond * 1000000 - lnTQueryPerformance, "uS"

******Second call of GetEnvironmentVariable()***********
= QueryPerformanceCounter(@lcT0Buffer) && Start time measuring

= GetEnvironmentVariable("UserName", @lcBuffer, Len(lcBuffer))

= QueryPerformanceCounter(@lcT1Buffer) && Stop time measuring

lnTickCount0 = buf2num(Substr(lcT0Buffer, 1,4)) + buf2num(Substr(lcT0Buffer, 5,4)) * 2^32
lnElapsedTickCount = (buf2num(Substr(lcT1Buffer, 1,4)) + buf2num(Substr(lcT1Buffer, 5,4)) * 2^32) - lnTickCount0

? "Second call of GetEnvironmentVariable():", lnElapsedTickCount / lnTicksPerSecond * 1000000 - lnTQueryPerformance, "uS"


************************
Function buf2num(tcBuffer)
************************
Return Asc(Substr(tcBuffer, 1,1)) + ;
    ASC(Substr(tcBuffer, 2,1)) * 2^8 + ;
    ASC(Substr(tcBuffer, 3,1)) * 2^16 + ;
    ASC(Substr(tcBuffer, 4,1)) * 2^24


Declare Integer GetEnvironmentVariable In kernel32 String lpName, String @lpBuffer, Integer nSize

Local lcBuffer, lnResult
lcBuffer = Space(1024)
lnResult = GetEnvironmentVariable (lcVarToGet, @lcBuffer, Len(lcBuffer))

Re: Чтение параметров ОС
sphinx Сообщений: 30457 Откуда: Каменск-Уральски Дата регистрации: 22.11.2006	sphinx 25.02.23 16:54:44 Я только в понедельник. Как правило, кто-то раньше протестит. ------------------ "Veni, vidi, vici!"(с)

Re: Чтение параметров ОС
sphinx Сообщений: 30457 Откуда: Каменск-Уральски Дата регистрации: 22.11.2006	sphinx 25.02.23 16:58:01 Я только сейчас допер... У меня тоже по всему проекту GETENV('TEMP') используется. А его можно один раз получить, при старте. От болван... ------------------ "Veni, vidi, vici!"(с)

Re: Чтение параметров ОС
of63 Сообщений: 24232 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 26.02.23 20:20:05 Рисуй свой "фреймерк", как все солидные фирмы, и прикладники типа нас! )

Re: Чтение параметров ОС
ABB Сообщений: 131 Откуда: Санкт-Петербург Дата регистрации: 21.10.2006	ABB 16.03.23 17:47:24 ChatGPT сообщил В коде есть переменная "lcVarToGet", которая не была объявлена и инициализирована. Ее значение используется в вызове функции GetEnvironmentVariable.

Re: Чтение параметров ОС
akvvohinc Сообщений: 3916 Откуда: Москва Дата регистрации: 11.11.2008	akvvohinc 17.03.23 01:12:14 ABB В коде есть переменная "lcVarToGet", которая не была объявлена и инициализирована. Ее значение используется в вызове функции GetEnvironmentVariable. Было бы более ценно, если бы он сообщил, что строки с 83-87 вообще не нужны, так как выполняться никогда не будут. Тогда бы и вопроса "Где переменная?" не возникло бы.

Re: Чтение параметров ОС

akvvohinc

Сообщений: 3916
Откуда: Москва
Дата регистрации: 11.11.2008

akvvohinc

17.03.23 01:12:14

ABB
В коде есть переменная "lcVarToGet", которая не была объявлена и инициализирована. Ее значение используется в вызове функции GetEnvironmentVariable.

Было бы более ценно, если бы он сообщил, что строки с 83-87 вообще не нужны, так как выполняться никогда не будут.
Тогда бы и вопроса "Где переменная?" не возникло бы.

Re: Чтение параметров ОС
ABB Сообщений: 131 Откуда: Санкт-Петербург Дата регистрации: 21.10.2006	ABB 17.03.23 09:10:38 Ну, он еще учиться Но никто выше не обратил на эти строки внимания И интересно, что никто не комментирует его решение для серийного номера USB.

Re: Чтение параметров ОС
Каратаев Автор Сообщений: 3914 Откуда: Алматы Дата регистрации: 04.12.2001	Каратаев 17.03.23 13:00:53 У меня в классе goApp вот так прописано LOCAL lcTmpDir, lcTmpDirPlus lcTmpDirPlus = "tmp"+SYS(2015) lcTmpDir = ADDBS(GETENV("TEMP")) + "Prod" * удаление папки (при закрытии программы иногда не удаляются) IF DIRECTORY(lcTmpDir) * очистка папки временных файлов _oFSO=CreateObject("Scripting.FileSystemObject") llForce = .T. TRY If _oFSO.FolderExists(lcTmpDir) loFolder=_oFSO.GetFolder(lcTmpDir) loFolder.Delete(llForce) Endif CATCH * если открыты какие-то файлы, то ничего не поделаем, удаление отложим до другого раза ENDTRY ENDIF RELEASE _oFSO IF !DIRECTORY(lcTmpDir) MKDIR (lcTmpDir) ENDIF lcTmpDir = ADDBS(lcTmpDir) + lcTmpDirPlus **************************************************** IF !DIRECTORY(lcTmpDir) MKDIR (lcTmpDir) ENDIF This.PathWork = ADDBS(lcTmpDir) При старте приложения единожды считывается и записывается в свойство класса приложения. В папке TEMP создаётся папка приложения (в данном случае у меня это папка Prod), в которой создаётся ещё одна для конкретной сессии приложения (для работы второго экземпляра приложения). Этот код написан очень давно и менять его не буду - ну совсем не до того сейчас, поэтому прошу не критиковать. Если кому-то пригодится, то уже сами оптимизируйте как хочется... ------------------ Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.

Re: Чтение параметров ОС

Каратаев
Автор

Сообщений: 3914
Откуда: Алматы
Дата регистрации: 04.12.2001

Каратаев

17.03.23 13:00:53

У меня в классе goApp вот так прописано


LOCAL lcTmpDir, lcTmpDirPlus
lcTmpDirPlus = "tmp"+SYS(2015)
lcTmpDir = ADDBS(GETENV("TEMP")) + "Prod"

* удаление папки (при закрытии программы иногда не удаляются) 
IF DIRECTORY(lcTmpDir) 
* очистка папки временных файлов
 _oFSO=CreateObject("Scripting.FileSystemObject")  
llForce = .T. 
    TRY 
        If _oFSO.FolderExists(lcTmpDir)
           loFolder=_oFSO.GetFolder(lcTmpDir)
           loFolder.Delete(llForce)
        Endif

    CATCH 
        * если открыты какие-то файлы, то ничего не поделаем, удаление отложим до другого раза    
    ENDTRY 
ENDIF
RELEASE _oFSO

IF !DIRECTORY(lcTmpDir)
    MKDIR (lcTmpDir)
ENDIF 
lcTmpDir = ADDBS(lcTmpDir) + lcTmpDirPlus
****************************************************
IF !DIRECTORY(lcTmpDir)
    MKDIR (lcTmpDir)
ENDIF 

This.PathWork = ADDBS(lcTmpDir)

При старте приложения единожды считывается и записывается в свойство класса приложения.
В папке TEMP создаётся папка приложения (в данном случае у меня это папка Prod), в которой создаётся ещё одна для конкретной сессии приложения (для работы второго экземпляра приложения).
Этот код написан очень давно и менять его не буду - ну совсем не до того сейчас, поэтому прошу не критиковать. Если кому-то пригодится, то уже сами оптимизируйте как хочется...

------------------
Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 4 (Гостей: 4)