Управление мышкой

[Саня_]

Добрый день! Помогите, пожалуйста. Пишу клиент-серверную программу для удаленного управления ПК. Столкнулся с проблемой организации перемещения курсора мышки. Вот код программы, связанный с мышью...

Глобальные

cur:TPoint; //старые координаты курсора
cur2:TPoint; //новые координаты курсора

Изначально при запуске программы cur присваиваются координаты курсора (первая команда для перемещения курсора будет неправильной, но 1 командой, я думаю, можно пожертвовать). При установке сокет-соединения таймеру задается нужный интервал

Отправка координат изменения курсора (клиентская часть)

procedure TForm1.Timer1Timer(Sender: TObject);
var s:string;
begin
windows.GetCursorPos(cur2);
s:='K'+inttostr(cur2.X-cur.X)+' '+inttostr(cur2.y-cur.y);
ClientSocket2.Socket.SendText(s);
cur:=cur2;
s:='';
end;

Прием команды на сервере

procedure TForm1.ServerSocket2ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
var Rtext,x,y: string; // Принятый текст
i,i2,k:integer;
begin
Rtext:= Socket.ReceiveText;
if Rtext[1]='K' then
begin
windows.GetCursorPos(cur);
k:=0;
x:='';
y:='';
for i:=2 to (Length(Rtext)-1) do
begin
if ((Rtext[i]<>' ')and (k=0)) then
begin
x:=x+Rtext[i];
Continue;
end;
if (Rtext[i]=' ') then
begin
k:=1;
y:=y+Rtext[i+1];
end;
end;
i:=cur.x+strtoint(x);
if (i<0) then i:=0;
if (i>1023) then i:=1023;
i2:=cur.y+strtoint(y);
if (i2<0) then i2:=0;
if (i2>767) then i2:=767;
i:= Round(i * (65535 / Screen.Width));
i2:= Round(i2 * (65535 / Screen.Height));
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, i, i2, 0, 0);
end;
end;

В результате получаю следующие:
Курсок двигается только влево и вправо, и то не понятно каким образом... К тому же:


Если требуется, могу скинуть весь проект. ПОМОГИТЕ, ПОЖАЛУЙСТА

[xoodoo]

Работать это не будет.

[Саня_]

Сообщение от xoodoo

Работать это не будет.

из-за того, что информацию одной команды нужно передавать пакетом?

[xoodoo]

Из-за того что документацию не читаешь.
SendText - функциональный метод.

[Slym]

пример тут http://www.delphimaster.ru/cgi-bin/f...1227604925&n=4