Paging Server Side Data On Client in Delphi XE using App tethering

Question

I have Server And Client App.

From Server side there are 2 buttons.

1st button "Display Data On Server". 2nd button "Send Data to Client". In a Server side i'm using FDQuery1, SringGrid1, TetheringManager1 and TetheringAppProfile1.

From Client Side only 1 button "Connect". In a Client Side I'm using StringGrid1, TetheringManager1 and TetheringAppProfile1

So First Client Connecting to the Server then Server Side sending data to client.

Server "Send Data to Client" button

Code:

procedure TForm1.Button2Click(Sender: TObject);
var rec:integer;
begin
  FDQuery1.SQL.Text := 'SELECT * FROM names';
  FDQuery1.Open;
  rec := FDQuery1.RecordCount;
  FDQuery1.First;

  if rec>0 then
  begin
    while not FDQuery1.Eof do
    begin
      TetheringAppProfile1.Resources.FindByName('Vefa').Value:=FDQuery1.FieldByName('Name').AsString;
      FDQuery1.Next;
    end;
  end;

Client Side Receive

Code:

procedure TForm2.TetheringAppProfile1Resources1ResourceReceived(
  const Sender: TObject; const AResource: TRemoteResource);
var i:integer;
begin
  for i := 0 to TetheringAppProfile1.Resources.Count do
    StringGrid1.Cells[1,i]:=AResource.Value.AsString;
end;

But When I send data from Server to Client I see like this:

Answer 1

You can collect the names into a TStringList and then send that either as a string, using the TStringList.Text property, or as a stream.

To send as a string (and assuming a resource name = NameList), the SendDataClick event handler could look like this:

procedure TServerForm.btnSendDataClick(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Add(StringGrid1.Cells[1, 1]);
    sl.Add(StringGrid1.Cells[1, 2]);
    sl.Add(StringGrid1.Cells[1, 3]);
    TetheringAppProfile1.Resources.FindByName('NameList').Value := sl.Text;
  finally
    sl.Free;
  end;
end;

I simply copied the names from the grid, you could do it directly from the db records.

And the client OnResourceReceived:

procedure TClientForm.TetheringAppProfile1Resources2ResourceReceived(
  const Sender: TObject; const AResource: TRemoteResource);
var
  sl: TStringList;
  i: integer;
begin
  sl := TStringList.Create;
  try
    sl.Text := AResource.Value.AsString;
    for i := 0 to sl.Count-1 do
      StringGrid1.Cells[1, i+1] := sl[i];
  finally
    sl.Free;
  end;
end;

I suggest you also read about passing streams in Malcolm Groves blog