Gastro-MIS GmbH

 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