[控件]Kbmmw服务端获取接收发出量

闲话少说上代码,感谢爱干分享。

procedure TForm1.kbmMWServer1Stats(Sender: TObject;InStream: IkbmMWCustomRequestTransportStream;  
OutStream: IkbmMWCustomResponseTransportStream; const ATimeStampUS,   ATimeTakenUS: Int64);
begin   
iTotalSend:=iTotalSend+OutStream.Size;  
iTotalRecive:= iTotalSend+InStream.Size;
end;
分享到: