Tentando Uso no Firemonkey

[Carlos Wilson]

Boa noite a todos, Estou tentando usar o componente no firemonkey. Coloquei só o componente de verificação de usuário.
compilou normalmente, mas ao chamar a função verificalogin, ele dá uma excessao “Integer Over Flow”. depurando cheguei nessa função onde dá o erro:
function InternalEncrypt(const S: ansistring; Key: Word): ansistring;
var
I: Word;
Seed: int64;
begin
Result := S;
Seed := Key;
for I := 1 to Length(Result) do
begin
Result[I] := Ansichar(byte(Result[I]) xor (Seed shr 8));
Seed := (byte(Result[I]) + Seed) * Word(C1) + Word(C2);
end;
end;

A variável seed aumenta num ponto que estoura o int64. Na Vcl o mesmo componente, na mesma função, no mesmo banco de dados e passa tranquilo. Alguém saberia dizer o que pode ser?
Obrigado.

[Giovani Da Cruz]

Boa tarde Carlos.

Tive alguns programadores que me reportaram problemas semelhantes.

No entanto com as recentes correções, a princípio o problema foi resolvido.

Podes atualizar os fontes e testar novamente?

[Autor]

Posts