anchor.diff:   *                                                        *
    * hprose synapse http client unit for delphi.            *
    *                                                        *
  - * LastModified: Jun 15, 2014                             *
  + * LastModified: Jun 25, 2014                             *
    * Author: Ma Bingyao <andot@hprose.com>                  *
    *                                                        *
   \**********************************************************/
  
positive.code: var
    HttpSend: THttpSend;
    Cookie: string;
  begin
    FHttpPool.Lock;
    try
  
negative.code:                       LowerCase(FProtocol) = 'https');
    if Cookie <> '' then HttpSend.Headers.Add('Cookie: ' + Cookie);
    HttpSend.Document.WriteBuffer(Data[0], Length(Data));
    if (HttpSend.HTTPMethod('POST', FUri)) then begin
      SetCookie(HttpSend.Headers, FHost);
      SetLength(Result, HttpSend.Document.Size);
      Move(HttpSend.Document.Memory^, Result[0], Length(Result));
      HttpSend.Clear;
      HttpSend.Cookies.Clear;
      FHttpPool.Lock;
      try
        FHttpPool.Add(ObjToVar(HttpSend));
      finally
        FHttpPool.Unlock;
      end;
    end
    else begin
      Error := IntToStr(HttpSend.Sock.LastError) + ':' + HttpSend.Sock.LastErrorDesc;
      FreeAndNil(HttpSend);
      raise EHproseException.Create(Error);
    end;
  end;
  
  