Discussion :

[Chyokyka]

Salut !
Beh voila jpose beaucoup de questions je sais lol
Je veut faire une application style vnc !
Mais voila :
Je voudrais savoir comment controler la souris :
//////////////////////////////CLIENT////////////////////////////////////
J'utilise un Timer
Enabled : True
Interval : 1
Name : TimerSouris
Tag : 0

Code :

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

1
2
3
4
5
6
7
8
 
procedure TFormMain.TimerSourisTimer(Sender: TObject);
var
  Position: TPoint;
begin
  GetCursorPos(Position);
  ClientSocket1.Socket.SendText(IntToStr(Position.X) + IntToStr(Position.Y));
end;

//////////////////////////////SERVER////////////////////////////////////

Code :

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

1
2
3
4
5
procedure TForm1.ServerSocket18ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;

Mais sa marche pas !
Bon jpense qu'il y a assez de precision
Merci

[Sub0]

Peut-être que cette démo t'aidera à contrôler la souris.
En tous les cas, je pense qu'il faudra utiliser les messages windows pour une telle application :
http://tcharles.developpez.com/simul/

Mais la 1ère chose à faire est d'établir une communication entre les machines.
Commence peut-être à jeter un oeil à la faq :
http://www.developpez.com/delphi/faq...ndy_gene_bases

[Chyokyka]

Oui , j'ai bien etablie une connexion avec TClientSocket et TServerSocket.
c'est bien connecter. Pourtant tout m'a l'aire bien ...
Je ne vois pas ce qu'il plante dans le code .