Отправлено: 30.10.06 18:14. Заголовок: Как определить - терминалка или консоль

Похоже, глюки в Винсервер 2003

Сначала на самом верваке переменная окружения SESSIONNAME=Console
После подключения по RDP в терминальной сессии SESSIONNAME=RPD-Tcp#58, CLIENTNAME=клиент

После этого в новых сессиях ДОС на самом серваке переменные окружения становятся такими же, как в терминальной сессии. То есть SESSIONNAME=Console меняется на SESSIONNAME=RPD-Tcp#58

Печально.

1) может быть это как-то лечится?
2) как определить - работает прога на самой консоли или в терминальном режиме?

 Отправлено: 01.09.13 20:50. Заголовок: Подниму старую тему...

Дабы не плодить новые, подниму старую тему.
Нужно различить прогу, работающую в консольном режиме от программы, работающей на сервере через терминал. раньше проблем не было, определял так:

Скрытый текст

FUNC IsTerminal() STATIC term_result := NIL LOCAL sx,i,cnt,cx IF (term_result == NIL) // пока не определен ? sx := UPPER(ENVPARAM()) cnt := NUMTOKEN(sx,CRLF) term_result := FALSE // заранее - пессимистично FOR i:=1 TO cnt cx:=TOKEN(sx,CRLF,i) IF ("SESSIONNAME" $ cx) IF ("RDP" $ cx) .AND. ("#" $ cx) term_result:=TRUE ENDI EXIT ENDI NEXT i ENDI RETURN term_result

Сейчас появилось несколько машин, которые работают с сервером по сети, но доступ к ним осуществляется через RDP, соотв. этот метод не работает - мой IsTermial() возвращает TRUE.

 Отправлено: 01.09.13 22:17. Заголовок: может проще не программно, а организационно

Программу из разных конфигураций можно запускать
разными батниками с разными ключами или разными set-установками

====bat1.cmd===
set conf=1
exam.exe

====bat2.cmd===
set conf=2
exam.exe

или

====bat1.cmd===
exam.exe conf1

====bat2.cmd===
exam.exe conf2

 Отправлено: 02.09.13 01:40. Заголовок: petr707 пишет: Прог..

petr707 пишет:

цитата:

Программу из разных конфигураций можно запускать разными батниками с разными ключами или разными set-установками

Это логично и скорее всего будет использовано на крайний случай. Но ведь конечно хочется определения "на автомате".
Как вариант - было-бы достаточно определить локальный или "сетевой" любой файл из базы данных. Или буква диска пути к ней...

В Harbour нет ничего подобного?

 Отправлено: 02.09.13 06:56. Заголовок: смотреть окружение

все равно лучше управлять ситуацией, чем зависеть от того что вернет set>set.txt
можно самому создать и потом проверить достуность ресурса, который доступен только в консоли,
например C:\console\blabla.bla
И клиент терминальный может быть в принципе не Windows,
SESSIONNAME будет присутствовать, а остальное - не гарантируется

 Отправлено: 02.09.13 15:31. Заголовок: Согласен, что лучше ..

Согласен, что лучше управлять ситуацией, но наличие к-л ресурса нужно искусственно выдумывать, не забывать прописывать и тп.
А это - лишние телодвижения, о которых можно через какое-то время и забыть.

Вот это: http://msdn.microsoft.com/en-us/library/windows/desktop/aa364939(v=vs.85).aspx

реально прикрутить к Harbor ?

 Отправлено: 02.09.13 15:39. Заголовок: GetDriveType ?

Речь идет об этой теме ?
http://clipper.borda.ru/?1-4-0-00000666-000-10001-0-1370002542

поиск на сайте работает

 Отправлено: 03.09.13 00:44. Заголовок: Видимо, "мой кун..

Видимо, "мой кунфу недостаточно хорош", при компиляции скопированного примера выдается куча сишных ошибок, с которыми я не знаю, чего делать:

Скрытый текст

