Текущий архив: 2002.11.21;
Скачать: CL | DM;

Вниз

Использование API   Найти похожие ветки 

← →
iKS1   (2002-11-02 11:25) [0]

Уважаемые мастера!

Пытаюсь зарегистрировать нового пользователя используя функцию API ISC_ADD_USER():

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IBIntf, IBExternals, IBHeader;

var
status : PISC_STATUS;
sec : PUserSecData;

begin
New(sec);
New(status);
sec^.sec_flags := sec_dba_user_name_spec or
sec_dba_password_spec or
sec_password_spec;
sec^.uid := 0;
sec^.gid := 0;
sec^.protocol := 4;
sec^.server := "";
sec^.user_name := PAnsiChar(edtUser.Text);
sec^.password := PAnsiChar(edtPassword.Text);
sec^.group_name := "";
sec^.first_name := "";
sec^.middle_name := "";
sec^.last_name := "";
sec^.dba_user_name := "SYSDBA";
sec^.dba_password := "masterkey";
isc_add_user(status, sec); // здесь ошибка Access Violation
Dispose(sec);
Dispose(status);
end;

Подскажите, что делаю не так.

---

← →
Alexsys ©   (2002-11-02 18:07) [1]

Могу выслать рабочий исходник. Пиши на alex_likh@mail.ru

---

Страницы: 1 вся ветка

Текущий архив: 2002.11.21;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.016 c