I need to retrieve the connected users but can't get isc_service_attach to work in Fb2.5 - I have a set of api calls working with Firebird 1.5 api but am failing at the first hurdle with Firebird 2 service api. I am using Delhpi XE5, Firebird 2.5 64bit on Win 8.1 with the ibase.h from FB2.5 \include. I must be doing something really stupid, but can't see it. If anyone could point it out to me I would be very grateful. Code snippet below. Thank you in advance.

Type

{$IFDEF WIN64}

ISC_LONG = Integer;

{$ELSE}

ISC_LONG = Longint;

{$ENDIF}

ISC_STATUS = ISC_LONG;

ISC_STATUS_VECTOR = array[0..19] of ISC_STATUS;

Tisc_svc_handle = Pointer;

Pisc_svc_handle = ^Tisc_svc_handle;

Var

SPB : array[0..127] of Char;

SPBLength : Short;

SvcHandle : Pisc_svc_handle;

Status_Vector: ISC_STATUS_VECTOR;

begin

fillchar(SPB, sizeof(SPB), #0);

SPB[0] := char(isc_spb_version) ;

SPB[1] := char(isc_spb_current_version) ;

SPBLength := 2;

BuildPBString(SPB, SPBLength, isc_spb_user_name, 'sysdba');

BuildPBString(SPB, SPBLength, isc_spb_password, 'masterke');

SvcHandle := nil;

isc_service_attach( @Status_Vector, 0, Pchar('service_mgr'), @SvcHandle, SPBLength, @SPB );

// SPB Data

//SPB = (#2, #2, #$1C, #6, 'S', 'Y', 'S', 'D', 'B', 'A', #$1D, #8, 'm', 'a', 's', 't', 'e', 'r', 'k', 'e', #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0)

// isc_spb_version = 2

// isc_spb_current_version = 2

// isc_spb_user_name = 28

// isc_spb_password =29

end;