Я могу как-то такое написать? type InteropModuleFactory<'InteropModule when 'InteropModule : (static

В итоге вышло так namespace SkillGro.Teams.Client.Interop.TeamsSDK open System.Threading.Tasks open Microsoft.JSInterop open IcedTasks open SkillGro.Teams.Client.Interop type MicrosoftTeams(``module``: IJSObjectReference) = member _.GetTeamsContextAsync() = ``module``.InvokeAsync<TeamsContext>("getContextAsync") member _.RegisterOnSaveHandlerAsync(settings: TeamsInstanceSettings) = ``module``.InvokeVoidAsync("registerOnSaveHandler", settings) member internal _.IsInTeams() = try ``module``.InvokeAsync<bool>("inTeams") with | :? JSException -> ValueTask.FromResult false member internal _.InitializeAsync() = ``module``.InvokeVoidAsync("initializeAsync") type MicrosoftTeamsFactory(jsRuntime: IJSRuntime) = inherit InteropModuleFactory<MicrosoftTeams voption>(jsRuntime) [<DefaultValue>] val mutable interopModule: MicrosoftTeams voption member factory.ImportModuleAsync() = let factory = factory :> IProtectedInteropModuleFactory task { let! _ = factory.ImportModuleAsync "https://unpkg.com/@microsoft/teams-js@2.17.0/dist/MicrosoftTeams.min.js" return! factory.ImportModuleAsync "./_content/SkillGro.Teams.Interop.Client/js/TeamsJsBlazorInterop.js" } override factory.GetOrCreateAsync() = valueTask { if factory.interopModule = Unchecked.defaultof<_> then let! ``module`` = factory.ImportModuleAsync() let teamsInterop = MicrosoftTeams ``module`` let! isInTeams = teamsInterop.IsInTeams() if isInTeams then factory.interopModule <- ValueSome teamsInterop do! teamsInterop.InitializeAsync() return ValueSome teamsInterop else return ValueNone else return factory.interopModule }

0

5 месяцев назад

/home/slavonchick> sudo · Accepted Answer

/home/slavonchick> sudo

Мб через новые static abstract методы получится

0

5 месяцев назад

169 похожих чатов

Я могу как-то такое написать? type InteropModuleFactory<'InteropModule when 'InteropModule : (static

5 ответов

Похожие вопросы