Как передать UserName и Password в удаленный модуль данных

Delphi , Базы данных , Модуль данных

В Удаленный Модуль Данных бросьте компонент TDatabase, затем добавьте процедуру автоматизации (пункт главного меню Edit | Add To Interface) для Login.

Убедитесь, что свойство HandleShared компонента TDatabase установлено в True.

procedure Login(UserName, Password: WideString);
begin
  { DB = TDatabase }
  { Something unique between clients }
  DB.DatabaseName := UserName + 'DB';
  DB.Params.Values['USER NAME'] := UserName;
  DB.Params.Values['PASSWORD'] := Password;
  DB.Open;
end;

После того, как Вы создали этот метод автоматизации, Вы можете вызывать его с помощью:

RemoteServer1.AppServer.Login('USERNAME','PASSWORD'); 

Here's the translation of the content into Russian:

Задача - передать параметры UserName и Password из удаленного модуля в компонент базы данных Delphi.

Сначала создайте компонент TDatabase на вашей форме или модуле данных и установите свойство HandleShared в True.

Далее, добавьте автоматизированную процедуру входа с помощью пункта меню "Правка | Добавить в интерфейс". Это позволит вам вызывать процедуру удаленно.

Процедура Login принимает два параметра - UserName и Password, оба типа WideString. Внутри этой процедуры:

1. Установите свойство DatabaseName компонента TDatabase в уникальную строку, сочетающую UserName с 'DB'.
2. Установите значения параметров базы данных 'USER NAME' и 'PASSWORD' с помощью свойства Params.Values.
3. Откройте соединение с базой данных, вызвав метод Open.

Чтобы вызвать эту процедуру удаленно, вы можете использовать следующий код: RemoteServer1.AppServer.Login('USERNAME','PASSWORD');

Вот полный код:

unit RemoteDatabase;
interface
uses
  Data.DB,
  ServerCore,
  RemObjectsSDK;
type
  TDatabase = class(TCustomDatabase)
    private
      FHandleShared: Boolean;
    public
      constructor Create; override;
      procedure Login(UserName, Password: WideString);
  end;
implementation
constructor TDatabase.Create;
begin
  inherited;
  FHandleShared := True;
end;
procedure TDatabase.Login(UserName, Password: WideString);
begin
  DatabaseName := UserName + 'DB';
  Params.Values['USER NAME'] := UserName;
  Params.Values['PASSWORD'] := Password;
  Open;
end;
initialization
  RegisterClass(TDatabase);
end.

Обратите внимание, что это код предполагает, что у вас есть компоненты RemoteServer1 и AppServer, установленные в вашем проекте, которые, вероятно, являются частью SDK RemObjects. Если не, вы может потребоваться adjust код соответствующим образом.

Также помните, что хранение паролей в открытом виде является обычно рассматривается как небезопасный способ. Вы можете хотел бы использовать более безопасные методы для хранения паролей, такие как хеширование и солевание.

В статье описывается способ передачи данных пользователя (UserName и Password) в удаленный модуль данных, используя компонент TDatabase и процедуру автоматизации Delphi.

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

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

:: Главная :: Модуль данных ::