Передача dpb (Database parameters block) в DBLaz 0.1.1

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Передача dpb (Database parameters block) в DBLaz 0.1.1

Сообщение RusMikle » 20.12.2017 14:44:20

Доброе время суток,

необходимо передать isc_pdb_config с AuthClient = Srp при соединении с FB3.

как это лучше сделать?

Судя по тому что есть в IBConnection.pas:
Код: Выделить всё
procedure TIBConnection.ConnectFB;
var
  ADatabaseName: String;
  DPB: string;
begin
  DPB := chr(isc_dpb_version1);
  if (UserName <> '') then
  begin
    DPB := DPB + chr(isc_dpb_user_name) + chr(Length(UserName)) + UserName;
    if (Password <> '') then
      DPB := DPB + chr(isc_dpb_password) + chr(Length(Password)) + Password;
  end;
  if (Role <> '') then
     DPB := DPB + chr(isc_dpb_sql_role_name) + chr(Length(Role)) + Role;
  if Length(CharSet) > 0 then
    DPB := DPB + Chr(isc_dpb_lc_ctype) + Chr(Length(CharSet)) + CharSet;

  FSQLDatabaseHandle := nil;
  if HostName <> '' then ADatabaseName := HostName+':'+DatabaseName
    else ADatabaseName := DatabaseName;
  if isc_attach_database(@FStatus[0], Length(ADatabaseName), @ADatabaseName[1],
    @FSQLDatabaseHandle,
         Length(DPB), @DPB[1]) <> 0 then
    CheckError('DoInternalConnect', FStatus);
end;


надо переопределять Connect процедуру и работать с API напрямую. Но может есть возможность использовать имеющиеся средства у IBConnection. Например Params?
Какие есть варианты?
RusMikle
новенький
 
Сообщения: 37
Зарегистрирован: 03.01.2017 00:12:44

Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: Rambler [Bot] и гости: 5

Рейтинг@Mail.ru