drive_type.prg: In function 'HB_FUN_GETVOLUMEINFORMATION': drive_type.prg:69:1: warning: implicit declaration of function 'ISNIL' [-Wimplicit-function-declaration] drive_type.prg:79:1: warning: implicit declaration of function 'ISBYREF' [-Wimplicit-function-declaration] C:/Temp/hbmk_zqnq1u.dir/drive_type.o:drive_type.c:(.text+0x2a): undefined reference to `ISNIL' C:/Temp/hbmk_zqnq1u.dir/drive_type.o:drive_type.c:(.text+0xa8): undefined reference to `ISBYREF' C:/Temp/hbmk_zqnq1u.dir/drive_type.o:drive_type.c:(.text+0xbc): undefined reference to `ISBYREF' C:/Temp/hbmk_zqnq1u.dir/drive_type.o:drive_type.c:(.text+0xd0): undefined reference to `ISBYREF' C:/Temp/hbmk_zqnq1u.dir/drive_type.o:drive_type.c:(.text+0xe0): undefined reference to `ISBYREF' C:/Temp/hbmk_zqnq1u.dir/drive_type.o:drive_type.c:(.text+0xf0): undefined reference to `ISBYREF' collect2: ld returned 1 exit status hbmk2: Error: Running linker. 1

Нашел поиском по форуму "недокументированную" в Harbour функцию DriveType() - но линкер выдает сообщение об ошибке, что HB_FUNC_DRIVETYPE не найдена...

 Отправлено: 03.09.13 06:27. Заголовок: Попробуйте это

Попробуйте это

Скрытый текст

#define CRLF chr(13)+chr(10) Proc main() ? cdisks() inkey(0) return nil Function get_diskInf(cPath , cVolName, nSerNum, cDiskSerial) Local ret:=.f. Local nMaxName Local nFlags Local cFATName cVolName :="" cDiskSerial :="" If GetVolumeInformation( cPath , @cVolName, @nSerNum , @nMaxName , @nFlags , @cFATName ) cDiskSerial := I2Hex( nSerNum / 65536 ) + "-" + I2Hex( nSerNum ) ret:=.t. EndIf return ret Function cdisks() Local ss:="",aDrives:={} aDrives:= getdrives() ss:="" aeval(adrives,{|x| ss:=ss+" "+x[2]+" "+PADR(x[3],20)+" "+PADR(x[4],9)+" "+x[5]+" "+x[7]+CRLF}) return ss Function GetDrives() local n, cDrv, nDrv, cVolume := "", aDrive := {} Local nSerNum ,cDiskSerial :="" ,cTyp:="",ret:=.f.,cHex:="",nSize:=0,cSize:="" #define DRIVE_UNKNOWN 0 #define DRIVE_NO_ROOT_DIR 1 #define DRIVE_REMOVABLE 2 #define DRIVE_FIXED 3 #define DRIVE_REMOTE 4 #define DRIVE_CDROM 5 #define DRIVE_RAMDISK 6 for n := 1 To 26 cDrv := Chr( 64 + n ) nDrv := GetDriveType( cDrv + ":\" + Chr(0) ) cTyp:=space(9) nSize:=0 cSize:="" if nDrv > 1 DO case case ndrv=2 cTyp :="REMOVABLE" case ndrv=3 cTyp :="FIXED " case ndrv=4 cTyp :="REMOTE " case ndrv=5 cTyp :="CDROM " case ndrv=6 cTyp :="RANDISK " otherwise cTyp :="UNKNOWN " endcase cDiskSerial :="" nSize:=0 cSize:="" if nDrv == 2 .and. Upper(cDrv) == "A" cVolume := [3 1/2"] cDiskSerial :="" ret:=.t. else cVolume := "" cDiskSerial :="" nSerNum :=NIL ret :=GetVolumeInformation( cDrv + ":\", @cVolume , @nSerNum) if ret cDiskSerial := I2Hex( nSerNum / 65536 ) + "-" + I2Hex( nSerNum ) BEGIN SEQUENCE nSize := HB_DISKSPACE(cDrv+ ":\", 3)//HB_DISK_TOTAL) if nSize#0 cSize := str(nSize/1048576,16,2)+" Mb" endif RECOVER nSize:=0 END SEQUENCE endif endif Aadd( aDrive, { if(n = 1, 1, nDrv), cDrv, IF(Empty(cVolume), "none", cVolume) ,cDiskSerial ,cTyp ,nSize,cSize} ) endif next Return aDrive #pragma BEGINDUMP #include <windows.h> #include "hbapi.h" #include "hbapiitm.h" #ifndef __XHARBOUR__ #define ISBYREF( n ) HB_ISBYREF( n ) #define ISNIL( n ) HB_ISNIL( n ) #endif static char * u2Hex( WORD wWord ) { static far char szHex[ 5 ]; WORD i= 3; do { szHex[ i ] = 48 + ( wWord & 0x000F ); if( szHex[ i ] > 57 ) szHex[ i ] += 7; wWord >>= 4; } while( i-- > 0 ); szHex[ 4 ] = 0; return szHex; } HB_FUNC( I2HEX ) { hb_retc( u2Hex( hb_parni( 1 ) ) ); } /* Returns one of these: #define DRIVE_UNKNOWN 0 #define DRIVE_NO_ROOT_DIR 1 #define DRIVE_REMOVABLE 2 #define DRIVE_FIXED 3 #define DRIVE_REMOTE 4 #define DRIVE_CDROM 5 #define DRIVE_RAMDISK 6 */ HB_FUNC( GETDRIVETYPE ) { hb_retni( GetDriveType( (LPCSTR) hb_parc( 1 ) ) ) ; } HB_FUNC( GETVOLUMEINFORMATION ) { char *VolumeNameBuffer = (char *) hb_xgrab( MAX_PATH ) ; DWORD VolumeSerialNumber ; DWORD MaximumComponentLength ; DWORD FileSystemFlags ; char *FileSystemNameBuffer = (char *) hb_xgrab( MAX_PATH ) ; BOOL bRet; bRet = GetVolumeInformation( ISNIL(1) ? NULL : (LPCTSTR) hb_parc(1) , (LPTSTR) VolumeNameBuffer , MAX_PATH , &VolumeSerialNumber , &MaximumComponentLength , &FileSystemFlags , (LPTSTR)FileSystemNameBuffer , MAX_PATH ) ; if ( bRet ) { if ( ISBYREF( 2 ) ) hb_storc ((char *) VolumeNameBuffer, 2 ) ; if ( ISBYREF( 3 ) ) hb_stornl( (LONG) VolumeSerialNumber, 3 ) ; if ( ISBYREF( 4 ) ) hb_stornl( (LONG) MaximumComponentLength, 4 ) ; if ( ISBYREF( 5 ) ) hb_stornl( (LONG) FileSystemFlags, 5 ); if ( ISBYREF( 6 ) ) hb_storc ((char *) FileSystemNameBuffer, 6 ); } hb_retl(bRet); hb_xfree( VolumeNameBuffer ); hb_xfree( FileSystemNameBuffer ); } #pragma ENDDUMP

 Отправлено: 03.09.13 21:39. Заголовок: petr707 пишет: Попр..

