Использование API [D5, D6, IB6.x]
iKS1 © (2002-11-02 11:25:00)
Уважаемые мастера!
Пытаюсь зарегистрировать нового пользователя используя
функцию 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:00) [1]
Могу выслать рабочий исходник. Пиши на alex_likh@mail.ru
Наверх 
ЧАТ |
Орешник |
|
