Discussion :

[Chyokyka]

Salut, j'aimerais pouvoir contrôler la souris à distance avec SendText.
J'utilise un timer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
var
i:integer;
pos:TPoint;
begin
pos:=Mouse.CursorPos;
for i:=0 to server4.Socket.ActiveConnections-1 do
server4.Socket.Connections[i].SendText(inttostr(pos.x)+','+inttostr(pos.Y));
end;

Euh, pour recevoir je fais comment ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SetCursorPos(Socket.ReceiveText);

ça marche pas, je sais, mais comment recevoir les positions ?
Merci

[tourlourou]

dans l'événement du Socket OnReceiveText (?) : décodage du texte puis SetCursorPos(x,y)

[Chyokyka]

Ouais !
Mais comment le décodé ?

[sjrd]

Avec Pos, Copy et StrToInt c'est très simple.

Et si t'as vraiment la flemme, utilise SplitToken.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
var
  Line, XStr, YStr: string;
begin
  Line := Socket.ReceiveText;
  SplitToken(Line, ',', XStr, YStr);
  SetCursorPos(StrToInt(XStr), StrToInt(YStr));
end;

[Chyokyka]

Salut,
merci, je vais essayer.
Je n'avais aucune idée de comment 'décoder'.
Je teste.