xsharp.eu

Code: Select all

[DllImportAttribute("ace64.dll", CharSet := CharSet.Ansi)]
PUBLIC STATIC METHOD AdsMgGetOpenTables(hMgmtHandle AS IntPtr, pucUserName AS STRING, usConnNumber AS WORD, astOpenTableInfo OUT ADS_MGMT_TABLE_INFO, pusArrayLen OUT WORD, pusStructSize REF WORD) AS DWORD

[DllImportAttribute("ace64.dll", CharSet := CharSet.Ansi)]
PUBLIC STATIC METHOD AdsMgGetUserNames( hMgmtHandle AS IntPtr, pucFileName AS STRING, astUserInfo OUT ADS_MGMT_USER_INFO, pusArrayLen OUT WORD, pusStructSize OUT WORD ) AS DWORD

Code: Select all

_DLL FUNC AdsMgGetOpenTables( hMgmtHandle AS IntPtr, pucUserName AS STRING, usConnNumber AS DWORD, astOpenTableInfo OUT ADS_MGMT_TABLE_INFO, pusArrayLen OUT DWORD, pusStructSize REF DWORD ) AS DWORD PASCAL:ACE64.AdsMgGetOpenTables

_DLL FUNC AdsMgGetUserNames( hMgmtHandle AS IntPtr, pucFileName AS PSZ, astUserInfo OUT 
ADS_MGMT_USER_INFO, pusArrayLen OUT DWORD, pusStructSize OUT DWORD ) AS DWORD PASCAL:ACE32.AdsMgGetUserNames

Code: Select all

IIF(temptable:OK,+temptable:somevalue,"")

Code: Select all

AdsMgGetUserNames( hMgmtHandle AS DWORD, pucFileName AS PSZ, astUserInfo REF ADS_MGMT_USER_INFO, pusArrayLen REF WORD, pusStructSize REF WORD ) AS DWORD PASCAL:ACE32.AdsMgGetUserNames

FUNC AdsMgGetOpenTables( hMgmtHandle AS DWORD, pucUserName AS PSZ, usConnNumber AS WORD, astOpenTableInfo REF ADS_MGMT_TABLE_INFO, pusArrayLen REF WORD, pusStructSize REF WORD ) AS DWORD PASCAL:ACE32.AdsMgGetOpenTables

Code: Select all

METHOD GetOpenTablesList() AS VOID PASCAL CLASS RemoteDbServerMonitor_Win
	LOCAL hMgmtHandle AS DWORD
	LOCAL ulRetVal AS DWORD
	LOCAL usStructSizeTable,  usStructSizeUsers AS DWORD
	LOCAL usArrayLenTable, usArrayLenUsers AS DWORD
	LOCAL pbufferTable AS ADS_MGMT_TABLE_INFO
	LOCAL pbufferUsers AS ADS_MGMT_USER_INFO
	LOCAL tableName AS STRING
	LOCAL i, j AS DWORD
	LOCAL pos AS DWORD 
	LOCAL userName AS STRING  
	
	BEGIN SEQUENCE
	
	tableArrayList := {}
	userArrayList := {}
	
	tableCount := 0
	userCount := 0
	
	//ulRetVal := AdsMgConnect( String2Psz(GetIni():ServerPath), String2Psz("administrator"), String2Psz("ZM10lapq67101"), @hMgmtHandle ) 
	ulRetVal := AdsMgConnect( String2Psz(GetIni():ServerPath), NULL_PSZ, NULL_PSZ, @hMgmtHandle ) 
 
	// If there was an error then show it and exit
	IF ulRetVal <> AE_SUCCESS
		WarnBox(SELF, "Could not connect to server." +CRLF2 +"Server connection error!!!") 
		BREAK
	ENDIF 

	usArrayLenTable := 250 
	usStructSizeTable := _SIZEOF( ADS_MGMT_TABLE_INFO )   
	pbufferTable := MemAlloc( usArrayLenTable * usStructSizeTable ) 
	
	ulRetVal := AdsMgGetOpenTables( hMgmtHandle, NULL, 0, pbufferTable, @usArrayLenTable, @usStructSizeTable)
	
	IF ulRetVal <> AE_SUCCESS
		WarnBox(SELF, "Could not determined number of tables currently open at the server located at: " +GetIni():ServerPath +CRLF2 +"Server access error!!!") 
		BREAK
	END
	
	FOR j:= 1 UPTO usArrayLenTable
		//? @pbufferTable.aucTableName
		//? pbufferTable.aucTableName
		t[b]ableName := Psz2String(@pbufferTable.aucTableName)[/b]
		pos := AScan(requiredTables,{|x| Upper(x) == Upper(FileBase(tableName)) } )
		IF pos > 0
			BEGIN SEQUENCE
				
				usArrayLenUsers := 250
				usStructSizeUsers := _SIZEOF(ADS_MGMT_USER_INFO)
				pbufferUsers := MemAlloc(usArrayLenUsers * usStructSizeUsers)
			
				ulRetVal := AdsMgGetUserNames( hMgmtHandle, @pbufferTable.aucTableName, pbufferUsers, @usArrayLenUsers, @usStructSizeUsers)
				
				IF ulRetVal <> AE_SUCCESS
					WarnBox(SELF, "Could not determined number of users on table: " +tableName +CRLF2 +"Table access error!!!") 
					BREAK
				ENDIF		
				
				FOR i := 1 UPTO usArrayLenUsers
					userName := Psz2String(@pbufferUsers.aucUserName)
					IF AScan(userArrayList,userName) == 0
						AAdd(userArrayList,userName)  
						userCount += 1
					ENDIF   
					AAdd(tableArrayList,{FileBase(tableName),; //table filename without extension
												FilePath(tableName),; //full path
										 		userName,; //user name
										 		pbufferUsers.usConnNumber,;
										 		Psz2String(@pbufferUsers.aucAuthUserName),; //auth user name
										 		Psz2String(@pbufferUsers.aucAddress)} ) //address
					tableCount += 1
					pbufferUsers++					
				NEXT 
				
			END SEQUENCE
			
			IF pbufferUsers != NULL_PTR	
				MemFree(pbufferUsers)
			ENDIF
			
		ENDIF
		
		pbufferTable++
	
	
	NEXT
	
	//get server date & time	
	SELF:GetServerTime()
	//
	
		
	END SEQUENCE   

	IF pbufferTable != NULL_PTR	
		MemFree(pbufferTable)
	ENDIF        
	
	IF pbufferUsers != NULL_PTR	
		MemFree(pbufferUsers)
	ENDIF        
		
	AdsMgDisconnect( hMgmtHandle )
	
	RETURN