[sge]

помогите пожалуста надо чтобы клиент передавал серверу массив значений а серв при приеме рассылал всем клиентам.
Я написал так.

Серв:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
s,s1:string;
begin
Memo2.Lines.Insert(0,'Message received from client');
s:=Socket.ReceiveText;
s1:=copy(s,1,3);
if s1='abc'
then
begin
delete(s,1,3);
for i:=0 to 3 do
for j:=0 to 3 do
begin
coord[i][j]:=strtoint(copy(s,1,Pos('c',s)-1));
delete(s,1,Pos('c',s));
end;
end;
ServerSocket1.Socket.Connections[z].SendText('abc');
for z := 0 to ServerSocket1.Socket.ActiveConnections-1 do
begin
for i:=0 to 3 do
for j:=0 to 3 do
ServerSocket1.Socket.Connections[z].SendText(inttostr(coord[i][j])+'s');
end;

клиент:

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
s,s1:string;
b,o:integer;
begin
s:=Socket.ReceiveText;
s1:=copy(s,1,3);
if s1='abc'
then
begin
delete(s,1,3);
for i:=0 to 3 do
for j:=0 to 3 do
begin
coord[i][j]:=strtoint(copy(s,1,Pos('s',s)-1));
delete(s,1,Pos('s',s));
end;
end;

Он один раз передает а потом видает что нельза занести в integer из массива пустое значение.

[AlexBlack]

Два вызова SendText() на сервере приведут к двум вызовам ClientSocketRead.

Для посылки сообщения нужно сначала записать все данные в один буфер и отправить его одним вызовом.

Клиент читается длину сообщения, затем сам буфер и делит принятый буфер на данные.

[sge]

Спасибо помогло!