diff --git a/windows/src/developer/TIKE/http/Keyman.Developer.System.HttpServer.Debugger.pas b/windows/src/developer/TIKE/http/Keyman.Developer.System.HttpServer.Debugger.pas index 525d8f11a6..4ce93e1483 100644 --- a/windows/src/developer/TIKE/http/Keyman.Developer.System.HttpServer.Debugger.pas +++ b/windows/src/developer/TIKE/http/Keyman.Developer.System.HttpServer.Debugger.pas @@ -101,7 +101,8 @@ uses JsonUtil, KeymanDeveloperOptions, - RedistFiles; + RedistFiles, + Upload_Settings; const TestFontName: array[TKeyboardFont] of string = ( // I4409 @@ -323,15 +324,17 @@ procedure TDebuggerHttpResponder.ProcessRequest(AContext: TIdContext; jsonArray: TJSONArray; jsonPackage: TJSONObject; key: string; + jsonUrls: TJSONObject; begin // Get dynamic keyboard registration FPackagesCS.Enter; // I4036 try json := TJSONObject.Create; - jsonArray := TJSONArray.Create; try try + jsonArray := TJSONArray.Create; + for key in FPackages.Keys do begin jsonPackage := TJSONObject.Create; @@ -343,6 +346,11 @@ procedure TDebuggerHttpResponder.ProcessRequest(AContext: TIdContext; json.AddPair('packages', jsonArray); + jsonUrls := TJSONObject.Create; + jsonUrls.AddPair('installLinkAndroid', MakeKeymanURL(URLPath_KeymanDeveloper_KeymanForAndroidDownload)); + jsonUrls.AddPair('installLinkIos', MakeKeymanURL(URLPath_KeymanDeveloper_KeymanForIosDownload)); + json.AddPair('urls', jsonUrls); + AResponseInfo.CharSet := 'UTF-8'; AResponseInfo.ContentType := 'application/json'; AResponseInfo.ContentText := JSONToString(json, True); diff --git a/windows/src/developer/TIKE/xml/kmw/packages.html b/windows/src/developer/TIKE/xml/kmw/packages.html index 5ffb48ab78..b5eec92176 100644 --- a/windows/src/developer/TIKE/xml/kmw/packages.html +++ b/windows/src/developer/TIKE/xml/kmw/packages.html @@ -32,8 +32,10 @@