anchor.diff:    lvSendBuffer:array of byte;  
   begin
     lvOwner := TDiocpExTcpServer(Owner);
  +{$IFDEF StartEndCut}
  +      // ȥͷβ
     lvStartData := @lvOwner.FStartData[0];
     lvStartDataLen := lvOwner.FStartDataLen;
     lvEndData := @lvOwner.FEndData[0];
     lvEndDataLen := lvOwner.FEndDataLen;
  -
     j := lvStartDataLen + pvDataLen + lvEndDataLen;
  +{$ELSE}
  +  lvStartDataLen:=0;
  +  lvEndDataLen:=0;
  +  j := pvDataLen;
  +{$ENDIF}
  +
  +
  +
     SetLength(lvSendBuffer, j);
     if lvStartDataLen > 0 then
     begin
  
positive.code:  *      2015-08-17 14:25:56
  
  *)
  unit diocp_ex_server;
  
  interface
  
  uses
    diocp_tcp_server, utils_rawPackage, utils_safeLogger, SysUtils, Classes,
  
negative.code:     inc(lvPtr);
      if r = 1 then
      begin
  {$IFDEF StartEndCut}
        // ȥͷβ
        OnDataAction(@FCacheBuffer.FRawBytes[lvStartDataLen], FCacheBuffer.FRawLength - lvStartDataLen - lvEndDataLen);
  {$ELSE}
        OnDataAction(@FCacheBuffer.FRawBytes[0], FCacheBuffer.FRawLength );
  {$ENDIF}
        ResetPacakge(@FCacheBuffer);
      end;
  
  