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