stringgrid и tcliensocket

[frodo]

как передать все таблицу на клиент! т.е. вот код сервера

for i:=1 to 5 do
for j:=1 to 5 do
Serversocket1.Socket.Connections[0].SendText(tabl.Cells[i,j]);

а на клиенте незнаею что написать, ну примерно знаю что так

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  var i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do begin
 advstringgrid1.Cells[i,j]:=Socket.ReceiveText;
end;
end;

но знаю это глупо, вся таблица непередается!вот кто подскажет как написать код для клиента!

[frodo]

ну что никто непоможет????

[alexBlack]

Между посылаемыми данными нужно ставить разделитель. Например так
(обратите внимание, в примере другие индексы):

procedure TForm1.BitBtn1Click(Sender: TObject);
var i, j:integer;
    S:String;
begin
   S := '';
   for i:=0 to 5 do begin
     for j:=0 to 5 do begin
        S := S + StringGrid1.Cells[i, j]+#13;
     end;
   end;
   Server.Socket.Connections[0].SendText(S);
end;

Или обеспечить, чтобы текст во всех ячейках был одинаковой длины. А принимаемый текст нужно делить по выбранному разделителю и помещать в нужные ячейки:

var N:integer = 0;

procedure TForm1.ClientOnRead(Sender: TObject; Socket: TCustomWinSocket);
var S1, S:String;
    i:integer;
begin
   S1 := '';
   S := Socket.ReceiveText;
   for i:=1 to length(S) do begin
      if S[i] = #13 then begin
         StringGrid2.Cells[N div 6, N mod 6] := S1;
         S1 := '';
         inc(N); if N >= 36 then N := 0;
      end else
         S1 := S1 + S[i]
   end;
end;

PS. Строго говоря этот код не совсем корректен. Нужно было-бы накапливать принимаемый текст в отдельном буфере и только после приема всего текста делить.

[frodo]

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

PS. Строго говоря этот код не совсем корректен. Нужно было-бы накапливать принимаемый текст в отдельном буфере и только после приема всего текста делить.

Оооо ты подал идею! тока как мне организовать такое хранение

[alexBlack]

Я бы вообще SendBuf использовал. Но это на Ваше усмотрение. Можно и с SendText.

Положим, что Вы не только одну таблицу передавать будете. Нужно разработать какой-то свой формат и следовать ему при передаче и приеме. Например:

Передаем текст и указываем его назначение:
-первый байт - номер колонки
-второй байт - номер строки
-третий байт - само значение, которое заканчивается, например #13

Принимаем текст. Из него выделяем все данные. И уже после этого решаем, для чего предназначены эти данные.

Это в общем случае. Если же нужно передать только одну таблицу, то код который я привел, рабочий. На форуме неоднократно обсуждались вопросы по сокетам. Попробуйте в поиске набрать ClientSocket - есть много примеров.

[frodo]

alexBlack, спсибо большое!

[Квэнди]

а красивее бы и надежней было обмениваться csv =)

[frodo]

Сообщение от Квэнди

а красивее бы и надежней было обмениваться csv =)

С сетью я вообще не бум бум!!!а время поджимает!!!может если нетрудно примерчик приведете?

[frodo]

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

Между посылаемыми данными нужно ставить разделитель. Например так
(обратите внимание, в примере другие индексы):

procedure TForm1.BitBtn1Click(Sender: TObject);
var i, j:integer;
    S:String;
begin
   S := '';
   for i:=0 to 5 do begin
     for j:=0 to 5 do begin
        S := S + StringGrid1.Cells[i, j]+#13;
     end;
   end;
   Server.Socket.Connections[0].SendText(S);
end;

Или обеспечить, чтобы текст во всех ячейках был одинаковой длины. А принимаемый текст нужно делить по выбранному разделителю и помещать в нужные ячейки:

var N:integer = 0;

procedure TForm1.ClientOnRead(Sender: TObject; Socket: TCustomWinSocket);
var S1, S:String;
    i:integer;
begin
   S1 := '';
   S := Socket.ReceiveText;
   for i:=1 to length(S) do begin
      if S[i] = #13 then begin
         StringGrid2.Cells[N div 6, N mod 6] := S1;
         S1 := '';
         inc(N); if N >= 36 then N := 0;
      end else
         S1 := S1 + S[i]
   end;
end;

PS. Строго говоря этот код не совсем корректен. Нужно было-бы накапливать принимаемый текст в отдельном буфере и только после приема всего текста делить.

этот вариант пошел!!!! тока вот непонял как он работае! ну ладно главное что пошел, а потом придет время разберусь! alexBlack еше раз спс

[frodo]

блин вышла трабла такая, мне же еше надо передовать количество строк и столбцов! помагите еше с этим, немогу чет понять эту сеть=)