From b3eb745180878d643ef3dedd13d2838ec6d770db Mon Sep 17 00:00:00 2001
From: geby <geby@7c85be65-684b-0410-a082-b2ed4fbef004>
Date: Thu, 15 Apr 2010 07:19:19 +0000
Subject: [PATCH] Next D2009 fixes in THTTPSend by SergeyL.

git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@126 7c85be65-684b-0410-a082-b2ed4fbef004
---
 httpsend.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/httpsend.pas b/httpsend.pas
index 21d1240..781ab4c 100644
--- a/httpsend.pas
+++ b/httpsend.pas
@@ -110,7 +110,7 @@ type
     function ReadIdentity(Size: Integer): Boolean;
     function ReadChunked: Boolean;
     procedure ParseCookies;
-    function PrepareHeaders: string;
+    function PrepareHeaders: AnsiString;
     function InternalDoConnect(needssl: Boolean): Boolean;
     function InternalConnect(needssl: Boolean): Boolean;
   public
@@ -328,13 +328,13 @@ begin
     FResultString := '';
 end;
 
-function THTTPSend.PrepareHeaders: string;
+function THTTPSend.PrepareHeaders: AnsiString;
 begin
   if FProtocol = '0.9' then
     Result := FHeaders[0] + CRLF
   else
 {$IFNDEF MSWINDOWS}
-    Result := AdjustLineBreaks(FHeaders.Text, tlbsCRLF);
+    Result := {$IFDEF UNICODE}AnsiString{$ENDIF}(AdjustLineBreaks(FHeaders.Text, tlbsCRLF)));
 {$ELSE}
     Result := FHeaders.Text;
 {$ENDIF}
@@ -381,7 +381,7 @@ var
   ToClose: Boolean;
   Size: Integer;
   Prot, User, Pass, Host, Port, Path, Para, URI: string;
-  s, su: string;
+  s, su: AnsiString;
   HttpTunnel: Boolean;
   n: integer;
   pp: string;