[firebase-br] Firebaselib
Anticlei Scheid
cleischeid em yahoo.com.br
Seg Ago 14 09:43:18 -03 2006
Bom dia pessoal.
Estou tentando utilizar a Firebaselib.dll da área de downloads da Firebase, mas não estou conseguindo sequer "atachar" o service manager do Firebird.
Alguém pode me dar alguma dica de onde estou errando?
Segue abaixo parte da aplicação de teste que escrevi para testar.
Obrigado e abraço
...
function AddFBUser(const user_name,password,group_name:String):LongInt;stdcall;external 'firebaselib.dll';
function DeleteFBUser(const user_name,password:String):LongInt;stdcall;external 'firebaselib.dll';
function ModifyFBUser(const user_name,password:String):LongInt;stdcall;external 'firebaselib.dll';
function ServiceAttach(const user_name,password,hostname:String;ServiceType:ShortInt):LongInt;stdcall;external 'firebaselib.dll';
function ServiceDetach():LongInt;stdcall;external 'firebaselib.dll';
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnAddUserClick(Sender: TObject);
var
Atachado: boolean;
Retorno: integer;
begin
Atachado:= False;
try
Retorno:= ServiceAttach('SYSDBA','masterkey','servidor',0);
if (Retorno >= 0) then
begin
Atachado:= True;
Retorno:= AddFBUser(edtUserName.Text,edtPassword.Text,edtGroupName.Text);
if (Retorno < 0) then
MessageDlg('Erro ao adicionar usuário',mtWarning,[mbOk],0);
end
else
MessageDlg('Não foi possível conectar o gerenciador de serviços do Firebird.',
mtWarning,[mbOk],0);
finally
if Atachado then
ServiceDetach;
end;
end;
...
Mais detalhes sobre a lista de discussão lista