anchor.diff:    Dialogs, StdCtrls, ActnList, ExtCtrls
     , utils.safeLogger, StrUtils,
     ComCtrls, diocp.ex.httpServer, diocp_ex_http_common, utils.byteTools,
  -  utils_dvalue_json;
  +  utils_dvalue_json, System.Actions;
   
   type
     TfrmMain = class(TForm)
  
positive.code: 
  
      pvRequest.Response.WriteString(Format('ԭʼURL:%s<br>', [pvRequest.RequestRawURL]));
      pvRequest.Response.WriteString(Format('ԭʼݳ:%d<br>', [pvRequest.RawDataLength]));
      pvRequest.Response.WriteString(Format('context-length:%d<br>', [pvRequest.ContextLength]));
  
  
      lvRawData := pvRequest.DataAsString;
      pvRequest.Response.WriteString('ԭʼ:');
      pvRequest.Response.WriteString(lvRawData);
      pvRequest.Response.WriteString('<br>=======================================<br>');
  
negative.code:     if s = '' then
      begin
        pvRequest.Response.WriteString('ض:<a href="/redirect?url=http://www.diocp.org">' +
         '/redirect?url=http://www.diocp.org</a>');
      end else
      begin
        pvRequest.Response.RedirectURL(s);
  