ServerSocket и ClientSocket медленные?

[who i]

прога которая удаленно передвигает курсор мышки, по локалке. пользуюсь сокетами, но когда в клиентском приложении которое каждую долю секунды (по таймеру = 50)пересылает на сервер координаты курсора сокет начинает тупить и загонять в одну стринговую переменную сразу несколько значений что приводит к сбою когд ставлю OnTimer => 300 то все нормально но тогда курсор двигается рывками, Вывод Сокет медленно работает) или я чтото натупил вот код сервера:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, Buttons, StdCtrls;

type
  TForm1 = class(TForm)
    Server: TServerSocket;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  q:char;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Server.Active:=true;
q:='0';
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
form1.Hide;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Server.Active:=false;
end;

procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
str,x,y:string;
i,j:integer;
cur:TPoint;

begin
x:='';
y:='';
str:=socket.ReceiveText;
for i:=1 to length(str) do
begin
label3.Caption:=str;
if str[i]<>'_' then x:=x+str[i];
if str[i]='_' then break;
end;

for j:=i+1 to length(str)-2 do y:=y+str[j];
cur.X:=strtoint(x); label1.Caption:=x;
cur.Y:=strtoint(y); label2.Caption:=y;
SetCursorPos(cur.X,cur.Y);

if str[length(str)] = '1' then
if q = '1' then begin q:='0';
mouse_event(mouseeventf_absolute or mouseeventf_move, cur.x, cur.y, 0, 0); end
else
mouse_event(mouseeventf_absolute or mouseeventf_leftdown, cur.x, cur.y, 0, 0)
else begin q:='1'
mouse_event(mouseeventf_absolute or mouseeventf_leftup, cur.x, cur.y, 0, 0); end;
end;

end.

клиент

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Sockets, ExtCtrls, StdCtrls, ScktComp;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Port: TEdit;
    Label2: TLabel;
    Ip: TEdit;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    Client: TClientSocket;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
client.Port:=strtoint(port.Text);//считываем порт
client.Address:=ip.Text;//считываем айпишник
client.Active:=true;// попытка приконектится
timer1.Enabled:=true;//запуск таймера
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
client.Close;
client.Active:=false;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
client.Close;
client.Active:=false;
end;

procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
form1.Caption:='Connected!';
end;

procedure TForm1.ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
form1.Caption:='DisConnected!';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
cur:TPoint;// tut budut xranitsya koordinatu kursora
l:byte;
begin
GetCursorPos(cur); // zadaem koordinatu kursora
if GetKeyState(VK_LBUTTON) < 0 then
 l:=1 else
l:=0;
label4.Caption:=inttostr(GetKeyState(VK_LBUTTON));
client.Socket.SendText(IntToStr(cur.X)+'_'+IntToStr(cur.y)+'_'+inttostr(l));
end;

end.

посоветуйте плиз тогда другой протокол или укажите на мои ошибки?

[veniside]

На ошибки не укажу, лень разбираться, но я бы поднял UDP руками, там 7 строчек кода на клиенте и 8 на сервере.

TCP плох, когда данные нужно передавать в режиме реального времени, особенно, когда потеря некоторого процента пакетов не смертельна. В принципе в локалке TCP должен работать быстро, так что скорей всего виноваты ваши руки. Но если дело дойдёт до тырнета, TCP ещё выйдет вам боком.

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

1)учитывая что TCP потоковый, вы можете принять два пакета(две ваших строки) сразу.(а то и больше)
2)текстовый вид ждя данных не самое оптимальное решение
3)сказано выше)
4)лучше всего организовать свои пакеты(свой протокол так сказать)
тогда шансов куда больше.

[mss]

Дурней затеи чем отслеживание тек.координат мыши по таймеру не придумать.
Еще более чудовищней затея - передавать координаты в строковом представлнении.
Про непонимание логики работы компонентов в асинхр.режиме и принципа поточности ТСР вообще нет слов.

Логику - в топку. Код туда же.

[who i]

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

Дурней затеи чем отслеживание тек.координат мыши по таймеру не придумать.
Еще более чудовищней затея - передавать координаты в строковом представлнении.
Про непонимание логики работы компонентов в асинхр.режиме и принципа поточности ТСР вообще нет слов.

Логику - в топку. Код туда же.

а ты я гляжу умный ? ну так разъясни , кроме воды в твоем посте не увидел ничего !!!

интересно а как бы ты отслеживал?

[who i]

Сообщение от Пепел Феникса

1)учитывая что TCP потоковый, вы можете принять два пакета(две ваших строки) сразу.(а то и больше)
2)текстовый вид ждя данных не самое оптимальное решение
3)сказано выше)
4)лучше всего организовать свои пакеты(свой протокол так сказать)
тогда шансов куда больше.

не подскажете как организовывать свои пакеты(можно ссылкой)