|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Передача данных между StringGrid'ами от клиента к серверу
Подскажите как решить задачу. Собственно, на сервере и клиенте есть 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; |