So langsam verstehe ich gar nix mehr.
Ständig bekomme ich beim User Login die Fehlermeldung WORM_ERROR_TSE_INVALID_PARAMETER egal was ich ausprobiere.
ich habe hier jetzt mal meinen letzten Versuch:
type {$PACKENUM 4} //<- Lazarus {$MINENUMSIZE 4} <-- Delphi WormUserId = (WORM_USER_UNAUTHENTICATED = $0, WORM_USER_ADMIN = $1, WORM_USER_TIME_ADMIN = $2);
function worm_user_login(pContext : IntPtr; ID : WormUserId; pin : TByte; pinLength : Integer; remainingRetries : IntPtr) : WormError; cdecl;
var remainingRetries : IntPtr = 0; pinLength : integer;
TSE_adminPin : TByte;
begin
TSE_adminPin := TEncoding.UTF8.GetBytes('123456'); pinLength := Length(TSE_adminPin); TSE_Error := worm_user_login(pContext, WormUserId.WORM_USER_ADMIN, TSE_adminPin, pinLength, remainingRetries);
end;
Wo habe ich den Denkfehler?
Ich komme einfach nicht mehr weiter.
Vielen Dank für Ihre Hilfe
Carsten Vick
Hi,
bin gerade über dasselbe Problem gestolpert.
Der PIN darf nur 5 Stellen haben.
Zumindest in der Doku zu "worm_user_change_pin" steht das drin.
Gruß, Martin
Carsten Vick
So langsam verstehe ich gar nix mehr.
Ständig bekomme ich beim User Login die Fehlermeldung WORM_ERROR_TSE_INVALID_PARAMETER egal was ich ausprobiere.
ich habe hier jetzt mal meinen letzten Versuch:
type
{$PACKENUM 4} //<- Lazarus {$MINENUMSIZE 4} <-- Delphi
WormUserId = (WORM_USER_UNAUTHENTICATED = $0,
WORM_USER_ADMIN = $1,
WORM_USER_TIME_ADMIN = $2);
function worm_user_login(pContext : IntPtr; ID : WormUserId; pin : TByte; pinLength : Integer; remainingRetries : IntPtr) : WormError; cdecl;
var
remainingRetries : IntPtr = 0;
pinLength : integer;
TSE_adminPin : TByte;
begin
TSE_adminPin := TEncoding.UTF8.GetBytes('123456');
pinLength := Length(TSE_adminPin);
TSE_Error := worm_user_login(pContext, WormUserId.WORM_USER_ADMIN, TSE_adminPin, pinLength, remainingRetries);
end;
Wo habe ich den Denkfehler?
Ich komme einfach nicht mehr weiter.
Vielen Dank für Ihre Hilfe
Carsten Vick