mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 09:26:52 +01:00
14 lines
455 B
AL
14 lines
455 B
AL
codeunit 50208 "Sec Sample IsolatedStorage Good"
|
|
{
|
|
internal procedure StoreApiKey(NewKey: SecretText)
|
|
begin
|
|
IsolatedStorage.SetEncrypted('ApiKey', NewKey, DataScope::Module);
|
|
end;
|
|
|
|
local procedure TryGetApiKey(var ApiKey: SecretText): Boolean
|
|
begin
|
|
if IsolatedStorage.Contains('ApiKey', DataScope::Module) then
|
|
exit(IsolatedStorage.Get('ApiKey', DataScope::Module, ApiKey));
|
|
exit(false);
|
|
end;
|
|
}
|