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

[Nikityans]

Добрый день). передаю координаты мыши удалённому серверу... через изображение...

procedure TForm1.imgScreenMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label3.Caption:=inttostr(x)+', '+inttostr(Y) ;
with (IdTCPClient1) do
begin
WriteLn('pos'+Label3.Caption);
end;
end;

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

а вот сервер

strText := AThread.Connection.ReadLn; // текст принимаемый от клиента
if (strText = не знаю что) then...

как мне принять координаты X, Y от клиента одной строчкой и извлечь оттуда полезные данные X и Y???
После этого мышь примет положение X, Y.
Заранее благодарен))).

[Valio]

Дык на сервер приходит строка, нужно её только обработать.
Яб советовал сформировать строку как-нибудь так:

Label3.Caption := inttostr(x) + '*' + inttostr(Y) ;
WriteLn(Label3.Caption);

На сервер приходит: 137*726

Ну а распарсить такую простоту можно и без специальных функций тупо в цикле for. Или же сразу функцией Pos найти положение *.

[Nikityans]

Вот мне и непонятно как из этих данных выташить и использовать координаты

[Valio]

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

temp, S : String;
i, x, y : Integer;

...

For i := 1 To length(S) Do
Begin
If S[i] = '*' Then Begin x := temp; temp := ''; Continue; End;
temp := temp + S[i];
End;
y := temp;

....

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

Valio, за чем так сложно?

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;

Писалось тут. Возможны лулзы.

[Nikityans]

я дам пример чужого кода:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
strText: string;
width, height, i: Integer;
dc: HDC;
x:integer;
y:integer;
a,b,conid,cx,cy: integer;
s,scrrefr: string;
foo: TPoint;

begin
GetCursorPos(foo);
strText := AThread.Connection.ReadLn;
if (strText = 'POS'+s)
then
begin
cx:=0;
cy:=0;
Delete(s,1,7);

cx:=StrToInt(Copy(s,1,pos('*',s)-1));
cy:=StrToInt(Copy(s,pos('*',s)+1,le ngth(s)));

SetCursorPos(cx,cy);
end;

end;


мне надо различать что пришли именно данные курсора, а не какая нибудь команда... и оттуда выташить данные.. и поставить курсор сразу в положение по этим данным. Потому что я не могу разобраться...

[Пепел Феникса]

а что вам строку не разбить на компоненты?

[Nikityans]

var
s,f: string;

strText := AThread.Connection.ReadLn;

if (strText = s+'*'+f)
then
begin
cx:=0;
cy:=0;


cx:=StrToInt(s);
cy:=StrToInt(f);

SetCursorPos(cx,cy);
end;

сделал так, но при передаче координат ошибка

[raxp]

...а в вашей версии Indy у этого компонента есть возможность передачи буфера по типу write(buf, sizeof(buf))?

А то ведь завести пакет данных со строго определенными размерами на передающей и приемной стороне и разбор-формирование будет автоматом:

type tbuf = record
cmd: string[128];
x,
y: word;
end;

var buf: tbuf;
...
read(buf, sizeof(buf));
//buf.x - позиция по X
//buf.y - по Y
//buf.cmd - команда

[Nikityans]

нет такого...