Store Procedure pegar o IP do computador. (GetIP)

rdb$get_context(´SYSTEM´, ´CLIENT_ADDRESS´);

Providesread-onlyaccesstothefollowingvariables: •CLIENT_ADDRESS::Thewireprotocoladdressoftheremoteclient,representedasastring.The valueisanIPaddressinform´xxx.xxx.xxx.xxx´forTCPv4protocol;thelocalprocessIDfor XNETprotocol;andNULLforanyotherprotocol. •DB_NAME::Canonicalnameofthecurrentdatabase.Itiseitherthealiasname(ifconnectionvia filenamesisdisallowedDatabaseAccess=NONE)or,otherwise,thefullyexpandeddatabasefile name. •ISOLATION_LEVEL::Theisolationlevelofthecurrenttransaction.Thereturnedvaluewillbe oneof´READCOMMITTED´,´SNAPSHOT´,´CONSISTENCY´. •TRANSACTION_ID::ThenumericIDofthecurrenttransaction.Thereturnedvalueisthesame aswouldbereturnedbytheCURRENT_TRANSACTIONpseudo-variable. SESSION_ID::ThenumericIDofthecurrentsession.Thereturnedvalueisthesameaswouldbe returnedbytheCURRENT_CONNECTIONpseudo-variable. •CURRENT_USER::Thecurrentuser.Thereturnedvalueisthesameaswouldbereturnedbythe CURRENT_USERpseudo-variableorthepredefinedvariableUSER. •CURRENT_ROLE::Currentrolefortheconnection.ReturnsthesamevalueastheCUR- RENT_ROLEpseudo-variable.