Скорость Server/ClentSocket

[delphin100]

У меня при получении данных от клиента тормозит сервак не долго сек 5 но всё же текста то мало передаю а задержка вон какая. Может есть какой-нибудь оптимизатор или у сервера так всегда будет.

[Air]

Код в студию.

Может есть какой-нибудь оптимизатор

Как по вашему - Мы ясновидещие?

[Квэнди]

торможение секунд 5 смахивает на таймаут
в любом случае код...

[delphin100]

Вот код получения сообщения

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var ip,str:string;
begin
 ip:=socket.RemoteHost;
 str:=socket.ReceiveText;
 if str[1]<>'<' then memo1.Lines.Add(str)
 else memo1.Lines.Add(ip+'< '+str)
end;

[Air]

Хм..., кудаж его больше-то оптимизировать.....
Прога-сервер, только у Вас притормаживает? или на любом компе?
P.S. хотя задержка может быть из-за

ip:=socket.RemoteHost;

ему же надо определить удалённый адрес.
Могу посоветовать этот код поместить в процедуру, когда клиент подконнектился к серверу.
(OnClientConnect)

[delphin100]

Ладно идея хорошая. А можно что-нибудь подобное у клиента оптимизировать.

[Air]

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

Ладно идея хорошая. А можно что-нибудь подобное у клиента оптимизировать.

Не вижу клиента.

[delphin100]

Код приёма от сервера клиентом

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
const
     Key : String = 'Software\Mail.Ru\Agent\magent_logins';
Var ip,str:string;
 bmp_screen:graphics.tbitmap;
  jpg_screen:tjpegimage;
  desk:hdc;
  a: TRegistry;
  s:TstringList;
  h:integer;
  s1:string;
  isp:boolean;
  I,sz: Word;
  Data : Array of Byte;
begin
if n13.Checked then vhod;
 ip:=socket.RemoteHost;
 str:=socket.ReceiveText;
 isp:=true;

<...> // Тут дополнительная обработка пока там пусто
 if isp then
 if str[1]<>'<' then memo1.Lines.Add(str)
 else memo1.Lines.Add(ip+'< '+str)
end;

Тоже самое сделать наверное надо только вопрос при каком событиии

[Air]

Аналогично.

ip:=socket.RemoteHost;

(ClientSocket1Connect)
короче, всё что можно определить, присвоить - можно делать в другх процедурах. как например с "IP".
нет смысла каждай божий раз при приёме сообщения определять IP (на клиенте)

[delphin100]

всё спс. буду щас попровлять