Issue #207

viniciussanchez · May 22, 2024 · caa3a64 · caa3a64
1 parent b0619f8
commit caa3a64
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/samples/client/lazarus/src/samples.main.lfm b/samples/client/lazarus/src/samples.main.lfm
@@ -6,7 +6,7 @@ object FrmMain: TFrmMain
   Caption = 'FrmMain'
   ClientHeight = 600
   ClientWidth = 1000
-  LCLVersion = '2.0.10.0'
+  LCLVersion = '2.2.6.0'
   object Panel1: TPanel
     Left = 0
     Height = 78

diff --git a/src/RESTRequest4D.Request.FPHTTPClient.pas b/src/RESTRequest4D.Request.FPHTTPClient.pas
@@ -256,7 +256,9 @@ function TRequestFPHTTPClient.BaseURL: string;
 function TRequestFPHTTPClient.Resource(const AResource: string): IRequest;
 begin
   Result := Self;
-  FResource := AResource;
+  FResource := AResource.Trim;
+  if FResource.StartsWith('/') then
+    FResource := Copy(FResource, 2, Pred(Length(FResource)));
 end;
 
 function TRequestFPHTTPClient.RaiseExceptionOn500: Boolean;
@@ -277,7 +279,9 @@ function TRequestFPHTTPClient.Resource: string;
 function TRequestFPHTTPClient.ResourceSuffix(const AResourceSuffix: string): IRequest;
 begin
   Result := Self;
-  FResourceSuffix := AResourceSuffix;
+  FResourceSuffix := AResourceSuffix.Trim;
+  if FResourceSuffix.StartsWith('/') then
+    FResourceSuffix := Copy(FResourceSuffix, 2, Pred(Length(FResourceSuffix)));
 end;
 
 function TRequestFPHTTPClient.ResourceSuffix: string;
@@ -537,7 +541,7 @@ function TRequestFPHTTPClient.MakeURL(const AIncludeParams: Boolean): string;
 var
   I: Integer;
 begin
-  Result := FBaseURL;
+  Result := FBaseURL.Trim;
   if not FResource.Trim.IsEmpty then
   begin
     if not Result.EndsWith('/') then