Small JSONRPC demo fix

danieleteti · Jul 19, 2024 · 051e778 · 051e778
1 parent d515664
commit 051e778
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/samples/jsonrpc/sync_client/MainClientFormU.pas b/samples/jsonrpc/sync_client/MainClientFormU.pas
@@ -739,7 +739,7 @@ procedure TMainForm.edtGetCustomersClick(Sender: TObject);
   FDMemTable1.Active := False;
   lReq := TJSONRPCRequest.Create(Random(1000), 'getcustomers');
   lReq.Params.AddByName('FilterString', edtFilter.Text);
-  lResp := FExecutor.ExecuteRequest('/jsonrpc', lReq, jrpcGET);
+  lResp := FExecutor.ExecuteRequest('/jsonrpc', lReq, jrpcPOST);
   FDMemTable1.Active := True;
   FDMemTable1.LoadFromTValue(lResp.Result);
   FDMemTable1.First;