Microsoft-Store: Endlos-Schleife in TWindowsStoreCore.GetAppProducts

[philipp.hofmann]

Ich weiß mittlerweile, dass sich meine App in dem Aufruf "Await(lAddOns, FApplicationProcessMessages);" aufhängt:

Delphi-Quellcode:

function TWindowsStoreCore.GetAppProducts: TAppProducts;
var
  LProducts: IMapView_2__HSTRING__IStoreProduct;
  LProductsIterable: IIterable_1__IKeyValuePair_2__HSTRING__IStoreProduct;
  LProductsIterator: IIterator_1__IKeyValuePair_2__HSTRING__IStoreProduct;
  LFilterList: IIterable_1__HSTRING;
  lAddOns: IAsyncOperation_1__IStoreProductQueryResult;
begin
  if Assigned(FAppProducts) then
  begin
    Exit(FAppProducts);
  end;

  LFilterList := GetProductsFilter(AllProductsKinds);

  { Gets Microsoft Store listing info for the products that can be purchased from within the current app. }
  lAddOns := FStoreContext.GetAssociatedStoreProductsAsync(LFilterList);
  Await(lAddOns, FApplicationProcessMessages);
  if lAddOns.GetResults.ExtendedError = IAP_E_UNEXPECTED then
    raise Exception.Create(Str_IAP_E_UNEXPECTED);

Interessanterweise scheint es manchmal bei den Kunden durchzugehen, aber immer erst nach mehreren Versuchen.
Ich habe mal einen Support-Fall angelegt, wenn jemand eine Idee hat, gerne her damit.

Grüße, Philipp