Передача данных между StringGrid'ами от клиента к серверу

[GrabbeR]

Подскажите как решить задачу. Собственно, на сервере и клиенте есть StringGrid с одинаковым количеством столбцов (5) и строк. Клиенту нужно отправить на сервер данные конкретной строки.
Делаю так, но на сервере все данные принимаются в одну ячейку скопом.

На клиенте:

procedure TForm1.Button1Click(Sender: TObject);
var
  cc, rc, c, r: Integer;
begin
  cc := Form1.StringGrid1.ColCount;
  rc := Form1.StringGrid1.RowCount;
  for r := 1 to rc -1 do
    for c := 0 to cc -1 do
  Form1.ClientSocket1.Socket.SendText(Form1.StringGrid1.Cells [c,r]);
end;

На сервере:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  cc, rc, c, r: Integer;
begin
  cc := Form1.StringGrid1.ColCount;
  rc := Form1.StringGrid1.RowCount;
  for r := 1 to rc -1 do
    for c := 0 to cc -1 do
  Form1.StringGrid1.Cells [c,r] := Socket.ReceiveText;
end;

[Slym]

ReceiveText - читает все что успело прилететь, не разбирая
т.е. будет как то так:
ReceiveText1 - ячейка1ячейка2ячейка3ячейка4яче
ReceiveText2 - йка5ячейка6ячейка7ячейка8ячейка

тебе самому надо разбирать где ячейки... вот в html для этого tr/td теги, в CSV - запятые и перевод строки, и т.д. и т.п

[Serge_Bliznykov]

тебе самому надо разбирать где ячейки... вот в html для этого tr/td теги, в CSV - запятые и перевод строки, и т.д. и т.п

+1

GrabbeR, придумайте (самостоятельно), чем Вы будете разделять ячейки (разумеется, символ должен быть такой, которого в ячейках априори быть не может. Например, если в ячейках однострочный текст, без перевода строки, то можно символ #13 использовать как разделитель). Можно ещё перед каждой строкой(ячейкой) её длину передавать. Но с разделителем решение явно проще.

[ZuBy]

я обычно использую разделитель *|* такое сочетание нигде не встретиться

[Stilet]

Однажды мне пришлось решать подобную задачу - я первыми двумя символами передавал разделитель. Первый попавшийся набор символов, который не встречается в тексте. Символы ессно подбирал перебором в программе. И все потому что и | и ; и еще что-то разделяющее могло попадаться в тексте.

[GrabbeR]

Может подскажет кто примером как сделать через разделитель? Буду крайне благодарен!

[Stilet]

Как вариант:

Клиент:

procedure TForm1.Button1Click(Sender: TObject);
var
  cc, rc, c, r: Integer; s:string;
begin
  s:='';
  with StringGrid1 do begin 
   for r := 1 to RowCount -1 do
    s:=s+Rows[r].CommaText+#13#10;
  end;
  ClientSocket1.Socket.SendText(s);
end;

Сервер:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  cc, rc, c, r: Integer; st:TStringList;
begin
  st:=TStringList.Create;
  st.Text:=Socket.ReceiveText;
 
  with StringGrid1 do begin 
   RowCount:=st.Count;
   for r := 1 to RowCount -1 do
    Rows[r].CommaText:=st[i];
  end;
  
  st.free;
end;