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;