Переход с Delphi 2007 на C#: решение проблемы округления и сохранения зашифрованных файлов

Delphi , Синтаксис , Дата и Время

При переносе приложений, написанных на Delphi, на платформу C#, часто возникают проблемы, связанные с несовместимостью функций обработки даты и времени. Одной из таких проблем является округление в функции SecondsBetween в Delphi 2007, которая ведет себя некорректно из-за использования функции Trunc вместо Round. Это приводит к тому, что результаты работы функции могут отличаться на единицу, примерно в 50% случаев.

Проблема

Пример кода на Delphi, демонстрирующий проблему:

SecondsBetween(StrToDateTime('16/02/2009 11:25:34 p.m.'), StrToDateTime('1/01/2005 12:00:00 a.m.'));

Результат: 130289133

Тот же пример на C#:

TimeSpan span = DateTime.Parse("16/02/2009 11:25:34 p.m.").Subtract(DateTime.Parse("1/01/2005 12:00:00 a.m."));

Результат: 130289134

Разница в одном секунде является результатом округления, которое выполняется по-разному в разных версиях Delphi и C#.

Решение

Чтобы эмулировать поведение Delphi 2007 в C#, можно использовать следующий подход:

using System;
using System.Text;

namespace D2007SecondsBetween
{
    class Program
    {
        // Константы для преобразования времени
        const double HoursPerDay = 24;
        const double MinsPerHour = 60;
        const double SecsPerMin = 60;
        const double MSecsPerSec = 1000;
        const double MinsPerDay = HoursPerDay * MinsPerHour;
        const double SecsPerDay = MinsPerDay * SecsPerMin;

        static double SpanOfNowAndThen(Double ANow, Double AThen)
        {
            if (ANow < AThen)
                return AThen - ANow;
            else
                return ANow - AThen;
        }

        static double SecondSpan(Double ANow, Double AThen)
        {
            return SecsPerDay * SpanOfNowAndThen(ANow, AThen);
        }

        static int SecondsBetween(DateTime ANow, DateTime AThen)
        {
            return (int)Math.Truncate(SecondSpan(ANow.ToOADate(), AThen.ToOADate()));
        }

        static void Main(string[] args)
        {
            // Примеры использования функции SecondsBetween
            // ...
        }
    }
}

Функция SecondsBetween в C# эмулирует поведение Delphi 2007, используя Math.Truncate для округления вниз, что и приводит к аналогичной ошибке округления.

Важные замечания

Необходимо учитывать, что приведенный код может не работать корректно в некоторых редких случаях из-за различий в обработке вещественных чисел между .NET и Delphi 2007. Также стоит рассмотреть возможность использования зашифрованной библиотеки Delphi в C# с помощью p/invoke для минимизации рисков.

Заключение

При переходе с Delphi 2007 на C# важно внимательно учитывать различия в обработке даты и времени, а также в алгоритмах округления. Эмуляция поведения функции SecondsBetween в C# позволяет сохранить совместимость с зашифрованными файлами, созданными в Delphi 2007.

Создано по материалам из источника по ссылке.

При переходе с Delphi 2007 на C# необходимо учитывать несоответствия в обработке даты и времени, особенно в алгоритмах округления, чтобы обеспечить совместимость с зашифрованными файлами.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Дата и Время ::