Post charset auf utf-8 setzen

prj/RESTDebugger.stat

@@ -1,10 +1,10 @@
 [Stats]
-EditorSecs=27668
-DesignerSecs=6367
+EditorSecs=27797
+DesignerSecs=6371
 InspectorSecs=3599
-CompileSecs=1262160
-OtherSecs=6692
+CompileSecs=1282716
+OtherSecs=6726
 StartTime=27.10.2016 18:27:37
 RealKeys=0
 EffectiveKeys=0
-DebugSecs=18644
+DebugSecs=18831

src/_frmMain.dfm

@@ -114,7 +114,6 @@ object frmMain: TfrmMain
     Font.Height = -11
     Font.Name = 'Tahoma'
     Font.Style = []
-    ExplicitTop = 880
   end
   object PageControlResponse: TcxPageControl
     Left = 0
@@ -125,7 +124,6 @@ object frmMain: TfrmMain
     TabOrder = 3
     Properties.ActivePage = tabContent
     Properties.CustomButtons.Buttons = <>
-    ExplicitHeight = 452
     ClientRectBottom = 430
     ClientRectLeft = 2
     ClientRectRight = 723
@@ -133,7 +131,6 @@ object frmMain: TfrmMain
     object tabContent: TcxTabSheet
       Caption = 'Response Content'
       ImageIndex = 0
-      ExplicitHeight = 424
       object EditorContent: TSynEdit
         Left = 0
         Top = 31
@@ -162,9 +159,6 @@ object frmMain: TfrmMain
         TabWidth = 2
         WantTabs = True
         FontSmoothing = fsmNone
-        ExplicitLeft = 3
-        ExplicitTop = 175
-        ExplicitHeight = 225
       end
       object Panel2: TPanel
         Left = 0
@@ -185,6 +179,9 @@ object frmMain: TfrmMain
     object tabHeaders: TcxTabSheet
       Caption = 'Response Headers'
       ImageIndex = 1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
       ExplicitHeight = 424
       object EditorResponseHeaders: TSynEdit
         Left = 0
@@ -434,6 +431,10 @@ object frmMain: TfrmMain
       object cxTabSheet2: TcxTabSheet
         Caption = 'Extra Headers'
         ImageIndex = 1
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
         object Panel4: TPanel
           Left = 0
           Top = 0
@@ -485,6 +486,10 @@ object frmMain: TfrmMain
       object cxTabSheet3: TcxTabSheet
         Caption = 'Authentication'
         ImageIndex = 3
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
         object Label9: TLabel
           Left = 15
           Top = 47
@@ -521,6 +526,10 @@ object frmMain: TfrmMain
       object tabPostData: TcxTabSheet
         Caption = 'Post Data'
         ImageIndex = 2
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
         object Panel5: TPanel
           Left = 0
           Top = 0
@@ -640,7 +649,6 @@ object frmMain: TfrmMain
     Font.Height = -11
     Font.Name = 'Tahoma'
     Font.Style = []
-    ExplicitTop = 900
   end
   object OpenDialog: TOpenDialog
     Filter = 'REST Debugger Project (*.rdproj)|*.rdproj'

src/_frmMain.pas

@@ -693,6 +693,7 @@ begin
   strstream := TStringStream.Create(EditorPostData.Lines.Text, TEncoding.UTF8);
   try
     FHTTP.Request.ContentType := comboPostContentType.Text;
+    FHTTP.Request.CharSet := 'utf-8';
     try
       case AMethodType of
         mtPOST: dmy := FHTTP.Post(edtFullURL.Text, strstream);