petr707 пишет:

цитата:

Попробуйте это

Спасибо, скомпилилось, буду разбираться.

 Отправлено: 03.09.13 22:04. Заголовок: Перенес тему..

Перенес тему

 Отправлено: 04.09.13 06:35. Заголовок: Может это поможет

цитата:

Печально. 1) может быть это как-то лечится? 2) как определить - работает прога на самой консоли или в терминальном режиме?

Может это поможет:

В "Harbour" есть функция: win_OsIsTSClient() // Библиотека "hbwin.lib"

Возвращает .T. или .F.

Или по другому: wapi_GetSystemMetrics(WIN_SM_REMOTESESSION)

Эта возвращает == 0 для консоли и != 0 для терминала

Например:

Скрытый текст

/* Собирать с "hbwin.lib" */ #include "hbwin.ch" FUNCTION Main() ? "Session : " + IF(win_OsIsTSClient(), "Terminal", "Console") ? "Session : " + IF(wapi_GetSystemMetrics(WIN_SM_REMOTESESSION) != 0, "Terminal", "Console") RETURN NIL

Проверил при подключении ч/з RDP на
XP Pro SP3, Win Server 2003 R2, Win Server 2008 R2 - все отлично работает.
Т.е. один и тот-же экзешник запускал одновременно в терминальной сессии ч/з RDP
и его же на подключенном сетевом диске на сервере. Коды возврата верные.

В обеих функциях используется WIN API ф-ция: [url=http://msdn.microsoft.com/en-us/library/windows/desktop/ms724385(v=vs.85).aspx]GetSystemMetrics[/url]

Правда, там есть оговорка насчет Win Server 2003 и XP:
"Windows Сервер 2003 и Windows XP: консольный сеанс не является обязательно физической консолью.
Более подробно, смотри WTSGetActiveConsoleSessionId."

Но с этим нужно более подробно разбираться.