Моя команда поддерживает огромное клиентское приложение Win32 Delphi. Это клиент-серверное приложение (толстый клиент), которое использует компоненты DevArt (SDAC) для подключения к SQL Server.
Бизнес-логика часто «ловится» в обработчиках событий Компонента, во всяком случае, с некоторой степенью рефакторинга можно переместить бизнес-логику в общие блоки (большая часть этой работы уже была выполнена во время рефакторинга ... Поддержание устаревшие приложения, написанные кем-то другим, очень разочаровывают, но это очень распространенная работа).
Теперь есть запрос веб-интерфейса, у меня, конечно, есть несколько вариантов, в этом вопросе я хочу сосредоточиться на опции VCL for the web (intraweb).
Идея состоит в том, чтобы использовать общий код (одни и те же файлы pas) как для клиент-серверного приложения, так и для веб-приложения. Я слышал о многих людях, которые переместили унаследованные приложения с Delphi на intraweb, но здесь я пытаюсь сохранить и толстый клиент.
Идея состоит в том, чтобы использовать общий код, возможно, с некоторыми директивами компилятора для написания конкретного кода:
{$IFDEF CLIENTSERVER}
{here goes the thick client specific code}
{$ELSE}
{here goes the Intraweb specific code}
{$ENDIF}
Тогда другая проблема - это «план миграции», скажем, у меня есть 300 функций, и в первом выпуске у меня будет только 50 из них, доступных в веб-приложении. Как отследить это? Я думал о (ab) использовании интерфейсов Delphi, чтобы справиться с этим. Например, для аутентификации пользователя я мог бы переместить весь связанный код в процедуре и объявить интерфейс как:
type
IUserAuthentication= interface['{0D57624C-CDDE-458B-A36C-436AE465B477}']
procedure UserAuthentication;
end;
Таким образом, когда я реализую интерфейс IUserAuthentication в обоих приложениях (толстый клиент и Intraweb), я знаю, что эта функция была «перенесена» в Интернет. Во всяком случае, я не знаю, имеет ли этот подход смысл. Я сделал прототип для имитации всего процесса. Он работает для приложения «Hello world», но мне интересно, имеет ли это смысл для большого приложения или эта идея интерфейса только контрпродуктивна и может иметь неприятные последствия.
Мой вопрос: имеет ли этот подход смысл? (Идея интерфейса - это просто дополнительная идея, она не так важна, как общая часть кода, описанная выше) Это жизнеспособный вариант?
Я понимаю, что это во многом зависит от типа приложения, в любом случае, чтобы быть универсальным, мое приложение находится в области CRM / Accounting, и число одновременных пользователей в одной установке обычно меньше 20 с пиками 50.
ДОПОЛНИТЕЛЬНЫЙ КОММЕНТАРИЙ (ОБНОВЛЕНИЕ): Я задаю этот вопрос, потому что, поскольку у меня нет n-уровневого приложения, я вижу Intraweb как уникальную возможность иметь веб-приложение, имеющее общий код с толстым клиентом. Разработка веб-сервисов из кода Delphi не имеет смысла в моем конкретном случае, поэтому у меня есть альтернатива - написать веб-интерфейс с использованием ASP.NET (дублируя бизнес-логику), но в этом случае я не могу воспользоваться преимуществами общего кода в Простой способ. Да, я мог бы использовать dll, возможно, но мой код не подходит для этого.