#131

viniciussanchez · May 30, 2023 · fd07c11 · fd07c11
1 parent 5404705
commit fd07c11
Show file tree

Hide file tree

Showing 16 changed files with 316 additions and 618 deletions.
diff --git a/README.md b/README.md
@@ -14,8 +14,6 @@
 
 ## ⚙️ Installation 
 
-*Prerequisites*: [**DataSet-Serialize**](https://github.com/viniciussanchez/dataset-serialize) - This is a DataSet serializer for Delphi
-
 * **Manual installation**: Add the following folders to your project, in *Project > Options > Resource Compiler > Directories and Conditionals > Include file search path*
 
 ```
@@ -34,6 +32,10 @@ By default, the components **TRESTRequest**, **TRESTResponse** and **TRESTClient
 
 **Note**: for Lazarus, the **fphttpclient** engine is the default. But you can switch to **Indy** setting `RR4D_INDY` directive or to [**Synapse**](http://www.ararat.cz/synapse/doku.php/download) setting `RR4D_SYNAPSE` directive.
 
+## 🔌 Adapters
+Adapters allow you to extend the functionality of RESTREquest4Delphi without changing the core of the project. See the list of adapters available by the community:
+* [**DataSet-Serialize**](https://github.com/viniciussanchez/dataset-serialize-adapter-restrequest4delphi) - Adapter to load a DataSet using the DataSet-Serialize library at the time of the request;
+
 ## ⚡️ Quickstart
 
 You need to use RESTRequest4D
@@ -58,13 +60,13 @@ begin
 end;
 ``` 
 
-* **GET AS DATASET**
+* **GET AS DATASET USING ADAPTERS**
 
 ```pascal
 begin
   TRequest.New.BaseURL('http://localhost:8888/users')
+    .Adapters(TDataSetSerializeAdapter.New(FDMemTable))
     .Accept('application/json')
-    .DataSetAdapter(FDMemTable)
     .Get;
 end;
 ``` 
@@ -141,4 +143,4 @@ node server.js
 
 ## ⚠️ License
 
-`RESTRequest4Delphi` is free and open-source software licensed under the [MIT License](https://github.com/viniciussanchez/RESTRequest4Delphi/blob/master/LICENSE). 
+`RESTRequest4Delphi` is free and open-source software licensed under the [MIT License](https://github.com/viniciussanchez/RESTRequest4Delphi/blob/master/LICENSE). 
diff --git a/boss-lock.json b/boss-lock.json
@@ -1,14 +1,5 @@
 {
 	"hash": "cdbb70a8679a51d4358a9e31e1ef566a",
-	"updated": "2021-03-24T15:27:46.0150426-03:00",
-	"installedModules": {
-		"github.com/viniciussanchez/dataset-serialize": {
-			"name": "dataset-serialize",
-			"version": "v2.4.9",
-			"hash": "0df5fa71a508ce66a50ef649231af9c9",
-			"artifacts": {},
-			"failed": false,
-			"changed": false
-		}
-	}
+	"updated": "2023-05-30T14:30:59.2446954-03:00",
+	"installedModules": {}
 }
diff --git a/boss.json b/boss.json
@@ -5,7 +5,5 @@
 	"homepage": "",
 	"mainsrc": "src",
 	"projects": [],
-	"dependencies": {
-		"github.com/viniciussanchez/dataset-serialize": "^v2.2.9"
-	}
+	"dependencies": {}
 }
diff --git a/samples/client/delphi/Samples.dproj b/samples/client/delphi/Samples.dproj
@@ -133,6 +133,12 @@
             </Delphi.Personality>
             <Deployment Version="4">
                 <DeployFile LocalName="Bin\Samples.exe" Configuration="Debug" Class="ProjectOutput"/>
+                <DeployFile LocalName="Bin\Samples.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>Samples.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployClass Name="AdditionalDebugSymbols">
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>

diff --git a/samples/client/delphi/src/Samples.Main.dfm b/samples/client/delphi/src/Samples.Main.dfm
@@ -10809,4 +10809,15 @@ object FrmMain: TFrmMain
       end
     end
   end
+  object FDMemTable1: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 464
+    Top = 392
+  end
 end
diff --git a/samples/client/delphi/src/Samples.Main.pas b/samples/client/delphi/src/Samples.Main.pas
@@ -49,6 +49,7 @@   TFrmMain = class(TForm)
     Panel8: TPanel;
     lblRESTRequest4DelphiComponent: TLabel;
     btnMultipartFormDataPut: TButton;
+    FDMemTable1: TFDMemTable;
     procedure btnGETClick(Sender: TObject);
     procedure btnPOSTClick(Sender: TObject);
     procedure btnPUTClick(Sender: TObject);