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