闲话少说上代码,感谢爱干分享。
procedure TForm1.kbmMWServer1Stats(Sender: TObject;InStream: IkbmMWCustomRequestTransportStream; OutStream: IkbmMWCustomResponseTransportStream; const ATimeStampUS, ATimeTakenUS: Int64); begin iTotalSend:=iTotalSend+OutStream.Size; iTotalRecive:= iTotalSend+InStream.Size; end;