Tivoli Service Desk 6.0 Developer's Toolkit - Referência de Linguagem do Script
Retornar a Página Principal
Executa uma operação AND de bitwise em duas ou mais expressões de números inteiros e retorna ao resultado.
FUNCTION BitAnd (VAL bits: INTEGER ...): INTEGER;
Nome do Argumento | Descrição |
bits | Uma expressão de número inteiro |
IF BitAnd(winStyle, $WinTitle) <> 0 THEN -- O estilo de janela chamado para uma barra de título. ... END;
Retorna o inverso de bitwise do argumento.
FUNCTION BitNot (VAL bits: INTEGER): INTEGER;
Nome do Argumento | Descrição |
bits | Um número inteiro de valores em bits simples |
BitNot altera cada bit em seu argumento para o inverso binário: 0 torna-se 1 e 1 torna-se 0.
WinCreate($Desktop, myWindow, MyHandler, 10, 10, 80, 25, 'Example', BitAnd($WinDefaultStyle, BitNot ($WinSysMenu))); -- myWindow é criado com todos os estilos de janela -- padrão, exceto que não tenha nenhum menu de sistema.
Executa uma operação OR de bitwise em duas ou mais expressões de números inteiros e retorna ao resultado.
FUNCTION BitOr (VAL bits: INTEGER ...): INTEGER;
Nome do Argumento | Descrição |
bits | Uma expressão de número inteiro cujos bits devem ser combinados com aqueles em outras expressões, utilizando-se um operador OR. |
answer := WinMessageBox($Desktop, 'Error', BitOr($MBIconError, $MBAbortRetryIgnore, $MBDefButton2, $MBMoveable), 'Operation Failed');
Executa uma operação Or (XOR) de bitwise exclusivo nas expressões de número inteiro de entrada e retorna o resultado. Uma operação Or exclusiva retornará 1, se os operandos forem diferentes.
FUNCTION BitXOr (VAL bits: INTEGER ...): INTEGER;
Nome do Argumento | Descrição |
bits | Uma expressão de número inteiro cujos bits devem ser combinados com aqueles em outras expressões de número inteiro, utilizando-se um operador XOR. |
PROCEDURE EncryptText (REF text: LIST OF STRING, VAL mask: INTEGER) IS (* Criptografe o texto especificado através da execução da operação XOR da máscara sobre cada caractere. Enquanto não muito seguro, é simples e possui a vantagem que a descriptografia é acompanhada chamando o EncryptText novamente com a mesma máscara.*) VARIABLES i: INTEGER; ACTIONS FOR text DO FOR i := 1 TO StrLength(text[$CURRENT]) DO text[$CURRENT][i] := Char(BitXOr(CharCode(text[$CURRENT][i]), mask)); END; END; END;
Tivoli Service Desk 6.0 Developer's Toolkit - Referência de Linguagem do Script