я слушаю, и говорил что пробывал. Но вы видимо не увидели, что у меня при попытке зайти на сервер, а именно при вызове RequestAuthLogin, вылетает ошибка, и указывает на строку
While (temp1[1] = '0') And (temp1 <> '0') Do delete(temp1, 1, 1);
в коде
Procedure Base256StringToFGInt
(str256 : String; Var FGInt : TFGInt);
Var
temp1 : String; i : longint;
trans : Array[0..255] Of String;
Begin
temp1 := '';
initialize8(trans);
For i := 1 To length(str256) Do temp1 := temp1 + trans[ord(str256[i])]
; While (temp1[1] = '0') And (temp1 <> '0') Do delete(temp1, 1, 1); Base2StringToFGInt(temp1, FGInt);
End;
И в итоге результат нулевой.
|