"Подключение Delphi к Azure Cosmos DB для MongoDB: Руководство"

Delphi , Базы данных , ADO

Привет, Роберт! Я вижу, что у вас возникли вопросы о подключении вашего десктопного приложения Delphi 10.1 к Azure Cosmos DB для MongoDB. Я помогу вам разобраться в этом вопросе и предложу несколько решений.

Введение

Azure Cosmos DB — это полностью управляемая служба базы данных NoSQL Microsoft Azure, которая позволяет работать с данными в формате JSON. Для подключения вашего приложения Delphi к Azure Cosmos DB для MongoDB вам понадобится использовать клиентский драйвер MongoDB для Delphi.

Решение 1: mORMot

Один из вариантов — использовать mORMot, который имеет встроенную поддержку протокола MongoDB в Pascal. Это открытый источник, но вы упомянули, что не можете использовать открытый код из-за конфиденциальности данных пациентов. В этом случае рассмотрите другие варианты.

Решение 2: FireDAC

FireDAC — это компонент доступа к данным, входящий в состав Embarcadero RAD Studio. Он поддерживает подключение к MongoDB через протокол MongoDB и может использоваться для подключения к Azure Cosmos DB для MongoDB. Чтобы использовать FireDAC, вам понадобится установить компоненты FireDAC в вашем проекте Delphi и настроить подключение к базе данных MongoDB.

Пример кода для подключения к MongoDB с помощью FireDAC:

uses
  System.SysUtils,
  System.Generics.Collections,
  FireDAC.Comp.Client,
  FireDAC.Comp.CliMongod;

type
  TForm1 = class(TForm)
    btnConnect: TButton;
    procedure btnConnectClick(Sender: TObject);
  private
    { Private declarations }
    FConnection: TFDMongoConnection;
  public
    { Public declarations }
  end;

procedure TForm1.btnConnectClick(Sender: TObject);
begin
  FConnection := TFDMongoConnection.Create(nil);
  try
    FConnection.Params.Clear;
    FConnection.Params.Add('Host=your_azure_cosmos_db_url');
    FConnection.Params.Add('Port=10255'); // Default MongoDB port
    FConnection.Params.Add('Database=your_database_name');
    FConnection.Connect;
    ShowMessage('Connected to MongoDB');
  except
    on E: Exception do
      ShowMessage('Error connecting to MongoDB: ' + E.Message);
  end;
end;

Замените your_azure_cosmos_db_url и your_database_name на соответствующие значения для вашей базы данных Azure Cosmos DB.

Решение 3: Rad Server

Rad Server — это платформа для создания веб-сервисов и API на основе Delphi. Если вам нужно создать промежуточное звено для связи с Azure Cosmos DB, Rad Server может быть хорошим выбором. С помощью Rad Server вы можете создать REST API для доступа к вашей базе данных MongoDB в Azure Cosmos DB и затем подключиться к этому API из вашего приложения Delphi.

Подключение с использованием SSL

Для подключения к Azure Cosmos DB с использованием SSL вам понадобятся файлы PEM (Public) от сервера. Вам нужно будет запросить их у человека, который настроил базу данных ("кто-то другой"). После получения файлов PEM вы можете использовать их в настройках подключения FireDAC, как описано в документации Embarcadero:

• SSLPEMKeyFile — путь к файлу .pem, содержащему SSL-сертификат и ключ.
• SSLCAFile — путь к файлу .pem, содержащему сертификат от удостоверяющего центра (CA).

Заключение

В данной статье мы рассмотрели три различных решения для подключения вашего приложения Delphi к Azure Cosmos DB для MongoDB: mORMot, FireDAC и Rad Server. Каждый из этих вариантов имеет свои преимущества и ограничения, и выбор наиболее подходящего решения будет зависеть от ваших конкретных потребностей и ограничений проекта.

Если у вас есть дополнительные вопросы или вам нужна более подробная информация, не стесняйтесь спрашивать. Я всегда рад помочь!

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

Контекст: Помощь в подключении десктопного приложения Delphi 10.1 к Azure Cosmos DB для MongoDB.

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

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

:: Главная :: ADO ::