Merge pull request #339 from mobius1qwe/dev

Correção de instalação no Lazarus
OpenSourceCommunityBrasil · May 17, 2023 · 7c2b158 · 7c2b158
2 parents 0c1cd80 + 7b90704
commit 7c2b158
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/CORE/Source/Basic/uRESTDWBasic.pas b/CORE/Source/Basic/uRESTDWBasic.pas
@@ -2732,7 +2732,7 @@ procedure TRESTClientPoolerBase.SetIpVersion(IpV: TRESTDWClientIpVersions);
  vRequestHeader.Add(Url + '?' + QueryParams);
  TRESTDWDataUtils.ParseRESTURL (Url + '?' + QueryParams, vEncoding, vmark, vDatabaseCharSet, DWParams);
  If DWParams.ItemsString['dwwelcomemessage'] <> Nil Then // Ico Menezes - Post Receber WelcomeMessage - 20-12-2018
- vWelcomeMessage := DecodeStrings(DWParams.ItemsString['dwwelcomemessage'].AsString, vDatabaseCharSet;
+ vWelcomeMessage := DecodeStrings(DWParams.ItemsString['dwwelcomemessage'].AsString, vDatabaseCharSet);
  End;
  End
  Else
@@ -3322,7 +3322,7 @@ procedure TRESTClientPoolerBase.SetIpVersion(IpV: TRESTDWClientIpVersions);
  End
  Else
  Begin
- {$IFDEF RESTDWLAZARUS}
+ {$IF Defined(RESTDWLAZARUS)}
  If vEncoding = esUtf8 Then
  mb := TStringStream.Create(Utf8Encode(JSONStr))
  Else