Q&A

  • 5초동안 데이타를 전송한 횟수를 구할려면?
A라는 클라이언트에서 B라는 서버로 데이타를 보낼때

5초동안 반복해서 보내고, 전송횟수를 구하고 싶은데...

이게 맞는지여?

고수들의 조언 바랍니다...



procedure TfrmClient.btnSendClick(Sender: TObject);

var

nOut : Integer; //<-- 데이타 전송 횟수 변수

nStartTime, nNowTime : LongInt;

begin

nOut := 0;

nStartTime := GetTickCount;



repeat

nNowTime := GetTickCount;



cskTx.Socket.SendBuf(aTxData, Length(aTxData));



Inc(nOut);



until ((nNowTime - nStartTime) = 5000) or ((nNowTime - nStartTime) > 5000);



end;



0  COMMENTS