Я думаю, что в некоторых тестах b = a%10;
и a = parseInt(a/10);
могут быть получены ошибки округления. Я предлагаю использовать другой подход с reduce
. Примерно так:
function isArmstrong(number){
const digits = number.toString().split(''); // get all the digits
const numberLength = digits.length; // get the length of the number
const sum = digits.reduce((accumulator, digit)=> parseInt(accumulator)+Math.pow(parseInt(digit), numberLength))
// use reduce to iterate and add every number to the numberLength power
return sum === number
}
Дэйв Ноттэдж написал Создание автономного веб-сервиса с Indy ( исходный код ).
В этой статье объясняется, как установить Indy в веб-службы Delphi 6 (SOAP) поддержка.
Согласно комментарию на странице, он работает с Delphi 2009 с некоторыми изменениями.
Изменить : Люди из Indy 10 и IdHTTPWebBrokerBridge с CBuilder 2009 опубликовали измененную версию. Например, IdHTTPWebBrokerBridge.pas принадлежит Йоханану ван дер Ньет.
RemObjects SDK для Delphi (RO / Delphi) .
Поддерживаются различные форматы сообщений предоставлены, в том числе и наши собственные эффективный двоичный формат BinMessage, как а также поддержка SOAP, XML-RPC и - новое - Кодировка JSON, если вы хотите сделать свои серверы доступными клиентам, не использующим RO, или напишите клиенты для доступа к веб-службам предоставлено другими.
Должна существовать возможность создания веб-службы с VCL для Интернета (ранее: Intraweb). У него есть возможность создать автономный исполняемый файл, содержащий как веб-сервер, так и веб-приложение
In D7 I used IdHTTPWebBrokerBridge (Indy 9). But i don't know if it is still available in D2009.
На веб-сайте доктора Боба есть серия статей по SOAP , в частности, есть руководство по разработке XML, SOAP и веб-сервисов RAD Studio 2007, но это 99 евро.
Раньше я использовал idRunner , который является расширением библиотеки indy и позволяет вам разрабатывать библиотеки DLL ISAPI, которые затем запускаются вашим приложением. Преимущество этого подхода заключается в том, что вы можете развернуть автономное приложение для запуска своей мыльной службы, которое может быть легко развернуто через IIS позднее.
Для отладки я настоятельно рекомендую idDebugger на той же странице. Это упрощает отладку приложений ISAPI.
Вот пошаговое решение «Автономные веб-службы Delphi 7 Indy / SOAP Server», которое, похоже, может быть полезно и для Delphi 2009:
http: // www .digicoast.com / delphi_soap_standalone.html
Обновление:
это решение использует IdHTTPWebBrokerBridge, его можно использовать в Delphi 2009 с небольшими изменениями.