Danke für den Hinweis. So gehts.
Code:
procedure TfrClient.Button1Click(Sender: TObject);
var con: TServerMethods1Client;
dataSet:TDataSet;
begin
if not DataSnapServer.Connected then DataSnapServer.Connected := true;
con := TServerMethods1Client.Create(DataSnapServer.DBXConnection);
try
dataSet := con.getAdrMatchcodes(leMatchcode.Text);
if (dataSet<>nil) then
begin
DataSetProvider1.DataSet := dataSet;
if ClientDataSet1.Active
then ClientDataSet1.Refresh
else ClientDataSet1.Open;
DBGrid1.Columns.Items[0].Visible := false;
end;{if}
finally
con.Free;
end;
end;
Gruß Kostas