我有服务器和客户端应用程序。
从服务器端有 2 个按钮。
第一个按钮“在服务器上显示数据”。第二个按钮“向客户端发送数据”。在服务器端,我使用FDQuery1
,和.SringGrid1
TetheringManager1
TetheringAppProfile1
从客户端只有 1 个按钮“连接”。在客户端,我使用 StringGrid1、TetheringManager1 和 TetheringAppProfile1
所以首先客户端连接到服务器,然后服务器端向客户端发送数据。
服务器“向客户端发送数据”按钮
代码:
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;
客户端接收
代码:
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;
但是当我将数据从服务器发送到客户端时,我看到的是这样的: