T][P,
delphi Код:
Const
BotName = 'Имя бота';
Password = '2356';
var
MasterID : integer; //ID хозяина
MasterName : string; //Гик хохяина
Command :string; //Команда
i : integer;
Name : string;
begin
if FromServer and (ConnectName=BotName) and (pck[1]=#$4A) then begin
i :=10; //Устанавливаем смещение до ника
Name :=ReadS(i); //Сохраняем ник
Command :=ReadS(i); //Считываем текст
if Command=Password then begin //если это пароль
MasterID :=ReadD(2); //Сохраняем ID написавшего
MasterName := Name; //и его ник
end;
end;
end.
Добавлено через 3 минуты
Цитата:
Сообщение от T][P
А ещё если допустим ник присвоить name:=Reads(10) как заделать так чтобы следующее присваивание было после Reads(10) то есть присваивало следующий байт.
|
как в примере - надо использовать переменную, функция ReadS увеличит ее на длину строки
delphi Код:
i :=10;
Name :=ReadS(i);
Command :=ReadS(i);
Добавлено через 18 минут
T][P,
buf:=Hstr('46'); лучше buf:=#$46;
не знаю как это будет работать, но иожно попробывать сразу слать и клиенту 7E=LogOutOk: