Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Авг

Передача координат мыши через IDTCP

Posted by Chas under Delphi

передаю координаты мыши удалённому серверу… в данном случае передаёться слово POS и координаты через запятую X, Y. а вот сервер. как мне принять координаты X, Y от клиента одной строчкой и извлечь оттуда полезные данные X и Y???

Valio
Если не использовать спец функции, то можно так:

temp, S : String;

i, x, y : Integer;
...
For i := 1 To length(S) Do

Begin

If S = '*' Then Begin x := temp; temp := ''; Continue; End;

temp := temp + S;

End;

y := temp;
....

Человек_Борща

function GEtXY(aStr:string):TPoint;

const

 cStart='pos';

 cDElim='*';

 s:string;

 d:ShortInt;

 p:TPoint;

begin

 p.X:=0;

 p.Y:=0;

 s:=Trim(LowerCase(aStr));

 delete(s,Pos(cStart,s),Length(cStart));

 d:=Pos(cDelim,s);

 P.x:=IntToStr(Copy(s,1,d));

 Delete(s,1,d+Length(cDelim));

 P.y:=IntToStr(s);
 Result:=p;

end;